Zitat von
MacGuyver:
Delphi-Quellcode:
var
lEc : Integer;
lDinfo : TSearchRec;
lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
if lDinfo.Name[1] <> '.' then
begin
//Und hier der gewünschte Kram...
end;
lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);
Einfach die erste Stelle des Namens abfragen.
Das resultiert darin, daß Dir ein Ordner wie z.B. .pulseaudio nicht angezeigt wird. Diese Ordner- und Dateinamen mit vorgestelltem Punkt sind bei Linux/Unix Portierung sehr beliebt und dienen meist dazu die Settings zu speichern.
Entsprechend wäre die bessere Lösung:
Delphi-Quellcode:
[pre]var
lEc : Integer;
lDinfo : TSearchRec;
lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
if (lDinfo.Name <> '.') and (lDinfo.Name <> '..') then
begin
//Und hier der gewünschte Kram...
end;
lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);
[/pre]