Problem bei GetVolumeInformation

[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;