Alle MountPoints auslesen

[Captnemo]

Zitat von Neutral General:

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 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.

[Sir Rufo]

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

Was fällt uns zu den Schlagworten PChar /PAnsiChar /PWideChar ein?

[Neutral General]

Zitat von Sir Rufo:

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

Was fällt uns zu den Schlagworten PChar /PAnsiChar /PWideChar ein?

Ich hab hier Delphi7 - Also alles in Ordnung
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 von Neutral General:

Zitat von Sir Rufo:

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

Was fällt uns zu den Schlagworten PChar /PAnsiChar /PWideChar ein?

Ich hab hier Delphi7 - Also alles in Ordnung

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!