Serial de HD
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
Curtidas 0
Respostas
Codigodelphi
25/06/2004
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¬
GOSTEI 0
Eduardo3079
25/06/2004
Valeu Funcionou mesmo
Obrigado
Obrigado
GOSTEI 0