Como adiciono esta funcion a mi ejecutable

[Vladimir Zorrilla]

Amigos necesito esta funcion como la agrego a mi aplicacion

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

CLIPPER ISEXERUNNING( PARAMS ) // ( cExeNameCaseSensitive ) --> lResult
{
HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) _parc( 1 ) );

_retl( GetLastError() == ERROR_ALREADY_EXISTS );

ReleaseMutex( hMutex );
}

#pragma ENDDUMP

hago esto pero no lo reconoce

[Antonio Linares]

Vladimir,

Hazlo asi:

Code: Select all  Expand view

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( ISEXERUNNING ) // ( cExeNameCaseSensitive ) --> lResult
{
   HANDLE hMutex = CreateMutex( NULL, TRUE, ( LPTSTR ) hb_parc( 1 ) );

   hb_retl( GetLastError() == ERROR_ALREADY_EXISTS );

   ReleaseMutex( hMutex );
}

#pragma ENDDUMP