Fehler mit GetVolumeInformation

[Tiuri]

Hi,

ich versuche, unter Delphi 3 den Zipmaster zu compilieren. Ich komme bei folgendem Code aber auf eine Fehlermeldung:

Delphi-Quellcode:

  if (not FDriveFixed) and    // 1.72 only get Volume label for removable drives
  {If}(not GetVolumeInformation(pChar(FDrive), VolNameAry, NamLen, @DiskSerial,
    SysLen, SysFlags, nil, 0)) then

Delphi meldet den Fehler hinter SysLen. Die Fehlermeldung ist:

Code:

Die Typen der tatsächlichen und formalen Var-Parametern müssen übereinstimmen.

Ich hab hier auch schon danach gesucht, aber nichts gefunden.

[ledil]

Zitat von Tiuri:

Hi,

ich versuche, unter Delphi 3 den Zipmaster zu compilieren. Ich komme bei folgendem Code aber auf eine Fehlermeldung:

Delphi-Quellcode:

  if (not FDriveFixed) and    // 1.72 only get Volume label for removable drives
  {If}(not GetVolumeInformation(pChar(FDrive), VolNameAry, NamLen, @DiskSerial,
    SysLen, SysFlags, nil, 0)) then

Delphi meldet den Fehler hinter SysLen. Die Fehlermeldung ist:

Code:

Die Typen der tatsächlichen und formalen Var-Parametern müssen übereinstimmen.

Ich hab hier auch schon danach gesucht, aber nichts gefunden.

GetVolumeInformation verlangt einen anderen Typ fuer die Variablen "SysFlags" oder "nil". Check doch einfach mal die Variablentypen der Funktion GetVolumeInformation und vergleich sie mit deinen.

[Tiuri]

in meiner Hilfe steht nichts über GetVolumeInformation und ich weiß auch nicht, wo sie deklariert ist. Diese Stelle ist auch das einzige Vorkommen von GetVolumeInformation

[ledil]

Zitat von Tiuri:

in meiner Hilfe steht nichts über GetVolumeInformation und ich weiß auch nicht, wo sie deklariert ist. Diese Stelle ist auch das einzige Vorkommen von GetVolumeInformation

Unit Windows:

function GetVolumeInformation; external kernel32 name 'GetVolumeInformationA';

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

[Tiuri]

so, ich habe es geschafft.
ich habe zwei Variablen vom Typ DWord deklariert, ihnen die Werte von SysFlags und SysLen gegeben und sie statt diesen Konstanten an die Funktion übergeben.
Vielen Dank!