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

Для этого существует функция GetModuleFileName, которая возвращает имя файла текущего процесса.

function GetModName: string;
var
  fName: string;
  nsize: cardinal;
begin
  nsize := 128;
  SetLength(fName, nsize);
  SetLength(fName,
    GetModuleFileName(
    hinstance,
    pchar(fName),
    nsize));
  Result := fName;
end;