1,184
社区成员
发帖
与我相关
我的任务
分享关闭运行外部Windows程序代码问题，请教！
这是试编的例程，
procedure TForm1.Button2Click(Sender: TObject);
var
HWndCalculator : HWnd;
begin
// find the exist calculator window
HWndCalculator:=Winprocs.Findwindow('计算器',nil);
if HWndCalculator<> 0 then
SendMessage(HWndCalculator,WM_CLOSE,0,0);
end;
但调试出错：Undeclare Indentifier Winprocs
怎么回事，是不是少了use 东东？当然能把里面的代码解释下最好^_^,谢谢了！
procedure TForm1.Button2Click(Sender: TObject);
var
HWndCalculator : HWnd;
begin
// find the exist calculator window
HWndCalculator:=Winprocs.Findwindow('计算器',nil);
if HWndCalculator<> 0 then
SendMessage(HWndCalculator,WM_CLOSE,0,0);
end;
但调试出错：Undeclare Indentifier Winprocs
怎么回事，是不是少了use 东东？当然能把里面的代码解释下最好^_^,谢谢了！
...全文
请发表友善的回复…
发表回复
stone565 2003-08-04
- 打赏
- 举报
谢谢楼上各位的热心相助！
firetoucher 2003-07-31
- 打赏
- 举报
1 use windows单元
2 findwindow sendmessage是两个api函数，查找窗口和向窗口发消息，看msdn
2 findwindow sendmessage是两个api函数，查找窗口和向窗口发消息，看msdn
firetoucher 2003-07-31
- 打赏
- 举报
Windows.Findwindow('计算器',nil);
fuyifan 2003-07-31
- 打赏
- 举报
同意WWWWA(aaaa)
WWWWA 2003-07-31
- 打赏
- 举报
HWndCalculator:=Findwindow('计算器',nil);
bqylin 2003-07-31
- 打赏
- 举报
Windows已经是默认引用了，试试引用Winprocs
