Zitat von
Counter909:
das hab ich schon gefunden, aber wo soll man da dann den pfad ersetzen ?
half mir nicht wirklich weiter
Also du nimmst als BSP diese Code:
Delphi-Quellcode:
//Listet alle Namen von Ordnern in einem Verzeichnis
procedure ListSubDirs(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
sList.BeginUpdate;
try
sList.Clear;
if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faDirectory or faReadOnly or faHidden or faArchive, Rec) = 0 then
begin
repeat
if (((Rec.Attr and faDirectory) = faDirectory) and (Rec.Name <> '.') and (Rec.Name <> '..')) then sList.Add(Rec.Name);
until FindNext(Rec) <> 0;
SysUtils.FindClose(Rec);
end;
finally
sList.EndUpdate;
end;
end;
Kopierst den so in dein Programm (
Unit) und dann machste nen neues Button klick Event.(Doppelt auf einen Button klicken
)
Das du wie folgt ausfüllst
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListSubDirs('C:\windows\system32', ListBox1.Items);
end;
ODER
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListSubDirs(edit1.Text, Memo1.Lines);
end;
Musst du nur für dich anpassen.