Получить имя файла запущенного процесса

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

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