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

Participe do fórum, é rápido e fácil

Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Pegar Serial do HD

 :: Programação :: Delphi :: Delphi Tutoriais.

Ir para baixo

Pegar Serial do HD Empty Pegar Serial do HD

Mensagem por Mr.Positive 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
Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
Pegar Serial do HD Left_bar_bleue0 / 1000 / 100Pegar Serial do HD Right_bar_bleue



Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 :: Programação :: Delphi :: Delphi Tutoriais.

 
Permissões neste sub-fórum
Não podes responder a tópicos