Alle MountPoints auslesen

[Neutral General]

Zitat von Captnemo:

Okay, geht wohl nur wenn ich die Function aus der kernel32 importiere:

Delphi-Quellcode:

    function FindFirstVolume(lpszVolumeName: PChar; cchBufferLength: DWord): THandle; stdcall; external 'kernel32.dll' name 'FindFirstVolumeA';
    function FindNextVolume(hFindVolume: THandle; lpszVolumeName: LPTSTR; cchBufferLength: DWORD): BOOL; stdcall; external 'kernel32.dll' name 'FindNextVolumeA';
    function FindVolumeClose(hFindVolume: THandle): BOOL; stdcall; external 'kernel32.dll' name 'FindVolumeClose';

Das meinte ich ja

Zitat von Captnemo:

Allerdings meckert mir jetzt Delphi die erste Zeile gleiche an:

Code:

Erwartet: ':', aber ein String-Literal "kernel32.dll" erhalten in Zeile 42

Aber Schreibweise ist laut Delphi-Hilfe so korrekt. Was mache ich hier falsch?

Sieht gut aus. Hab mal meine ganze Unit kopiert. Die compiliert so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  function FindFirstVolume(lpszVolumeName: PChar; cchBufferLength: DWord): THandle; stdcall; external 'kernel32.dll' name 'FindFirstVolumeA';
  function FindNextVolume(hFindVolume: THandle; lpszVolumeName: LPTSTR; cchBufferLength: DWORD): BOOL; stdcall; external 'kernel32.dll' name 'FindNextVolumeA';
  function FindVolumeClose(hFindVolume: THandle): BOOL; stdcall; external 'kernel32.dll' name 'FindVolumeClose';

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.