Скачать: CL | DM;

Получить путь к файлу.   Найти похожие ветки 

← →
Kladbische   (2005-02-17 23:38) [0]

Помогайте люди. Я добавляю в список программы из папки
и хочу, что бы был путь целиком
я делаю так. И ещё как убрать точки в начале списка

---

← →
Kladbische   (2005-02-17 23:38) [1]

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;

---

← →
Anatoly Podgoretsky ©   (2005-02-17 23:40) [2]

Edit1.Text + "\" + SRec.Name

---

← →
Kladbische   (2005-02-17 23:51) [3]

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

---

← →
Anatoly Podgoretsky ©   (2005-02-18 00:27) [4]

Используй команду IF

---

← →
Kladbische   (2005-02-18 00:33) [5]

Простите! а по подробнее я ещё не такой спец !
Если можно с кодом

---

← →
Anatoly Podgoretsky ©   (2005-02-18 00:35) [6]

Книги для маленьких, почти невожмоэно написать программу не пользуясь IF

---

← →
Kladbische   (2005-02-18 00:41) [7]

Спсибо ! завтра пойду искать книгу ! об успехах доложу :)
Но всё же, пожалуйста ! не поленитесь, дайте спокойно уснуть !

---

← →
Kladbische   (2005-02-18 01:02) [8]

Ладно иду спать! пожалуйста, напишите или сюда или на мыло
Kladbische74@mail.ru

---

← →
Просто Джо ©   (2005-02-18 01:09) [9]

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

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

---

← →
Kladbische   (2005-02-18 17:13) [10]

А как их не добавлять ?

---

← →
Anatoly Podgoretsky ©   (2005-02-18 17:19) [11]

Kladbische   (18.02.05 17:13) [10]
А вот тут без IF не обойтись.

---

← →
Kladbische   (2005-02-18 17:47) [12]

Вы похоже решили меня добить с этим если.:)

---

← →
Antonn ©   (2005-02-18 18:14) [13]

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

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

---

← →
Kladbische   (2005-02-18 18:51) [14]

Ок! а я то дурак уже во чего написал! и работает
(см ниже)
а вот Скрытый 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);

---

← →
Kladbische   (2005-02-18 18:58) [15]

Ха Получилось !
Нельзя этот 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);

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c