6 6bytes Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-26 #2 windowfrompoint(point) 成功返回窗口的句柄,失败返回NULL...
春 春意 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-26 #4 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;
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;
L leway Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-26 #5 春意: 基本對了,但還有個小問題,我要求將窗口釋放而不是關閉,請問PostMessage(MyHandle, WM_ClOSE, 0, 0)中用哪個參數。
B bjbaihaiqing Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-26 #6 PostMessage(MyHandle, WM_ClOSE, 0, 0) 就已经释放掉了
L leway Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-26 #7 為何出現一下錯誤。 [Error] objApplication.pas(63): Undeclared identifier: 'FindWindow' [Error] objApplication.pas(63): Undeclared identifier: 'PostMessage'
為何出現一下錯誤。 [Error] objApplication.pas(63): Undeclared identifier: 'FindWindow' [Error] objApplication.pas(63): Undeclared identifier: 'PostMessage'
5 52free Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-26 #8 这种api函数因应该是定义在windows这个单元中的啊,怎么会找不到它的定义呢?