最近在開發一個系統,需要用到一個這樣的功能,就是客戶在運作了系統后,離開,或者去做別的事情了,但沒有關閉系統,我想實現,在客戶將系統閑置了一段時間后系統進入鎖定狀態.
怎樣能判斷運行的程序是否處於閑置的狀態呢
系統開發工具(D6+SQLSERVER)
大家幫幫我,小弟急啊

解决方案 »

  1.   

    說說看,是數據庫編程,不是即時通訊
    你說的那樣,那如果他最小化,比如他去打開word 去打字了呢?那鼠標不就不行了
      

  2.   

    GetLastInputInfo
    能否說明一下用法,
    謝謝
      

  3.   

    提供一个系统空闲时间函数(ms),你可以用timer控件定时监测,如果系统空闲时间超过指定时间则做你想做的事:(系统空闲-指系统无任何操作,包括键盘和鼠标)
    function LastInput:dword;
    var
      LInput: TLastInputInfo;
    begin
      LInput.cbsize := sizeof(TLastInputInfo);
      GetLastInputInfo(LInput);
      result := GetTickCount - LInput.dwtime;
    end;  http://www.delphibbs.com/keylife/iblog_show.asp?xid=19443