Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Pegar Serial do HD

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Pegar Serial do HD

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:52 pm

Coloque abaixo de Implementation:

Function SerialNum(FDrive:String) :String;
Var
Serial:DWord;
DirLen,Flags: DWord;
DLabel : Array[0..11] of Char;
begin
Try GetVolumeInformation(PChar(FDrive+':'),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result := IntToHex(Serial,Cool;
Except Result :='';
Except Result :=';
end;
end;

Para Chamar:

Edit1.text := SerialNum('C');

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum