8f0476314e
* contrib/hbqt/hbqt.ch
* contrib/hbxbp/xbp.ch
+ Using HB_TRACE() macro. This means that now .prg level
trace messages have to be enabled the standard way, __HB_DEBUG__
has no meaning anymore.
* contrib/hbwin/tests/testwmtx.prg
- Deleted some bits added by me as per Xavi's suggestions.
23 lines
423 B
Plaintext
23 lines
423 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
STATIC s_hMutex
|
|
|
|
PROCEDURE Main()
|
|
LOCAL cAppName
|
|
|
|
// It may be a random program name :)
|
|
hb_FNameSplit( hb_ProgName(), NIL, @cAppName )
|
|
|
|
s_hMutex := wapi_CreateMutex( NIL, NIL, cAppName )
|
|
IF ! Empty( s_hMutex ) .AND. wapi_GetLastError() == 0
|
|
? cAppName, "=> Hello World! OK."
|
|
ELSE
|
|
? cAppName, "=> Application is running. Error", wapi_GetLastError()
|
|
ENDIF
|
|
|
|
WAIT
|
|
|
|
RETURN
|