Текущий архив: 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.025 c
