www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43045
Posted: Sat Apr 15, 2023 6:47 pm
Posted: Sat Apr 15, 2023 7:42 pmPosted: Sat Apr 15, 2023 9:13 pmHow to keep a appl. on top of the dlg on resize ? (solved)
Posted: Sun Apr 16, 2023 1:42 am? ExeName()Posted: Sun Apr 16, 2023 4:06 amnageswaragunupudi wrote:
- Code: Select all Expand view
Posted: Sun Apr 16, 2023 10:42 amPosted: Sun Apr 16, 2023 11:35 am
cOrigPath := "C:\DATA\ADDRESS.EXE"
IF ExeName() <> cOrigPath
? "Program name or directory have been changed!"
QUIT
ENDIF
cOrigPath := "C:\DATA\ADDRESS.EXE"
IF HB_ProgName() <> cOrigPath
? "Program name or directory have been changed!"
QUIT
ENDIF
? HB_ArgV( 0 )? GetModuleFileName( GetInstance() )Posted: Sun Apr 16, 2023 12:26 pm
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 )
nageswaragunupudi wrote: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.