Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Re: ???? ??????

Привет! В Дельфи есть еще функция GetCurrentDir... Получишь путь к ехе. Ну и
остается добавить название подпапки.

NP AEL Svitlana Zawadzka

mobile: +357-99-793-766

-----Original MessageFrom: san [mailto:san-2004@k*****.ru]
Sent: Monday, January 26, 2004 05:07
To: comp.soft.prog.prog

Хай, программеры!!!

Такая проблемма:
Есть программа, в папке с программой ещё папка, в этой папке файл.
Так вот, как мне сохранить путь к файлу относительно программы, типа папки
со
скинами, чтоб при перемещении пути "не терялись".

С уважением san
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   NP AEL Svetlana Zavadska Mon, 26 Jan 2004 09:14:16 +0200 (#63612)

 

Ответы:

Доброго времени суток, NP.
Вы писали 26 января 2004 г., 10:14
на тему ???? ??????

Немного поправлю. GetCurrentDir - это функция не Delphi, а API.

Можно сделать так:

PathToDir := ExtractPath(paramstr(0)) + 'название директории';

Фраза дня: Когда в руках молоток, всё вокруг кажется гвоздями

Ответить   Денис Mon, 26 Jan 2004 11:41:36 +0300 (#63682)

 

Здравствуйте, Денис,

А я тоже добавлю: GetCurrentDir - возвращает текущий каталог текущего
диска. И не обязательно это будет путь запущенной программы, тем более
если она запущена из консоли!!

Ответить   Mon, 26 Jan 2004 15:21:07 +0500 (#63762)

 

Хай, программеры!!!

Поясняю подробнее чем я занимаюсь.
Делаю autorun-оболочку, как на разных игровых и софтовых CD.
Так вот, прежде чем записать на CD, всё сваливаю в папку (например:
C:\CD-R), и в ней создаю файл базы данных специальной программой. В ней
добовляю путь к файлу с помощью TOpenDialog'а. Добавляется весь путь к файлу
(с C:\CD-R), а мне это не надо...
...Я тут подумал, и вот что надумал:

procedure TMain.FindClick(Sender: TObject);
var
str1: String;
int1: Integer;
begin
if OpenDialog1.Execute then
begin
str1:=OpenDialog1.FileName;
OpenDialog1.InitialDir:=ExtractFilePath(OpenDialog1.InitialDir);
int1:=length(ExtractFilePath(Application.ExeName));
delete(str1,1,int1);
FilePath.Text:=str1;
end;
end;

Подскажите, если возможно, как сделать проще.

С уважением san
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Mon, 26 Jan 2004 20:30:29 +0300 (#64154)

 

А ExtractFileName из SysUtils чем Вам не нравится?

Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Tue, 27 Jan 2004 11:27:20 +0300 (#64725)

 

Хай!

А если файл в папке???

С уважением san
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Tue, 27 Jan 2004 17:46:12 +0300 (#64961)

 

Таки эта функция и отрезает все, кроме имени и расширения. Попробуйте и сами
увидите, как говорил Михаил Самюелевич Паниковский
С уважением,
Борис Сурин, surin_***@m*****.ru
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Wed, 28 Jan 2004 16:59:55 +0300 (#65806)

 

Привет!!!

Но мне надо сохранить ПУТЬ файла относительно программы.

С уважением san
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Thu, 29 Jan 2004 17:25:50 +0300 (#66616)

 

Простите, не с должным вниманием следил за дискуссией по данной теме, потому
могу высказать ошибочное мнение. Но если проблема в том, что программа лежит
в одной папке, файл данных в другой (причем, полный путь к нему известен -
некоторая строка), и проге нужно узнать маршрут к файлу "от себя", то
1. Определить полный маршрут к екзешнику в строковом виде можно? Можно!
2. "Откусить" слева в обеих строках общую часть (если эти два файла лежат на
одном разделе винта).
3. В оставшейся части пути к экзешнику подсчитать число '\' - на это число
(N) раз программа должна подняться на одну директорию вверх, чтоб достичь
"раздвоения" в маршрутах, то есть, общей "корневой" папки . Ну и плюс к
этому подъму наверх остаток маршрута к файлу.
В общем должна выйти строка '..\..\..\ ...... \'+остаток_пути_к_файлу, где
число групп символов '..\' равно N. То есть, если написать, к примеру,
оператор SetCurrentDir с этой строкой в качестве параметра, текущей
директорией станет та, которая содержит файл.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   "Вадим Шешунов" Thu, 29 Jan 2004 22:44:46 +0200 (#66832)

 

Не понял, что значит "относительно" программы? Как в HTML?
../../гыр_гыр
Так?
Если "да", то надо сравнивать ПОЛНЫЕ пути к Вашей проге и к тому файлу
Пока не скажете, то задача формулируется именно так, думать над ней не хочется
;))
С уважением,
Борис Сурин, surin_***@m*****.ru

Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Fri, 30 Jan 2004 09:40:24 +0300 (#66956)