У меня работает так:

LOCAL llRetValue,lnHandle

DECLARE INTEGER CreateEvent IN Win32API;
INTEGER lpEventAttributes,;
SHORT bManualReset,;
SHORT bInitialState,;
STRING @lpName

DECLARE INTEGER GetLastError IN Win32API

DECLARE CloseHandle IN Win32API INTEGER hObject

lnHandle=CreateEvent(0,0,1,PROGRAM(0)+'.EVENT')

llRetValue=.F.
IF GetLastError()=183 OR lnHandle=0
llRetValue=.T.
=CloseHandle(lnHandle)
ENDIF

RETURN llRetValue