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

#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