Программирование Delphi

При вызове функция GetModuleName возвращает имя файла, который в настоящее время выполняет Ваш код. Вы только должны передать правильный дескриптор, чтобы правильно возвратить имя файла. В нашем случае это будет hInstance.

Ниже приводится код, который возвращает имя файла:

function GetModName: String;
var
   fName: String;
   nsize: cardinal;
begin
   nsize := 128;
   SetLength(fName, nSize) ;
   SetLength(fName,
             GetModuleFileName(
               hInstance,
               pChar(fName),
               nSize)) ;
   Result := fName;
end;