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 ; |
