思路： 用FindWindow找到窗口的hWnd，(可以通过窗口类名或标题)，然后PostMessage(hWnd, WM_CLOSE, 0, 0);

　　Windows API 提供了函数FindWindow，可以让应用程序在启动时检查自己或其他应用程序是否已经存在。该函数在Delphi中的语法为：

　　function FindWindow(lpClassName: PChar, lpWindowName: PChar): HWND;

　　其中，参数lpCalssName 是要查找的窗口的类的名称，参数lpWindowName是要查找的窗口的标题(Caption)。 如果找到了相应的窗口实例，将返回一个非0 的该窗口句柄的整型值，否则返回0 。

　　例如：

　　//弹出模态对话框

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　application.MessageBox(\'It should be closed in 5 second!\',\'My Title\');

　　end;

　　//因为对话框是模态的，所以为简单起见，放在一个定时器中关闭它(定时器的周期为5秒)

　　procedure TForm1.Timer1Timer(Sender: TObject);

　　var

　　ahWnd:hWnd;

　　begin

　　ahwnd:=findWindow(nil,\'My Title\');

　　if ahwnd <> 0 then

　　PostMessage(ahWnd,WM_CLOSE, 0, 0);

　　end;

评论 (0) All

登陆 还没注册？