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

type
  TAdvImage = class(TImage)
  private
    VOnMouseLeave: TNotifyEvent;
    VOnMouseEnter: TNotifyEvent;
    procedure Handle_MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure Handle_MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  published
    property OnMouseEnter: TNotifyEvent read VOnMouseEnter write VOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read VOnMouseLeave write VOnMouseLeave;
  end;					

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

type
  TStoppUhr = class(TForm)
     [...]
  private
     [...]
  public
     procedure Start(var msg: TMessage); message WM_CLOCKSTART;
     procedure Stop(var msg: TMessage); message WM_CLOCKSTOP;
     procedure Reset(var msg: TMessage); message WM_CLOCKRESET;
  end;					

1:
2:
3:

const WM_CLOCKSTART=WM_USER+1;
      WM_CLOCKSTOP =WM_USER+2;
      WM_CLOCKRESET=WM_USER+3;					

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

procedure TSender.Send(msg: cardinal);
var h: THandle;
begin
  h:=FindWindow('TStoppUhr',nil);  //das fremde Fenster finden und eine Referenz darauf erhalten
  if h<>0 then
    PostMessage(h,Msg,0,0) //Sende die message an die gegebene Referenz
  else
    ShowMessage('Stoppuhr wurde leider nicht gefunden. Ist das entsprechende Programm gestartet?');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TSender.Log(text: String);
var h: THandle;
    cds: TCopyDataStruct;begin

  //--- den String verpacken
  cds.dwData:=0;
  cds.cbData:=StrLen(PChar(text)) + 1;
  cds.lpData:=PChar(text);
  //---

  h:=FindWindow('TStoppUhr',nil);
  if h<>0 then
    SendMessage(h,WM_COPYDATA,Sender.Handle,Integer(@cds));
end;					

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

procedure TStoppUhr.Log(var msg: TWMCopyData );
var sText: array [0..256] of Char;
begin
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  Memo1.Lines.Add(inttostr(msg.From)+': '+sText);
  //sleep(1000); //hier können wir sehen, dass die sendende Applikation wartet bis dieser Code abgearbeitet ist.
end;					

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

type
  TLogInfo = packed record
    Index: integer;
    Sum: real;
    Hint: string[32];
  end;
  PLogInfo = ^TLogInfo; //ein Pointer auf unser record sei als Typ PLogInfo definiert					

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

procedure TSender.Log(index:integer; Sum: real);
var h: THandle;
    cds: TCopyDataStruct;
    rec: PLogInfo;
begin

  GetMem(rec, sizeof(TLogInfo)); //Speicher reservieren
  try
    //Record füllen
    rec.Index := Index;
    rec.Sum := Sum;

    //CopyDataStruct füllen
    cds.dwData := 0;
    cds.cbData := sizeof(TLogInfo);
    cds.lpData := rec;

    h:=FindWindow('TStoppUhr',nil);
    if h<>0 then
      SendMessage(h,WM_COPYDATA,Sender.Handle,Integer(@cds));
  finally
    FreeMem(rec, sizeof(TLogInfo)); //Speicher freigeben
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TStoppUhr.Log(var msg: TWMCopyData );
var
  rec: TLogInfo;
  sum: real;
  index: integer;
  hint: String[32];
begin
  index := PLogInfo(msg.CopyDataStruct.lpData)^.index;
  sum := PLogInfo(msg.CopyDataStruct.lpData)^.sum;
  hint := PLogInfo(msg.CopyDataStruct.lpData)^.hint;

  Memo1.Lines.Add('Status: "'+hint+'" Index:"'+inttostr(index)+' Sum: "'+floattostr(Sum)+'"');
end;					

1:

WM_CLOCKSTART:=RegisterWindowMessage('Give me the ClockStart-Message-Number');					

1:

procedure Start(var msg: TMessage); // message WM_CLOCKSTART;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TStoppUhr = class(TForm)
    [...]
     // Die Default WndProc überschreiben
     procedure WndProc(var msg : TMessage); override;
  end;

procedure TStoppUhr.WndProc(var msg : TMessage);
begin
  if msg.msg=WM_CLOCKSTART then
    begin
      Start(msg);
    end
  else
    inherited WndProc(msg);
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:

procedure TSniffer.Timer1Timer(Sender: TObject);
var h: THandle; TextLength: integer; Text: String;
begin
  if CheckBox1.Checked then
    begin
      h := FindWindow('TDeepThought',nil);
      if (h<>0) then
        begin
          h:=FindWindowEx(h,0,'TEdit',nil);
          if (h<>0) then
            begin
              TextLength := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) ;   if TextLength>0 then
              if (TextLength<>0) then
                begin
                  SetLength(Text,TextLength+1);

                  if SendMessage(H,WM_GETTEXT,TextLength+1,Integer(Pointer(Text)))>0 then
                    if Pos('The Answer Is:',Text)>0 then
                      Memo1.Lines.Add(Text);
                end;
            end;
        end;
    end;
end;					

1:

SendMessage(h,WM_SETTEXT,0,Integer(Pointer(Text)))					

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

procedure TSender.Log(index:integer; Sum: real);
var
  h: THandle;
  cds: TCopyDataStruct;
  rec: TLogInfo;
begin
    //Record füllen
  rec.Index := Index;
  rec.Sum := Sum;
  rec.Hint := 'irgendwas';

    //CopyDataStruct füllen
  cds.dwData := 0;
  cds.cbData := sizeof(rec);
  cds.lpData := @rec;

  h:=FindWindow('TStoppUhr',nil);
  if h <> 0 then
    SendMessage(h,WM_COPYDATA,Sender.Handle,Integer(@cds));
end;					

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

procedure TStoppUhr.Log(var msg: TWMCopyData );
var
  rec: PLogInfo;
begin
  rec := PLogInfo(msg.CopyDataStruct.lpData);
  Memo1.Lines.Add('Status: "'+rec.hint+'" Index:"'+inttostr(rec.index)+' Sum: "'+floattostr(rec.Sum)+'"');
end;