>>>Declare Long FindWindowA In Win32API String cNULL, String cWinName >>>DECLARE LONG SendMessage IN user32 AS WinAPI_SendMessage ; >>> LONG,; >>> LONG,; >>> LONG,; >>> STRING @ >>>sTitle = "kl_ecrsunucu" >>>iHwnd = FindWindowA(0, sTitle) >>>#DEFINE WM_COPYDATA 0x004A >>>* _vfp.hWnd >>>xstr="qqq" >>>lnRetVal = WinAPI_SendMessage(ihWnd, WM_COPYDATA, this.HWnd , @xstr) >>>WAIT WINDOW lnretval >>>>>>
>>typedef struct tagCOPYDATASTRUCT { >> ULONG_PTR dwData; && any data: The data to be passed to the receiving application >> DWORD cbData; && The size, in bytes, of the data pointed to by the lpData member >> PVOID lpData; && The data to be passed to the receiving application. This member can be NULL. >>} COPYDATASTRUCT, *PCOPYDATASTRUCT; >>>>
>>function ReceiveDetailMessage(hwnd, msg, wparam, lparam) >> >> local dwdata, cbdata , lpData, s >> >> dwdata = ctobin(Sys(2600, m.lparam+0, 4), '4rs') >> cbdata = ctobin(Sys(2600, m.lparam+4, 4), '4rs') >> lpData = ctobin(Sys(2600, m.lparam+8, 4), '4rs') >> s= sys(2600, m.lpData, m.cbdata ) >> >>>