hi sharky,

das weis ich, habe mir die psdk von mircrosoft gezogen, aber das mein ich nich, ich meine
ein beispieltabelle mit delphi api aufrufen. z.b. hab ich folgende apifunktion

markieren

Code:

 

{BOOL GetVolumeInformation(

    LPCTSTR lpRootPathName,  // address of root directory of the file system
    LPTSTR lpVolumeNameBuffer,  // address of name of the volume
    DWORD nVolumeNameSize,  // length of lpVolumeNameBuffer
    LPDWORD lpVolumeSerialNumber,  // address of volume serial number
    LPDWORD lpMaximumComponentLength,  // address of system's maximum filename length
    LPDWORD lpFileSystemFlags,  // address of file system flags
    LPTSTR lpFileSystemNameBuffer,  // address of name of file system
    DWORD nFileSystemNameSize   // length of lpFileSystemNameBuffer
   ); }

ich habe schon alles probiert, aber ich komme mit der delphi systax nicht klar, normalerweise
sind das ja fast alles pointerwerte, aber wenn ich die variable mit pionterzeichen "@" oder "^"
vesehe, bringt er entweder inkompatibler typ oder es lauft, und ich hab ne exeption "versuch zu schreiben an adresse ..."
z.b soll nVolumeNamesize ein pointer auf ein dword sein, delphi will aber ein cardinaltyp u.s.w

habs im api aufruf mit nVolumeNamesize^, und @nVolumeNamesize probiert keins von beiden geht

waere toll wenn jemand helfen koennte :

[edit=sakura] So kann man den Titel auch machen Mfg, sakura[/edit]

von sharky


Ufff....

mit diesen API-Headerübersetzungen habe ich auch immer meine Probleme. Frage mal in der API-Sparte.
Luckie und Co. können da sicher besser helfen als ich.

In der Windows.pas ist sie so deklariert:

markieren

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:

zusammenfalten · markieren

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;

Ich wuerde lpVolumeSerialNumber auch als var deklarieren, sofern man nicht nil (aka NULL) uebergeben darf.
Fuer alle drei Variablen wuerde ich das lp vom Namen entfernen.