10.02.2009, 17:37
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
Сообщение от Nightmarе
Команда на получение листинга дитектории:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Searchrec: Tsearchrec;
s:string;
begin
FindFirst('C:\*.*', FaAnyfile, SearchRec);
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
end;
end;
Подскажите плиз, как сделать так, чтобы скрытые файлы и папки были помечены тегами [h][/h]
то есть:
file1.exe
[h]hidefile.exe[/h]
file2.exe if (SearchRec.Attr = faHidden) then
Memo1.Lines.Add('[h]' + SearchRec.Name + '[/h]');
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|