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

← →
Шустрый © (2003-07-12 07:35) [0]

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

← →
Sliski Slimak (2003-07-12 09:15) [1]

GetCurrentDir

← →
Pico (2003-07-12 09:27) [2]

func Application.ExeName

← →
Шустрый © (2003-07-12 10:28) [3]

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

← →
Mear © (2003-07-12 10:46) [4]

А можно еще:

function ParamStr(Ind: Integer): string;

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

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

← →
Mear © (2003-07-12 10:46) [5]

А можно еще:

function ParamStr(Ind: Integer): string;

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

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

← →
Reals © (2003-07-12 12:39) [6]

function ExtractFilePath(Application.Exename): String;

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

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

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

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

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