15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как получить путь запущенного приложения

для этого используется функция ExtractFilePath. Вот примеры её использования:

Первый:

MessageDlg('program path = '+ExtractFilePath(Application.ExeName, mtInformation, [mbOk], 0 );

Второй:

function ApplicationPath:string;
begin
   Result := ExtractFilePath(ParamStr(0));
end;