| ; UnHookWindowsHookEx(hHook);
hHook := 0;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
hHook := 0;
bNotRunning:=True;
StartHook;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(TimeTotal);
label1.Caption := floattostr(TimeTotal);
if (TimeTotal > Timescount) and bNotRunning then
begin
bNotRunning:=False;
ShellExecute(Handle, ''''open'''', PChar(''''notepad''''),
nil, nil, SW_SHOW);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
stophook;
end;
end.
程序很短吧？我仅仅启动了记事本，示范了我是怎样完成此功能的，并没有进行更多的考虑。如果你想使用此方法，我建议你首先要对你进行的任务进行更多的控制，包括启动、进度、过程、结束等。你也可以对任务进行列表。如果你不知道怎样控制外部程序，你可以去http://www.csdn.net参考我的另一篇拙文：《启动外部程序并等待它的结束》。 好了，除了屏幕保护和计划任务，你又多了一项选择了。就赶快实现它吧。
上一页 [1] [2] | 
