|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
5. Jul 2002, 01:07
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 
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|