Добавление файлов.

← →
Kladbische (2005-02-18 17:45) [0]

Приветствую ! Помогите наконец! мне.
Я делаю так(см ниже).
В итоге
получаю:
.
..
Desktop.ini
ну и файлы...
Хочу не добавлять точки и скрытый файл.
И ещё как можно получить откуда файл запускается, если в списке
ярлык.

procedure TForm1.Button8Click(Sender: TObject);
var
SRec: TSearchRec;
searhrec: TSearchRec;
begin

if FindFirst(Edit1.Text+"\*.*",faAnyFile,SRec) <> 0 then
Exit;
repeat
ListBox2.Items.Add(Edit1.Text + "\" + SRec.Name);
until FindNext(SRec) <> 0;
FindClose(SRec);

end;

← →
panov © (2005-02-18 18:19) [1]

Поле "Тема вопроса" не оформлено.

Добавление файлов. Найти похожие ветки