Laufwerkspfad

[Tpercon]

Den Beitrag von sakura habe ich gelesen, nur mir eht's um die GetLogicalDriveStrings Funktion.

Gruß

[sakura]

Code:

procedure LoadLogicalDrives(Strings: TStrings); 
var 
  S: DWORD;
  AllStrings, CurrentString: PChar; 
begin 
  S := 255;
  GetMem(AllStrings, Succ(S));
  GetLogicalDriveStrings(S, AllStrings); 
  try 
    if AllStrings <> nil then 
    begin 
      CurrentString := AllStrings; 
      while True do 
      begin 
        Strings.Add(StrPas(CurrentString)); 
        Inc(CurrentString, Succ(StrLen(CurrentString))); 
        if CurrentString[0] = #0 then 
          Break; 
      end; 
    end; 
  finally 
    FreeMem(AllStrings); 
  end; 
end;

Ungetestet, sollte aber funktionieren.


:!: :!: Getestet und korrigiert!!!
:cat:

[Tpercon]

Danke :!: :!:

[Christian Seehase]

Moin Zusammen,

ich hätte da noch eine Variante:

Code:

procedure GetDriveLetterList(const p_slResult : TStrings);

var
  sWork : string;

begin
  sWork := StringOfChar(#00,105);
  GetLogicalDriveStrings(105,@sWork[1]);
  p_slResult.Text := StringReplace(sWork,':\'#00,#13#10,[rfReplaceall]);
end;

Dürfte allerdings nicht besonders schnell sein ;-)

[sakura]

Hi Christian,

deine Variante ist vielleicht nicht besonders schnell, strotzt aber vor Einfachheit. :) Mir gefällt Deine Lösung sehr gut und für interaktive (Client-)Programme ist diese ausreichend schnell. ;)
:cat: