FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Run Program only once
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Run Program only once
Posted: Tue Oct 09, 2007 08:02 AM

How to control that a program only runs once.

Regards,
Otto

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Run Program only once
Posted: Tue Oct 09, 2007 08:12 AM
#include "Fivewin.ch"


FUNCTION MAIN()

    IF ISEXERUNNING( CFILENOEXT( HB_ARGV( 0 ) ) )
        ? "The app is already running"
        RETURN NIL
    ENDIF

    ? "This is the app's main loop"

    RETURN NIL


EMG
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Run Program only once
Posted: Tue Oct 09, 2007 08:34 AM

Thank you.
Otto

Continue the discussion