Fórum Serial de HD #239691
25/06/2004
0
Olá...
Gostaria de Saber como eu faço para pegar o serial de um hd na maquina...
A dica que tem no 800 dicas naum funciona....
E tb qr saber se qd eu formatar esta maquina este numero hd ira mudar?
Grato pela atençaõ dos colegas
Gostaria de Saber como eu faço para pegar o serial de um hd na maquina...
A dica que tem no 800 dicas naum funciona....
E tb qr saber se qd eu formatar esta maquina este numero hd ira mudar?
Grato pela atençaõ dos colegas
Eduardo3079
Curtir tópico
+ 0
Responder
Posts
25/06/2004
Codigodelphi
function ExtractDiskSerial(Drive:String):String;
var //função para extrair numero serial do HD
Serial:DWord;
DirLen,Flags:DWord;
DLabel:Array[0..11]of Char;
begin
GetVolumeInformation(PChar(Drive+´:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result:=IntToHex(Serial,8);
end;
Essa esta funcionando 100¬
var //função para extrair numero serial do HD
Serial:DWord;
DirLen,Flags:DWord;
DLabel:Array[0..11]of Char;
begin
GetVolumeInformation(PChar(Drive+´:\´),dLabel,12,@Serial,DirLen,Flags,nil,0);
Result:=IntToHex(Serial,8);
end;
Essa esta funcionando 100¬
Responder
Gostei + 0
25/06/2004
Eduardo3079
Valeu Funcionou mesmo
Obrigado
Obrigado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)