請問像鼎新的ERP(AP)自動登出的程式是如何寫的呢?
如果使用者進入系統,再他都沒按下任何一個鍵時Timer開始計數到時間過,
帳號自動登出,如果是每個鍵或每個文字方塊都加入事件,那是不是對程式太沒效率了,
如果使用者在某的Form編輯一半時,他就沒動了,然後又超過時間程式又不能把他踢出去.
請問各位大大是否還有其他方法?

------
123456

編輯記錄

可用Idle及鍵盤滑鼠事件,切換強制離開的計時器

在ApplicationEvents1Idle訊息開始時,去觸發到數計時的Timer
procedure TMain.TimerLogoutTimer(Sender: TObject);
begin
TimerLogout.Enabled:=False;
ShowMessage('您十分鐘沒操作, 強制退出.');
Application.Terminate;
end;

在ApplicationEvents1Message裡,有KeyDown及MouseDown事件,解除倒數計時
if ((msg.message=WM_KEYDOWN) or (msg.message=WM_LBUTTONDOWN) or (msg.message=
WM_MouseMove)) then
TimerLogOut.Enabled:=False;

参考一下这篇文章：http://www.vckbase.com/document/viewdoc/?id=567
(VC的)

編輯記錄

如果我有十幾個Form且每個Form裡有很多個按鈕或文字輸入方塊!
那是不是要寫很多的
if ((msg.message=WM_KEYDOWN) or (msg.message=WM_LBUTTONDOWN) or (msg.message=
WM_MouseMove)) then
TimerLogOut.Enabled:=False;
判斷呢?
===================引 用 pedro756901 文 章===================
可用Idle及鍵盤滑鼠事件,切換強制離開的計時器

在ApplicationEvents1Idle訊息開始時,去觸發到數計時的Timer
procedure TMain.TimerLogoutTimer(Sender: TObject);
begin
TimerLogout.Enabled:=False;
ShowMessage('您十分鐘沒操作, 強制退出.');
Application.Terminate;
end;

在ApplicationEvents1Message裡,有KeyDown及MouseDown事件,解除倒數計時
if ((msg.message=WM_KEYDOWN) or (msg.message=WM_LBUTTONDOWN) or (msg.message=
WM_MouseMove)) then
TimerLogOut.Enabled:=False;

------
123456

只要針對主Form放一顆TApplicationEvents元件
去處理它的事件即可

喔! 那我去試試看...
===================引 用 pedro756901 文 章===================
只要針對主Form放一顆TApplicationEvents元件
去處理它的事件即可

------
123456