Получение имени модуля

Written on 17 Октября 2007. Posted in [Delphi] Система. Win32

Решение 1

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;