已知窗口caption,如何獲得該窗口句柄,並將該窗口釋放。(20分)

  • 主题发起人 主题发起人 leway
  • 开始时间 开始时间
windowfrompoint(point)
成功返回窗口的句柄,失败返回NULL...
 
句柄得到後那如何將該窗體釋放
 
procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle := FindWindow(nil, '改成窗体标题名称,即caption的值');
if MyHandle <> 0 then
PostMessage(MyHandle, WM_ClOSE, 0, 0)
else
ShowMessage('没找到');
end;
 
春意:
基本對了,但還有個小問題,我要求將窗口釋放而不是關閉,請問PostMessage(MyHandle, WM_ClOSE, 0, 0)中用哪個參數。
 
PostMessage(MyHandle, WM_ClOSE, 0, 0)
就已经释放掉了
 
為何出現一下錯誤。
[Error] objApplication.pas(63): Undeclared identifier: 'FindWindow'
[Error] objApplication.pas(63): Undeclared identifier: 'PostMessage'
 
这种api函数因应该是定义在windows这个单元中的啊,怎么会找不到它的定义呢?
 
多人接受答案了。
 
后退
顶部