Получение имени модуля
Страница 3. Решение 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; |