schau dir mal das an:
Delphi-Quellcode:
procedure Laufwerke;
var Drives : array [1..255] of char;
i : byte;
Len : DWord;
begin
//Alle Laufwerke ermitteln
Len:=GetLogicalDriveStrings(255,@Drives);
for i:=1 to Len-2 do
if (i mod 4)=1 then form1.lwwahl.AddItem(copy(Drives,i,3),form1.lwwahl);
end;
die ganze sache hab ich dann auch noch son erweitert, dass nur Festplatten ausgegeben werden
Delphi-Quellcode:
function festplatten:TStringList;
var Drives : array [1..255] of char;
LWListe: TStringList;
i : byte;
Len : DWord;
begin
LWListe:=TStringList.Create;
festplatten:=TStringList.Create;
//Alle Laufwerke ermitteln
Len:=GetLogicalDriveStrings(255,@Drives);
for i:=1 to Len-2 do
if (i mod 4)=1 then LWListe.Add(copy(Drives,i,3));
//Alle Festplatten ermitteln
for i:=0 to LWListe.Count-1 do
begin
if GetDriveType(pchar(LWListe.strings[i]))=DRIVE_FIXED then festplatten.Add(LWListe.Strings[i])
end;
end;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]