Program - servis komunikacija

Code:

//
// slanje strukture (poruke) event prozoru CommWindowHandle
//
var
  event: TMyEvent;
...
GlobalMemoryHandle := GlobalAlloc(GHND, SizeOf(event));
if GlobalMemoryHandle = 0 then
  raise Exception.Create('GlobalAlloc: Unable to allocate memory block');

try
  GlobalMemoryPtr := GlobalLock(GlobalMemoryHandle);
  try
    Move(event, GlobalMemoryPtr^, SizeOf(event));
  finally
    GlobalUnlock(GlobalMemoryHandle);
  end;
  PostMessage(CommWindowHandle, WM_IPC_EVENT, 0, GlobalMemoryHandle);
except
  GlobalFree(GlobalMemoryHandle);
end;

//
// obrada poruke
//
procedure TMyApp.WndProc(var Message: TMessage);
var
  GlobalMemoryHandle: HGLOBAL;
  pEvent: ^TMyEvent;
begin
  case Message.Msg of
  
    WM_IPC_EVENT:
    begin
      GlobalMemoryHandle := Message.LParam;      
      pEvent := pointer(GlobalLock(GlobalMemoryHandle));      
      try 
        // Do the event
        OnEvent(pEvent^);
      finally
        GlobalUnlock(GlobalMemoryHandle);
        GlobalFree(GlobalMemoryHandle);
      end;
    end;

  end;
end;