Alle MountPoints auslesen

[Captnemo]

Zitat:

Zitat von Neutral General (Beitrag 1317748)

Notfalls halt einfach grad die Funktion von MSDN abtippen.

Wie, abtippen?


Die sich oben beteiligten DP-Mitglieder verwenden die Funktion ja auch. Also bin ich jetzt mal von einer Unit in den Uses ausgegangen. Oder sind das ggf. Funktionen einer DLL z.b. kernel? Leider postet ja niemand den Interface-Abschnitt.

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

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?

[Neutral General]

Zitat:

Zitat von Captnemo (Beitrag 1317751)

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:

Zitat von Captnemo (Beitrag 1317751)

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.

[Sir Rufo]

Beim dem Code fangen meine Augen sofort an zu tränen :shock:

Was fällt uns zu den Schlagworten

Delphi-Quellcode:

PChar

/

Delphi-Quellcode:

PAnsiChar

/

Delphi-Quellcode:

PWideChar

ein?

[Neutral General]

Zitat:

Zitat von Sir Rufo (Beitrag 1317753)

Beim dem Code fangen meine Augen sofort an zu tränen :shock:

Was fällt uns zu den Schlagworten

Delphi-Quellcode:

PChar

/

Delphi-Quellcode:

PAnsiChar

/

Delphi-Quellcode:

PWideChar

ein?

Ich hab hier Delphi7 - Also alles in Ordnung :stupid:
Ansonsten muss es so wie es da oben steht entweder FindFirstVolumeW/FindNextVolumeW oder PAnsiChar heißen.

[Captnemo]

Jetzt meckert er bei mir auch nicht mehr. Einmal Delphi neu starten und der Fehler war weg!
Naja, lief jetzt seit fast 2 Wochen am Stück durch. Bin immer zu Faul meinen Rechner runter zu fahren.

[Sir Rufo]

Zitat:

Zitat von Neutral General (Beitrag 1317754)

Zitat:

Zitat von Sir Rufo (Beitrag 1317753)

Beim dem Code fangen meine Augen sofort an zu tränen :shock:

Was fällt uns zu den Schlagworten

Delphi-Quellcode:

PChar

/

Delphi-Quellcode:

PAnsiChar

/

Delphi-Quellcode:

PWideChar

ein?

Ich hab hier Delphi7 - Also alles in Ordnung :stupid:

Ja genau, und als alle ihren tollen Code dann auf den Unicode-Compiler losgelassen haben heulten sie wie die kleinen Kinder den man den Schnuller geklaut hatte. Wie konnte Borlacodero so etwas nur machen, das hat immer wunderbar funktioniert ... bis zu dieser Umstellung.

Nein, ich habe doch keinen Fehler gemacht! :roll: