procedure IPC_Callback(lpName: PChar;
lpMessageBuf: PWChar;
dwMessageLen: DWORD;
lpAnswerBuf: Pointer;
dwAnswerLen: DWORD;
lpContext: Pointer); stdcall;
begin
try
PINT(lpAnswerBuf)^ := SendMessage(HostApplicationMain.Handle, WM_USER + 777, NativeInt(lpMessageBuf), $777);
finally
end;
end;
procedure THostApplicationMain.HandleIPC(var Message: TMessage);
Var
ParamList : TstringList;
begin
ParamList := TstringList.Create;
ParamList.Text := PWChar(pointer(Message.wParam));
//do something
ParamList.Free;
Message.Result := 1;
end;
Users browsing this forum: Google [Bot] and 8 guests