Конференция "Журнал" » asdasd
 
  • 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]

    А в обратную сторону?
 
Конференция "Журнал" » asdasd
Есть новые Нет новых   [118230   +19][b:0][p:0.001]