API Header, Syntax, Funktionsaufruf

[Luckie]

In der Windows.pas ist sie so deklariert:

Delphi-Quellcode:

function GetVolumeInformation(
  lpRootPathName: PChar;
  lpVolumeNameBuffer: PChar; 
  nVolumeNameSize: DWORD; 
  lpVolumeSerialNumber: PDWORD;
  var lpMaximumComponentLength,
  lpFileSystemFlags: DWORD;
  lpFileSystemNameBuffer: PChar;
  nFileSystemNameSize: DWORD): BOOL; stdcall;

Und der Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Root: array[0..20] of Char;
  FileSysName, VolName: array[0..255] of Char;
  SerialNum, MaxCLength, FileSysFlag: DWORD;
begin
  Root := 'C:\';
  GetVolumeInformation(Root, VolName, 255, @SerialNum, MaxCLength,
      FileSysFlag, FileSysName, 255);
  ShowMessage(VolName+#13#10+IntToStr(SerialNum)+#13#10+IntToStr(MaxClength)+
    #13#10+IntToStr(FileSysFlag)+#13#10+FileSysName);
end;