~~~~~~~~~~~~~~~~~~~~~~~~~
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

