Question

谁能帮我把delphi或这VB或者PB中的一句代码翻译成易语言。就一句代码！

Delphi中发送消息的函数：PostMessage(ToHandle,1280,0,Msg.LParam)
VB中发送消息的函数：PostMessage(ToHandle, 1280, 0, ByVal lParam&)
PB中发送消息的函数send(ToHandle,1280,0,1)

这句话什么意思？Procedure OnMessage (var Msg :TMessage); message WM_USER;

public
ToHandle :Thandle;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Var
Pathstr :String;
// blnOutTime :Boolean;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//*******保证让软件能够和程序同时关闭（软件关闭时也一样）************//
PostMessage(ToHandle,WM_Close,0,0);
end;

procedure TForm1.Inter(var Msg: TMessage);
Var
StrList :TStrings;
temp:bool;
i:integer;
begin

Answer 1

1.　程序句柄不可能相同。
2.　易语言可以用调用dll命令的方式，调用PostMessageA函数

　　代码大概如下：

　　　发送消息(ToHandle,16,0,0)

控件.发送信息 (16, 0, 0)

追问

易语言超级模块有个发送信息功能，但是怎能才能发送信息 (16, 0, 0) 给其他进程或句柄呢？

追答

发送消息(ToHandle,16,0,0)　没有ToHandle这个参数吗？

追问

不太明白啊！发送消息：〈整数型〉 对象．发送信息。发送信息前面有个对象啊！比如A程序=A.EXE,B程序=B.EXE ,A.EXE怎么才能发送消息给B.EXE?

Answer 2

这是一个消息处理函数，处理特定的 Windows 消息，即 WM_USER
而 WM_USER 是用户自定义的消息类型，具体如何取决于你处理的程序
易语言不懂，纯帮顶

追问

你好！怎样才能做到两个程序句柄相同，向那个句柄发送"关闭"消息后，两个程序同时关闭

追答

两个程序的句柄是不可能相同的，那样的话，操作系统就无法区分不同的程序，也就不可能处理多任务的调度了。
对于你的问题，其实可以换个思路，就是分别找到两个程序的句柄，然后分别发送"关闭"消息。

至于如何找到两个程序的句柄(或其它信息)，方法有多种，其中相对最容易的是使用 FindWindow 函数，例如下面的代码：
var
HWndCalculator : HWnd;
begin
HWndCalculator := FindWindow(nil, '计算器');
if HWndCalculator 0 then
SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;
需要注意的是 FindWindow 函数的第二个参数，是窗体的名字，其实就是窗体的标题

追问

怎么向其他程序发送消息呢？ 易语言方式哦！