Текущий архив: 2005.03.06;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.19 c