Problem bei GetVolumeInformation

[echitna]

Hallo alle miteinander!

Ich versuche gerade die Festplattennummer mit GetVolumeInformation auszulesen, bekomme aber immer diese Fehlermeldung. Ich hab schon in der DP gesucht, aber nix gefunden. Wer kann mir weiterhelfen?

Delphi-Quellcode:

var tmp: Integer; buffer: array[0..19] of Char; SerialNum: PDWORD;
GetVolumeInformation(nil,@buffer[0],SizeOf(buffer),@SerialNum,tmp,tmp,nil,tmp);

[Fehler] Access.pas(71): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

:gruebel: :wiejetzt:

[Sprint]

Delphi-Quellcode:

function GetVolumeSerialNo(Drive: Char): DWORD;
begin
  GetVolumeInformation(PChar(Drive + ':\'), nil, 0, @Result, DWORD(nil^), DWORD(nil^), nil, 0);
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Serial: DWORD;
begin
  Serial := GetVolumeSerialNo('D');
  ShowMessage(IntToHex(HiWord(Serial), 4) + '-' + IntToHex(Word(Serial), 4));
end;

[echitna]

Dankeschön! :hello: