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

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

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

Мой exe шник на чужом винте

Шустрый © (2003-07-12 07:35:00)

Такой пример: я написал прогу, она у меня на винте и она знает путь до себя самой (допустим c:\...MyProg.exe). И вот она оказывается на чужом винте, и не знает в каком локальном диске она, и в какой папке. Дак вот, может кто-нибудь подскажет или напишет обработчик события OnCreate формы, чтобы программа сама себя нашла, и поместила путь до себя в TEdit? Всем спасибо!

BigDAN (2003-07-14 09:30:00) [1]

!!!!!
GetCurrentDir и procedure getdir(0,строка); дают текущую директорию, которая может меняться!!!! Второе - можно запустить ехе через ярлык и указать в нем САВСЕМ другую директорию!!! Ну и что и этого получиться? Хе!

Marser (2003-07-13 11:01:00) [2]

path:string;
......
path:=extractfilepath(paramstr(0));//искомый путь
.....
end.

ldo (2003-07-12 23:20:00) [3]

procedure getdir(0,строка);

0-это означает текущий диск

Reals (2003-07-12 12:39:00) [4]

functionExtractFilePath(Application.Exename): String;

Mear (2003-07-12 10:46:00) [5]

А можно еще:

function ParamStr(Ind: Integer): string;

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

Количество параметров можно узнать из ParamCount;

Mear (2003-07-12 10:46:00) [6]

А можно еще:

functionParamStr(Ind: Integer): string;

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

Количество параметров можно узнать из ParamCount;

Шустрый (2003-07-12 10:28:00) [7]

Спасибо, понял.

Pico (2003-07-12 09:27:00) [8]

func Application.ExeName

Sliski Slimak (2003-07-12 09:15:00) [9]

GetCurrentDir

Наверх

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