Número Série HD

15/05/2003

1

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


Responder

Posts

15/05/2003

Adriano Santos

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;


Responder

15/05/2003

Ronanz

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

Result := IntToHex(Serial, );


Responder

15/05/2003

Adriano Santos

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

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


Responder

15/05/2003

Tathianam

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:


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira