Volume do disco rigido
Olá pessoal,
Alguém tem alguma função que retorne o valor do disco rigido?
sd
Wizard
Alguém tem alguma função que retorne o valor do disco rigido?
sd
Wizard
Wizard
Curtidas 0
Respostas
Mabel
23/07/2003
Tente o seguinte:
Function SeriedoDisco(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);
end;
Falou, cara? :lol: :shock:
Function SeriedoDisco(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);
end;
Falou, cara? :lol: :shock:
GOSTEI 0