Получение имени модуля - Решение 3
ОГЛАВЛЕНИЕ
Страница 3 из 3
Решение 3
// Включить в Uses SysUtils
procedure TMainForm.Button2Click(Sender: TObject);
var AppDirectory,AppPathName : string;
begin
AppPathName := Application.ExeName; AppDirectory := ExtractFilePath(AppPathName);
messageDlg('Имя программы '+ AppPathName+#13+ 'Имя каталога программы '+ AppDirectory ,mtInformation,[mbOK],0);end;