Страница 1 из 3
Решение 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; |