| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Kladbische ©   (2005-02-18 17:45:00) 

Приветствую ! Помогите наконец! мне.
Я делаю так(см ниже).
В итоге
получаю:
.
..
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:00) [1]

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

---

Наверх