用RegisterwindowMessage注冊唯一窗口标识
send方
var
Form1: TForm1;
UserMessage:UINT;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow('TForm1','RegisterMessage Get Example'),UserMessage,0,0);
//'RegisterMessage Get Example'接受窗口名字caption
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
UserMessage:=RegisterwindowMessage('System Wide User Defined Message');
end;
get方:
var
Form1: TForm1;
UserMessage:UINT;
implementation
{$R *.dfm}
procedure TForm1.DefaultHandler(var Msg);
begin
inherited DefaultHandler(Msg);
if (TMessage(Msg).Msg=UserMessage) then
begin
button1.Click;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
UserMessage:=RegisterWindowMessage('System Wide User Defined Message');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('ok');
end;