▲▲▲请教怎么通过代码实现在早8:00与晚17:00之间阻止qq.exe执行?▲▲▲

▲▲▲请问如何通过代码实现在早8:00与晚17:00之间阻止qq.exe执行????▲▲▲
请问如何通过代码实现在早8:00与晚17:00之间阻止qq.exe执行????

[解决办法]
给你一种方案（发消息）：不过，“发消息”被有的高人称为很“笨”的方法。

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用户登录 '));//窗口标题是QQ“登陆”还是“登录”？
if H <> 0 then SendMessage(H, WM_CLOSE, 0, 0);
end;
end;
[解决办法]
uses DateUtils;//使用TimeOf函数，需要引用这个单元。
[解决办法]
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用户登录 '));//窗口标题是QQ“登陆”还是“登录”？
if H <> 0 then SendMessage(H, WM_CLOSE, 0, 0);
end;
end;