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

← →
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]

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

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

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

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

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);

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