Question

用delphi如何定时关闭包含指定字符串的窗口,在线等!!!!!

我的程序需要定时关闭包含指定字符串的窗口,求简洁的代码(delphi),在线等,马上给分!! 包含指定字符串是重点,我要对它进行操作!!!

Answer 1

在定时器中用Findwindow（你要关闭的程序名称）返回句柄，然后用CloseHandle(要结束的程序的句柄)结束该程序
var
myhwn:Thandle;
begin
myhwn:=FindWindow(你要关闭的程序名称);
if not ishandle(myhwn) then
exit;
CloseHandle(myhwn);

Answer 2

//遍历进程窗口
Function EnumWinProc(Wnd:HWND;lParam:DWORD) : Boolean; Export;StdCall;
var
WinText,Str : Array[0..255] of Char;
begin
GetWindowText(Wnd, WinText, 255);
Result:=true;
if pos('指定标题字符串',StrPas(WinText))>0 then
begin
HWindow:=Wnd;
PostMessage(HWindow,WM_CLOSE,0,0);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@EnumWinProc,LongInt(Self));
end;