Obtendo Algumas Informações do Sistema

[DragonBoss 8]

Falaaa galeraa....

Vo mostrar um codigo simples, mas beem legal, ke tras algumas informaçoes do seu sistema, como memoria e o espaço do disco por exemplo... (tipo tem naqueles programas que otimizam a memoria ram )

 

Vamos la:

 

Antes de tudo, Insira um MEMO e um BUTTON, ambos na paleta Stardard,

Va na propriedade Lines do Memo (no object inspector) e clike nos ... (3 pontinhos), vai abrir um campo de texto (code editor)... delete o que tiver nele, para o Memo fikar "limpo".

Renomeie o Memo para Info.

 

Agora, mude o caption do Button para "Informar", ou algo relacionado. De 2 cliques no buttton para abrir o onclick dele.. apague o begin e o end; , e cole o seguinte codigo:

 

const

cBytesPorMb = 1024 * 1024;

var

M: TMemoryStatus;

begin

M.dwLength := SizeOf(M);

GlobalMemoryStatus(M);

Info.Clear;

with Info.Lines do begin

Add(Format('Memória em uso: %d%%',

[M.dwMemoryLoad]));

Add(Format('Total de Memória Fisica: %f MB',

[M.dwTotalPhys / cBytesPorMb]));

Add(Format('Memória Fisica Disponível: %f MB',

[M.dwAvailPhys / cBytesPorMb]));

Add(Format('Tamanho máximo do arquivo de paginação: %f MB',

[M.dwTotalPageFile / cBytesPorMb]));

Add(Format('Disponível no arquivo de paginação: %f MB',

[M.dwAvailPageFile / cBytesPorMb]));

Add(Format('Total de memória virtual: %f MB',

[M.dwTotalVirtual / cBytesPorMb]));

Add(Format('Memória virtual disponível: %f MB',

[M.dwAvailVirtual / cBytesPorMb]));

Add('Total de bytes: ' + IntToStr(DiskSize(3)));

Add('Bytes livres: ' + IntToStr(DiskFree(3)));

end;

 

end;

 

Salve, copile.... ao abrir, clike no button, ele vai dar algumas informaçoes sobre sua memoria no "info"...

 

DICA: vc pode por o codigo do button em um timer, ae ele vai fika atualizando as informaçoes ( como % de memoria usada por exemplo

DICA2 (by josue1602 ): vcs podem dexar a propriedade enabled do memo em False, assim, nao da pra escrever nada nele (e a pessoa nao vai editar a informaçao ke aparecerá la ))

 

 

Explikando o codigo: o button vai adicionar ao MEMO ( com nome de INFO ) as informaçoes ke o codigo da sobre o sistema.

 

Bem simples....mas util...

 

OBS: prestem atençao em erros simples, como falta de end; por exemplo.

 

 

 

 

flw, abraçs.

[josue1602 0]

Aew Bom Topico Bem Organizado e Ao Contrario De Mim Uma Coisa Nova AUHUAHUAUH

 

Ahh. E Tmb Da De Deixar A Propriedade Do Memo Como False Para Não Escrever Nela.

[DragonBoss 8]

olhaa... eh uma boa dica ^^

(( nem tinha pensado em desabilitar o memo... ))

vo ateh por no tutorial....

[josue1602 0]

olhaa... eh uma boa dica ^^

(( nem tinha pensado em desabilitar o memo... ))

vo ateh por no tutorial....

 

É assim fica bem legal com a propride enabled em true a pessoa pode editar as informações e assim não.