Número Série HD

Delphi

15/05/2003

Caros colegas

Utilizo Delphi 6, como faço para exibir o nº de série do HD da máquina em um edit; :?:

Desde já agradeço

Ronan
rzampier@fwg.com.br


Ronanz

Ronanz

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

15/05/2003

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,8);
Except Result :=´´;
end;
end;


GOSTEI 0
Ronanz

Ronanz

15/05/2003

Caro amigo, muito obrigado pela resposta, mas eu não consegui, pois dá erro na seguinte linha

Result := IntToHex(Serial, );


GOSTEI 0
Adriano Santos

Adriano Santos

15/05/2003

Ali é um numero oito depois da virgula, mas o forum colocou emoticons.

Result := IntToHex(Serial,//aquié um numero oito );


GOSTEI 0
Tathianam

Tathianam

15/05/2003

Função completa:

function NumeroSerie(Unidade:PChar):String;
{Retorna o Número serial da unidade especificada}
var
VolName,SysName : AnsiString;
SerialNo,MaxCLength,FileFlags : DWord;
begin
try
SetLength(VolName,255);
SetLength(SysName,255);
GetVolumeInformation(Unidade,PChar(VolName),255,@SerialNo,
MaxCLength,FileFlags,PChar(SysName),255);
result := IntToHex(SerialNo,8);
except
result := ´ ´;
end;

:lol:


GOSTEI 0
POSTAR