1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

unit Unit1;

interface
  uses Classes, Graphics, Controls, Forms, Dialogs, Windows,
  StdCtrls, ExtCtrls;

type
  testClass = class(TObject)
    windowHandle : HWND;

    procedure createHandle();
    procedure doZeugs(Sender: TObject);
  end;

implementation
  procedure testClass.createHandle();
  begin
    windowHandle := AllocateHWnd(doZeugs);
  end;

  procedure testClass.doZeugs(Sender: TObject);
  begin

  end;
end.					

1:

  TWndMethod = procedure(var Message: TMessage) of object;					

1:

 procedure WindowsMessagesReceiver(var Message: TMesssage);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

program Sender;

{$APPTYPE CONSOLE}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

var
  data : TCopyDataStruct;
  test : PChar;
  wnd: HWND;

begin
  while True do
  begin
     Writeln('Um zu senden Durecken Sie enter');
     Readln;
     Write('Sende...');

     test := 'C:\Dokumente und Einstellungen\Sickinger\Desktop\Sockutil\UdpSockUtil.pas';

     data.dwData := 0;
     data.cbData := strlen(test) + 1;
     data.lpData := test;

     SendMessage(wnd_broadcast, WM_COPYDATA, 1,
              Longint(@data));

     Writeln('OK');
  end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TTestThread = class(TThread)
  private
    FSignalShutdown: boolean;
    FWinHandle: HWND;
  protected
    procedure Execute; override;
    procedure WndProc(var msg: TMessage);
  public
    constructor Create;
    destructor Destroy; override;
    //procedure PrintMsg;
  end;


implementation

var
  WM_SHUTDOWN_THREADS: Cardinal;

{ TTestThread }

constructor TTestThread.Create;
begin
  FSignalShutdown := False;
  FWinHandle := AllocateHWND(WndProc);
  inherited Create(False);
end;

destructor TTestThread.Destroy;
begin
  DeallocateHWnd(FWinHandle);
  inherited;
end;

procedure TTestThread.Execute;
begin
  FreeOnTerminate := True;
  while NOT FSignalShutdown do
  begin
    Application.HandleMessage;
  end;
  //Synchronize(PrintMsg);
end;


procedure TTestThread.WndProc(var msg: TMessage);
begin
  Writeln('halloasdfasdfasfdasdfadsaf');
end;

end.					

1:

SendMessage(FindWindow('FWinHandle', nil), WM_COPYDATA, 1, Longint(@data));					

1:
2:
3:
4:
5:
6:

constructor TTestThread.Create;
begin
  FSignalShutdown := False;
  FWinHandle := AllocateHWND(WndProc); //hier wird der handler angelegt!!
  inherited Create(False);
end;					

1:
2:
3:
4:
5:

TWMCopyData = packed record
    Msg: Cardinal;
    From: HWND;
    CopyDataStruct: PCopyDataStruct;
    Result: Longint;					

1:

TWMCopyData(Message).CopyDataStruct					

1:
2:
3:
4:
5:

const
  sWndTitle = 'MyReceiver';

FWinHandle := AllocateHWND(WndProc); //hier wird der handler angelegt!!
SendMessage(FWinHandle, WM_SETTEXT, 0, Integer(Pointer(sWndTitle))); // Fenster-Titel ändern					

1:
2:
3:
4:
5:
6:

var
  wnd: HWND;

wnd := FindWindow('TPUtilWindow', 'MyReceiver');
if wnd <> 0 then
  SendMessage(wnd, WM_COPYDATA, 1, Longint(@data));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TTestThread.WndProc(var msg: TMessage);
var
  data : PCopyDataStruct;
begin

  data := TWMCopyData(msg).CopyDataStruct;

  Writeln('out:', String(data.lpData));

end;					

1:
2:
3:
4:
5:

procedure TTestThread.WndProc(var msg: TMessage);
begin
  if msg.Msg = WM_COPYDATA then
    Writeln('out:', PChar(PCopyDataStruct(msg.lParam)^.lpData));
end;