how to get "Name" of App ?

[Jimmy]

hi,

under Xbase++i have AppName() to get "Name" of App
how under Fivewin

[karinha]

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=31155&p=180163&hilit=HB_ARGV&sid=01ac4c30bf4be4755dde9ce6acb4bcc5&sid=9d6c2fd2fb337b5a04c537edc8214103#p180163

Regards, saludos.

[Jimmy]

hi,

thx for Answer

the Link point to

How to keep a appl. on top of the dlg on resize ? (solved)

---

i got 2 Solution
1.) GetModuleFileName( GetInstance() )
2.) GetAppName()
where 2nd point to 1St

[nageswaragunupudi]

Code: Select all  Expand view  RUN

? ExeName()

[Jimmy]

hi,

Code: Select all  Expand view  RUN

? ExeName()

so there are 3 Solution

... "where" is ExeName() ... can´t find it under \fwh

[nageswaragunupudi]

This is a function from Clipper Tools functions, available from the good old Clipper days.
This is available in CT.LIB for xHarbour and hbct.lib for Harbour.
This lib is automatically linked in build?..

Please note that this returns the exename with full path.

[karinha]

Thanks mister Rao:

Code: Select all  Expand view  RUN

      cOrigPath  :=  "C:\DATA\ADDRESS.EXE"
      IF ExeName() <> cOrigPath
         ? "Program name or directory have been changed!"
         QUIT
      ENDIF
 

Harbour:

Code: Select all  Expand view  RUN

      cOrigPath  :=  "C:\DATA\ADDRESS.EXE"
      IF HB_ProgName() <> cOrigPath
         ? "Program name or directory have been changed!"
         QUIT
      ENDIF
 

Regards, saludos.

[nageswaragunupudi]

We can also get exactly the same result with

Code: Select all  Expand view  RUN

? HB_ArgV( 0 )

and

Code: Select all  Expand view  RUN

? GetModuleFileName( GetInstance() )

What to use is just a matter of personal taste.
I use ExeName()

[karinha]

Yes,

https://vivaclipper.wordpress.com/2014/02/26/hb_argv/

Code: Select all  Expand view  RUN

Example:

      // If command line is :  C:\temp>test.exe p1 p2

        ? HB_ArgV()     // C:\temp\test.exe
        ? HB_ArgV( 0)   // C:\temp\test.exe
        ? HB_ArgV( 1 )  // p1
        ? HB_ArgV( 2 )  // p2
        ? HB_ArgV( 3 )  // ( Null String )
 

Regards, saludos.

[Jimmy]

hi,

This is a function from Clipper Tools functions, available from the good old Clipper days.
This is available in CT.LIB for xHarbour and hbct.lib for Harbour.

ahh, i begin to remember ...

thx for Answer