线程可否向 其他应用程序 发送消息？ postmessage ( 积分: 100 )

在线程可否向其他应用程序发送消息？
for i:=1 to 1000 do
begin
sleep(10);
PostMessage(whandle, WM_KEYDOWN,VK_RETURN , 0);
sleep(10);
PostMessage(......);
我刚接触 线程 ，不懂。不用线程会死。

请指点！

在线程可否向其他应用程序发送消息？
for i:=1 to 1000 do
begin
sleep(10);
PostMessage(whandle, WM_KEYDOWN,VK_RETURN , 0);
sleep(10);
PostMessage(......);
我刚接触 线程 ，不懂。不用线程会死。

请指点！

>>不用线程会死。
???

unit Unitxx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Const WM_MyMSG=WM_USER+1003;
type
my = class(TThread)
private
{ Private declarations }
protected
procedure Execute;
override;

end;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure onmymsg(var message:TMessage);message WM_MyMSG;

public
{ Public declarations }
end;

var
Form1: TForm1;
var
m1:dword;

implementation
{$R *.dfm}
procedure TForm1.onmymsg(var message: TMessage);
begin
showmessage('123');
end;

procedure TForm1.Button1Click(Sender: TObject);
var m:my;
begin

m:=my.Create(false);
m.FreeOnTerminate:=true;
sendmessage(m1,WM_MyMSG,0,0);
end;

{ my }
procedure my.Execute;
begin
inherited;
sendmessage(form1.Handle,WM_MyMSG,0,0);

end;


end.

//贴代码了事

postmessage肯定没问题，sendmessages可能会引起同步问题

快揭贴了。。。。。。。。。。。。。。
WM_MyMSG=WM_USER+1003;
procedure TForm1.onmymsg(var message: TMessage);
begin
postmessage(,,,,) 就可以了吗？

end;

你是要postmessage给自己的窗口还是给其它的窗口？

多人接受答案了。