Fórum Numero serial #167062
30/06/2003
0
como faço pra pegar o numero serial do HD e mandar pra um edit??
Lau_
Curtir tópico
+ 0
Responder
Posts
30/06/2003
Bilouro
[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/cim_physicalmedia.asp[/url]
[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_logicaldisk.asp[/url]
de uma olhana niso
[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_logicaldisk.asp[/url]
de uma olhana niso
Responder
Gostei + 0
01/07/2003
Essistemas
Function InformarSerialHD( Drive : String ) : String ;
Var 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);
F_Serial:=Result ;
end;
Edit1.Text :=InformaSerialHd(´C´);
Var 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);
F_Serial:=Result ;
end;
Edit1.Text :=InformaSerialHd(´C´);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)