procedure TForm1.Timer1Timer(Sender: TObject); var T1, T2 : TTime; H : HWND;begin T1 := StrToTime('08:00:00'); T2 := StrToTime('17:00:00'); if (TimeOf(Now) > T1) and (TimeOf(Now) < T2) then begin H := FindWindow(nil, PChar('计算器'));//窗口标题是QQ“登陆”还是“登录”? if H <> 0 then SendMessage(H, WM_CLOSE, 0, 0); self.Hide; end; end;
var
T1, T2 : TTime;
H : HWND;begin
T1 := StrToTime('08:00:00');
T2 := StrToTime('17:00:00');
if (TimeOf(Now) > T1) and (TimeOf(Now) < T2) then
begin
H := FindWindow(nil, PChar('计算器'));//窗口标题是QQ“登陆”还是“登录”?
if H <> 0 then SendMessage(H, WM_CLOSE, 0, 0); self.Hide;
end;
end;