如何得到HANDLE，是其它执行程序的HANDLE，我比较笨！答完后，再加50 (50分)

同上！

use FindWdinow Api function

// 根据其他程序的窗口标题找其他程序的句柄
function GetWindowHandle(const WindowCaption: String): THandle;
begin
; Result := 0;
; if WindowCaption <> '' then
; begin
; ; Result := FindWindow(nil, PChar(WindowCaption));
; end;
end;

// 示例 使用GetWindowHandle
procedure TForm1.Button1Click(Sender: TObject);
var
; hHandle: THandle;
begin
; hHandle := GetWidnowHandle('计算器')
; if hHandle > 0 then
; ; ShowMessage('计算器的句柄是:' + IntToStr(hHandle))
; else
; ; ShowMessage('没有找到计算器的句柄');
end;

多人接受答案了。