DECLARE INTEGER CreateEvent  IN WIN32api INTEGER,INTEGER,integer,string @
*DECLARE INTEGER OpenEvent  IN WIN32api INTEGER,integer,string @

i=CreateEvent( 0 , 0 , 0 ,"ConnectNamedPipe")

*typedef struct _OVERLAPPED 
*{  DWORD  Internal;      
*  DWORD  InternalHigh;  
*  DWORD  Offset;        
*  DWORD  OffsetHigh;    
*  HANDLE hEvent;   // указатель на событей устнавливаемое при завершении операции }    
OVERLAPPED=REPLICATE(CHR( 0 ), 16 )+wordtostr(i)

#DEFINE STANDARD_RIGHTS_REQUIRED 0xF0000
#DEFINE PIPE_ACCESS_OUTBOUND 0x00000002
#DEFINE PIPE_NOWAIT 0x00000001
#DEFINE PIPE_TYPE_MESSAGE 0x00000004
#DEFINE FILE_FLAG_OVERLAPPED 0x40000000
#DEFINE PIPE_TYPE_BYTE 0x00000000
#DEFINE ERROR_PIPE_CONNECTED  535 

DECLARE INTEGER GetLastError IN kernel32

DECLARE INTEGER CreateNamedPipe IN kernel32;
	STRING lpName, INTEGER dwOpenMode, INTEGER dwPipeMode,;
	INTEGER nMaxInstances, INTEGER nOutBufferSize, INTEGER nInBufferSize,;
	INTEGER nDefaultTimeOut, INTEGER SECURITY_ATTRIBUTES

DECLARE INTEGER ConnectNamedPipe IN kernel32 INTEGER hNamedPipe, string @ lpOverlapped

DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject

DECLARE INTEGER WriteFile IN kernel32 INTEGER hFile,;
STRING lpBuffer, INTEGER nBt2Write, INTEGER @ lpBtWritten, INTEGER lpOverlapped

WAIT WINDOW NOWAIT "CreateNamedPipe"
pipehnd = CreateNamedPipe("\\.\pipe\PPing", BITOR(PIPE_ACCESS_OUTBOUND,FILE_FLAG_OVERLAPPED,PIPE_TYPE_MESSAGE,PIPE_NOWAIT), ;
	PIPE_TYPE_BYTE,  1 ,  0 ,  0 ,  500 ,  0 )
If pipehnd =  0 
	= CloseHandle(pipehnd)
	MESSAGEBOX("Error1")
	CLEAR DLLS
	RETURN
ENDIF
WAIT WINDOW NOWAIT "ConnectNamedPipe"
s=SECONDS()
m.res = ConnectNamedPipe(pipehnd, @OVERLAPPED)
WAIT  WINDOW "wait" TIMEOUT  20 
? SECONDS()-s
If m.res <>  0  .Or. (res =  0  And GetLastError() = ERROR_PIPE_CONNECTED)
	? m.res 
	m.buffer = ALLTRIM(STR( 100 )) && íà áóäóùåå
	m.lenbuf = LEN(m.buffer)
	m.written =  0 
	m.res = WriteFile(pipehnd, m.buffer, m.lenbuf, @m.written,  0 )
	? m.written
Else
	= CloseHandle(pipehnd)
	MESSAGEBOX("Error2"+STR(GetLastError()))
* 6  The handle is invalid.  ERROR_INVALID_HANDLE
	CLEAR DLLS
	RETURN
ENDIF
WAIT clear
MESSAGEBOX("Ok!")
= CloseHandle(pipehnd)
CLEAR DLLS
return

pipehnd = CreateNamedPipe("\\.\pipe\PPing", BITOR(PIPE_ACCESS_OUTBOUND,FILE_FLAG_OVERLAPPED), ;
	BITOR(PIPE_NOWAIT,PIPE_TYPE_MESSAGE),  1 ,  0 ,  0 ,  500 ,  0 )

m.res = ConnectNamedPipe(pipehnd, OVERLAPPED)

hEvent=CreateEvent( 0 , 1 , 0 ,"ConnectNamedPipe")
*typedef struct _OVERLAPPED 
*{  DWORD  Internal;   
*  DWORD  InternalHigh;
*  DWORD  Offset;        
*  DWORD  OffsetHigh;    
*  HANDLE hEvent;   }    
OVERLAPPED = GlobalAlloc(0x2000,  20 )
= SYS( 2600 , OVERLAPPED,  20 , REPLICATE(CHR( 0 ), 16 )+dwordtostr(hEvent))