Get App Name

[melliott42]

Hello,

From within the executing HMG application how can I programmatically determine the base program name?

For instance if my program is called myapp.exe I'd like it to return myapp.

Thanks,

Michael

[esgici]

Hello Michael

GetProgramFileName() => <cProgramFileNameWithFullPath>

For only file name you can use :

TOKEN( GetProgramFileName(),"\" )

Regards

--

Esgici

[melliott42]

esgici,

Great - thanks!

I wrapped it in a function.

Michael

#include "minigui.ch"
Function Main
msginfo( getAppBaseName() )
return

function getAppBaseName()
local cGetProgramFileName, nPosOfDot, cAppName

cGetProgramFileName := TOKEN( GetProgramFileName(),"\" )
nPosOfDot := at('.', cGetProgramFileName)
cAppName := SubStr( cGetProgramFileName, 1, nPosOfDot -1 )
return cAppName

[Rathinagiri]

Instead of at, if you put rat it will be ok. Isn't it?!

If the application's name is x.y.z.exe then x will the string that will be returned.

[esgici]

Hi Michael

Good.

Or in a more short and lazy ( ) way :

Code: Select all

#include "minigui.ch"
Function Main
msginfo( TOKEN( TOKEN( GetProgramFileName(), "." , 1 ), "\" ) )
return

Regards

--

Esgici

[melliott42]

Guys,

Thanks. Good suggestions!

Michael