How to get the filename of the process that is currently executing

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

Delphi tips navigator:
» Delphi Split / Tokenizer functions
« Close your application with the ESC key

• 1
• 2
• 3
• 4
• 5