Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
ВнизДобавление файлов. Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.033 c