Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Получить путь к файлу.

Kladbische © (2005-02-17 23:38:00)
Помогайте люди. Я добавляю в список программы из папки
и хочу, что бы был путь целиком
я делаю так. И ещё как убрать точки в начале списка

Kladbische (2005-02-18 18:58:00) [1]
Ха Получилось !
Нельзя этот desktop вместе с точками в одну "или" пихать
а вот так нормуль.

Так теперь далее а как теперь вот из этого
C:\Documents and Settings\Kladbische\Start Menu\Programs\Startup\Apollo.exe.lnk получить откуда
запускается Appolo т.е место .exe файла

repeat
if not ((SRec.Name = '.') or (SRec.Name = '..')) then //добавляешь
if not (SRec.Name = 'desktop.ini') then
ListBox2.Items.Add(Edit1.Text + '\' + SRec.Name);

Kladbische (2005-02-18 18:51:00) [2]
Ок! а я то дурак уже во чего написал! и работает
(см ниже)
а вот Скрытый desktop.ini не убирается сабака.:)

ListBox2.Items.Add(Edit1.Text + '\' + SRec.Name);
ListBox2.ItemIndex:=0;
if Srec.Name='.'then
ListBox2.Items.Delete(ListBox2.ItemIndex);
if Srec.Name='..'then
ListBox2.Items.Delete(ListBox2.ItemIndex);

until FindNext(SRec) <> 0;
FindClose(SRec);

Antonn (2005-02-18 18:14:00) [3]
Kladbische (18.02.05 17:47) [12]
Зато потом, как сам узнаешь, будешь гуру в этих вещах:)

if not ((SRec.Name = '.') or (SRec.Name = '..')) then //добавляешь

Kladbische (2005-02-18 17:47:00) [4]
Вы похоже решили меня добить с этим если.:)

Anatoly Podgoretsky (2005-02-18 17:19:00) [5]
Kladbische (18.02.05 17:13) [10]
А вот тут без IF не обойтись.

Kladbische (2005-02-18 17:13:00) [6]
А как их не добавлять ?

Просто Джо (2005-02-18 01:09:00) [7]

> А как убрать две первых строки с точками на концах \. и
> \..

А зачем их убирать? Их просто не нужно добавлять!

Kladbische (2005-02-18 01:02:00) [8]
Ладно иду спать! пожалуйста, напишите или сюда или на мыло
Kladbische74@mail.ru

Kladbische (2005-02-18 00:41:00) [9]
Спсибо ! завтра пойду искать книгу ! об успехах доложу :)
Но всё же, пожалуйста ! не поленитесь, дайте спокойно уснуть !

Anatoly Podgoretsky (2005-02-18 00:35:00) [10]
Книги для маленьких, почти невожмоэно написать программу не пользуясь IF

Kladbische (2005-02-18 00:33:00) [11]
Простите! а по подробнее я ещё не такой спец !
Если можно с кодом

Anatoly Podgoretsky (2005-02-18 00:27:00) [12]
Используй команду IF

Kladbische (2005-02-17 23:51:00) [13]
Ок спасибо !
А как убрать две первых строки с точками на концах \. и \..

Anatoly Podgoretsky (2005-02-17 23:40:00) [14]
Edit1.Text + '\' + SRec.Name

Kladbische (2005-02-17 23:38:00) [15]
procedure TForm1.Button8Click(Sender: TObject);
var
SRec: TSearchRec;
begin
if FindFirst(Edit1.Text+'\*.*',faAnyFile,SRec) <> 0 then
Exit;
repeat
ListBox2.Items.Add(SRec.Name);
until FindNext(SRec) <> 0;
FindClose(SRec);

end;

Наверх

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