PHP DM Gate v0.9

Kolan © (18.03.07 17:51) [60]

procedure SearchDir(const Dir: String; Lst: TStrings);
var SR: TSearchRec;
begin
if FindFirst(Dir+'*.*', faDirectory, SR)=0 then
try
repeat
if (SR.Attr and faDirectory = faDirectory) and (SR.Name <> '.') and (SR.Name <> '…') then Lst.Add(SR.Name);
until FindNext(SR)<>0;
finally FindClose(SR); end;
end;
&#133
SearchDir('C:\Windows\', ListBox1.Items);
SearchDir(IncludeTrailingPathDelimiter(sDir), ListBox1.Items);

<Цитата>
Gero © (18.03.07 22:20) [61]

Интересный получился монолог :)

<Цитата>
Gero © (18.03.07 23:39) [62]

«„«„«„«„«„«„«„«„«„«„«„«„«„«„«„«„«„«„« ;„«„«„«„«„«„“

<Цитата>
Anatoly Podgoretsky © (18.03.07 23:46) [63]

> Gero (18.03.2007 23:39:02) [62]

А в обратную сторону?

<Цитата>