PROGRAMERO

Nesse exemplo mostraremos como recuperar informações como setores, bytes por setores e aghrupamentos livres, o exemplo completo pode ser baixado aqui . Insira no formulario um Edit para receber o caminho do diretorio, um memo para mostrar as informações e um botão para iniciar a consulta, segue a codificação do click do botão: var   SetoresPorAgrup, BytesPorSetor, AgrupLivres,   TotalAgrup: DWord; begin   Memo1.Clear;   if GetDiskFreeSpace( pchar(Edit1.Text) , SetoresPorAgrup,       BytesPorSetor, AgrupLivres, TotalAgrup) then   with Memo1.Lines do begin     Add( '------------------------------------------------------------------' );     Add( '----- Informações sobre a unidade [' +Edit1.Text+ '] -----' );     Add( 'Setores por agrupamento: ' + IntToStr(SetoresPorAgrup));     Add( 'Bytes por setor: ' + IntToStr(BytesPorSetor));     Add( 'Agrupamentos l

Segundo a empresa “ WhereCloud ” o Twitter estaria próximo de seu limite máximo de mensagens únicas (2.147.483.647), e que estimado na média de postagens por dia,  o chamado “ Twitpocalypse ” acontecerá amanhã dia 13/06. Na minha humilde opinião isso é mais um golpe de marketing mas vamos esperar para ver. Twitter , Twitpocalypse , WhereCloud

Isso mesmo, o intuito é filtrar certos elementos como a nicotina, o alcatrão e outros compostos por meio de nanotubos de carbono. A descoberta de uma nova propriedade dos nanotubos aconteceu na Faculdade de Filosofia, Ciências e Letras de Ribeirão Preto (FFCLRP) da USP, pela doutoranda Elaine Matsubara do grupo de pesquisa liderado pelo professor José Maurício Rosolen. Foram realizados experimentos com auxílio de espectrometria de massa e infra-vermelho para chegar a aplicação nos filtros, onde foi constatado que certas substancias foram completamente retidas pelo filtro. O nome do nanotubo de carbono (único a surtir efeito) não foi revelado, pois o artigo de publicação cientifica assim como o pedido de patente ainda não foram completados. Fonte: Inovação tecnológica nanotecnologia , cigarros , saude , programero