E o Android chegou nos notebooks

Quando fiquei sabendo que o Google iria lançar um SO para dispositivos móveis a primeira coisa que me veio em mente foi um novo SO para desktop, o Android funcionaria como uma “ponte” para algo maior. Depois que a parceria entre Google e HTC deu certo, haja vista o crescimento do faturamento da HTC em 22% em plena época de crise, a possibilidade de uma migração para os desktops era eminente, como de fato ocorreu.

Daniel Hartmann e Matthaus Krzykowski precisaram de quatro horas para compilar o Android e colocá-lo num Asus EEPC e o resultado foi o sistema funcionando com os recursos de vídeo, som e wireless. Acredita-se que no estágio em que o Android se encontra seria possível distribuir versões para netbooks em três meses, e a venda em massa em um ano.

É fácil perceber como isso vai balançar o mercado, todos os EEPCs da vida possuem um hardware mais fraco, o que torna penoso o seu uso com o windows Vista, o Windows 7 ainda vai demorar um pouco para sair do beta e quanto ao linux muitas pessoas ainda torcem o nariz para ele. Apesar do Android não ser nada alem de uma nova distribuição Linux o fato de ser uma iniciativa do Google muda as coisas, ele é visto de uma maneira diferente, o Google inspira confiança e geralmente tudo o que ele toca vira ouro.

Asus EEEPC 1000H rodando o Android

Fonte:

DMX Zone

VentureBeat

Iniciar e Parar Serviços do Windows (Delphi)

Em certas ocasiões nos deparamos com a necessidade de manipular determinadas atividades do SO, como iniciar ou parar um banco de dados, ou qualquer outro serviço que esteja funcionando no momento. Segue abaixo um código que encontrei na Internet para tal finalidade (não me recordo à fonte, assim que eu a encontrar colocarei). Iniciar Serviço: uses WinSvc; // // start service // // return TRUE if successful // // sMachine: // machine name, ie: \SERVER // empty = local machine // // sService // service name, ie: Alerter // function ServiceStart( sMachine, sService : string ) : boolean; var // // service control // manager handle schm, // // service handle schs : SC_Handle; // // service status ss : TServiceStatus; // // te...

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin tamanhoTotal := 0; memLista.Lines.Clear; ListarArquivos(edtDiretorio.Text, chkSub.Checked); Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var F: TSearchRec; Ret: Integer; TempNome: string; begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do ...

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;

PROGRAMERO

Pesquisar este blog