funções???

Delphi

21/10/2003

Olá Pessoal,

Gostaria de saber como eu faço uma função pra me dar o número de série do hd, e o tamanho do hd???

Alguem pode me ajudar???


Wsouzant

Wsouzant

Curtidas 0

Respostas

Beppe

Beppe

21/10/2003

procedure GetDriveInfo(Drive: Char; out Serial: DWORD; out Size: Int64);
begin
  Drive := UpCase(Drive);
  GetVolumeInformation(PChar(String(Drive) + ´:\´), nil, 0, @Serial, Cardinal(nil^),
    Cardinal(nil^), nil, 0);
  Size := DiskSize(Ord(Drive) - Ord(´A´) + 1);
end;


Chame assim:

var
  Sr: DWORD;
  Sz: Int64;
begin
  GetDriveInfo(´C´, Sr, Sz);
end;


Ataliba


GOSTEI 0
POSTAR