Alle MountPoints auslesen

[himitsu]

Neeee.

Length(x) * SizeOf(Char) oder SizeOf(StaticCharArray) wäre nur richtig, wenn man dort die Länge in Bytes angeben soll.

Length(x) ist dafür, wenn man die Länge in Zeichen anzugeben hat.

[Captnemo]

Kann mir jemand sagen, welche Unit ich der Uses hinzufügen muss, damit XE4 FindFistVolume, FindNextVolume und FindVolumeClose findet? Hab schon mit Grep das ganze Emba-Verzeichnis durchsucht, aber keinen Treffer erhalten.

[Neutral General]

Mein Delphi7 hier kannte es auch nicht (was nichts heißen muss).
Notfalls halt einfach grad die Funktion von MSDN abtippen.

[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?