窗口1添加一个button。添加button双击事件,代码如下: const MY_MESSAGE=WM_USER+100; var Form1: TForm1; hd:Thandle; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); begin hd:=FindWindow('TmyFORM1','myForm1'); if hd<>0 then begin PostMessage (Hd, MY_MESSAGE, 0,0); end else showmessage('找不到窗口myForm1'); end; FindWindow是根据窗口标题和窗口类来获得窗口的句柄。 接受端新建一个工程,窗口命名为myForm1。代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const MY_MESSAGE=WM_USER+100; type TmyForm1 = class(TForm) private { Private declarations } procedure mymessage(var mymsg:TMessage);message MY_MESSAGE; public { Public declarations } end; var myForm1: TmyForm1; impl