有關登入後一段時間自動登出的問題. |
缺席
|
yuanze
一般會員 發表:7 回覆:5 積分:2 註冊:2002-07-23 發送簡訊給我 |
|
xwing
初階會員 發表:17 回覆:56 積分:44 註冊:2002-12-31 發送簡訊給我 |
|
bruce0211
版主 發表:157 回覆:668 積分:279 註冊:2002-06-13 發送簡訊給我 |
|
yuanze
一般會員 發表:7 回覆:5 積分:2 註冊:2002-07-23 發送簡訊給我 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
登出的寫法與關機差不多 參考 是否有哪個函數可以關閉電腦的
hagar 版主
http://delphi.ktop.com.tw/topic.php?topic_id=18275 自己再加個時間元件 比對 偵測 **********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together!
希望能大家敞開心胸,將知識寶庫結合一起
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
yuanze
一般會員 發表:7 回覆:5 積分:2 註冊:2002-07-23 發送簡訊給我 |
以下是我的想法...
1.先寫一個方法,如下所列示...
procedure TfrmMain.MyMessageProcess(var Msg: TMsg;
var Handled: Boolean);
begin
if ((Msg.message >= WM_KEYFIRST) AND (Msg.message <= WM_KEYLAST)
or
(Msg.message >= WM_MOUSEFIRST) AND (Msg.message <=
WM_MOUSELAST)) then
begin
StatusBar1.Panels.Items[1].text := 'Key and Mouse
message' DateTimeToStr(Now);
if StartTime <> 0 then
if ((GetTickCount - StartTime) >= 1500) and (not
IsShowIdleWindow) then
begin
IsShowIdleWindow := true;
ShowMessage('Time over 15 Second!!');
IsShowIdleWindow := false;
end;
StartTime := 0;
end
else begin
StatusBar1.Panels.Items[0].text := 'not Key and Mouse
message' DateTimeToStr(Now);
if StartTime = 0 then
StartTime := GetTickCount;
end;
Handled := false;
//stub
end; 2.然後在FormCreate時加入以下的程式碼...
StartTime := 0;
IsShowIdleWindow := false;
Application.OnMessage := MyMessageProcess; 這樣子一來,既會在時間到時Show出message告知了。
不知各位高手們是否還有比較好的解法?謝謝
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
不錯阿
粉有實力 哈哈 **********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together!
希望能大家敞開心胸,將知識寶庫結合一起
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
yuanze
一般會員 發表:7 回覆:5 積分:2 註冊:2002-07-23 發送簡訊給我 |
|
dllee
站務副站長 發表:321 回覆:2519 積分:1711 註冊:2002-04-15 發送簡訊給我 |
引言: 請教各位高手們... 日前小弟負責的系統遇到一個需求,就是當user登入系統後若在一定的時間後沒有操做系統(也就是系統一直處於Idle的狀態下)就自動的登出系統。 想請教這個需求要如何的處理。謝謝。 >>< face="Verdana, Arial, Helvetica"> 我想,你想作的應該是針對你寫的軟體而不是 windows 系統吧 如果是,以下的元件就是你需要的 <> 檔案名稱:> 這是最近在找 > 以我所作的「系統」是一定要使用者登入後,再依使用者的權限將部分或全部的 ><>>介紹> 發表人 -
------
http://www.ViewMove.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |