Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];

Вниз

Директория программы   Найти похожие ветки 

 
SpyX   (2003-01-18 17:10) [0]

Здорооово!!! Как узнать директорию, в которую записана моя программа?


 
Darkwin   (2003-01-18 17:23) [1]

GetCurrentDir


 
Anatoly Podgoretsky   (2003-01-18 17:42) [2]

Ты чего не знаешь куда ее записал, тогда поиск по всем дискам, а лучше все таки нормально настрой Дельфи, что бы не приходилось искать.


 
mrcat   (2003-01-18 17:53) [3]

Anatoly Podgoretsky © (18.01.03 17:42)
=)))))))


 
Бух   (2003-01-18 18:16) [4]

Если не знаешь заранее откуда будет запускаться твоя прога, то делай так:

dir:=GetCurrentDir;

предварительно не забудь объявить dir как String.
Получишь в переменной полный путь к своей проге в виде строки.


 
Song   (2003-01-18 18:19) [5]

ExtractFilePath(ParamStr(0))


 
Adolf   (2003-01-18 19:19) [6]

Это работает 100% на Delphi 7
Uses ... ShellAPI

... ... ...
Edit1.text:=application.GetNamePath + application.ExeName;
Edit1.text:=lowercase(string(Edit7.text));


 
Adolf   (2003-01-18 19:19) [7]

Это работает 100% на Delphi 7
Uses ... ShellAPI

... ... ...
Edit1.text:=application.GetNamePath + application.ExeName;
Edit1.text:=lowercase(string(Edit7.text));


 
Shadow   (2003-01-18 19:36) [8]

ExtractFilePath(Application.Exename);


 
- Tsatur -   (2003-01-19 01:35) [9]


> Shadow


Лучший вариант!


 
siliks   (2003-01-19 01:52) [10]

нет, ни фига, лучший вариант у Song
ExtractFilePath(ParamStr(0))
будет работать даже если не использовать формы


 
- Tsatur -   (2003-01-19 02:00) [11]

Причем тут формы? Apllication - это не формы. ЕХЕ-шник есть, прога запущена, все работает лучше нкуда. Только этим методом и пользуюсь...


 
Song   (2003-01-19 10:42) [12]

А зачем TApplication если нет форм? :)


 
Романов Р.В.   (2003-01-19 10:53) [13]


> - Tsatur -

Вы ни разу не писали консольные приложения?


 
Song   (2003-01-19 11:03) [14]

2- Tsatur - © (19.01.03 02:00)
А если вот так написать, форм не будет? :))

Program MySuperProgram;
Begin
End.


 
Song   (2003-01-19 11:06) [15]

Тьфу, сам-то оговорился, форм действительно не будет. :)
Я холтел спросить "А если вот так написать, exeшника не будет?" :))


 
Anatoly Podgoretsky   (2003-01-19 11:16) [16]

Мужики ближе к теме, он не просит ухнать откуда запущена программа, а куда записпно его приложение или компилятором или пользователем, ему нужен поиск, а вы ему про определение пути запуска, это рано, ее еще надо найти.


 
Юрий Зотов   (2003-01-19 15:27) [17]

> Darkwin © (18.01.03 17:23)
> Бух (18.01.03 18:16)

Скажите, а Вы уверены, что текущий каталог (а именно его дает GetCurrentDir) всегда совпадает с каталогом самой программы (а именно о нем идет речь в вопросе)?

Например, Вам никогда не доводилось прописывать стартовые каталоги в ярлыках?


 
Reindeer Moss Eater   (2003-01-19 15:42) [18]

И вообще кто сказал, что все это надо определить из программы, местонахождение которой ищет её автор?


 
Романов Р.В.   (2003-01-19 15:50) [19]


> И вообще кто сказал, что все это надо определить из программы,
> местонахождение которой ищет её автор?

А причем тогда D6


 
Reindeer Moss Eater   (2003-01-19 15:52) [20]

А причем тогда D6
Это вопрос ко мне, или к автору ветки?


 
Романов Р.В.   (2003-01-19 15:54) [21]

Это риторический вопрос :)


 
Jack128   (2003-01-19 18:09) [22]

Ну если надо определить НЕ из той программы путь к которой надо определить то задача нерешаема , слишком мало исходных данных

А вообще этот вопрос задовался сдесь не один десяток раз
что не удевительно.

удивительно что почти каждый раз первый вариант ответа -
это неправильный в общем случаи вариант GetCurrentDir :)


 
Filat   (2003-01-20 12:31) [23]

..... и Остапа понесло.......



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

Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.011 c
3-86624
LP
2003-01-10 11:03
2003.01.27
Проблема с TDBGrid


1-86937
Danik
2003-01-16 19:43
2003.01.27
Подскажите про RadioGroup Pls!!


3-86649
vcv
2003-01-06 17:55
2003.01.27
Не получается запрос по двум таблицам


1-86871
R
2003-01-20 07:26
2003.01.27
function Sum(const Data: array of Double)


3-86707
uw
2003-01-09 14:40
2003.01.27
Oracle и TSCLClientDataSet





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский