Code:

function GetModName: String;

var

fName: String;

nsize: cardinal;

begin

nsize := 128;

SetLength(fName,nsize);

SetLength(fName,

           GetModuleFileName(

             hinstance,

             pchar(fName),

             nsize));

Result := fName;

end;