TDirectory.GetLogicalDrives

[hoika]

Halo,
ich poste hier mal den JEDI-Code.

Delphi-Quellcode:

procedure MultiSzToStrings(const Dest: TAnsiStrings; const Source: PMultiSz);
var
  P: PMultiSz;
begin
  Assert(Dest <> nil);
  Dest.BeginUpdate;
  try
    Dest.Clear;
    if Source <> nil then
    begin
      P := Source;
      while P^ <> #0 do
      begin
        Dest.Add(string(AnsiString(P))); // OF AnsiString to TStrings
        P := StrEnd(P);
        Inc(P);
      end;
    end;
  finally
    Dest.EndUpdate;
  end;
end;

Vielleicht ist das StrLen ja falsch.

Wenn die JEDI auch abschmiert, hat dein Puffer nicht die #0#0 am Ende oder der letzte String nicht das #0.