procedure TForm1.Button1Click(Sender: TObject);
var
szFileName : array[0..49] of char;
szModuleName : array[0..19] of char;
iSize : integer;
begin
StrPCopy(szModuleName, 'NameOfModule');
iSize := GetModuleFileName(GetModuleHandle(szModuleName),szFileName,
SizeOf(szFileName));
if iSize > 0 then
ShowMessage('Имя модуля с полным путем: ' + StrPas(szFileName))
else
ShowMessage('Имя модуля не встречено');
end;
// Включить в Uses SysUtilsprocedure TMainForm.Button2Click(Sender: TObject);
var
AppDirectory, AppPathName: string;
begin
AppPathName := Application.ExeName;
AppDirectory := ExtractFilePath(AppPathName);
messageDlg('Имя программы '+ AppPathName+#13+
'Имя каталога программы '+ AppDirectory
,mtInformation,[mbOK],0);
end;
Статья Получение имени модуля раздела Компоненты и Классы Модули может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.