通過代碼取消空閒狀態...

Question

我正在檢測機器空閒狀態，如果空閒，我執行一個動作。

其中一個操作必須取消該狀態，否則將進入循環。
我想在執行它時阻止重新進入空閒循環，我該怎麼做？

Answer 1

通過按下一個鍵我想這會做的伎倆

keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),0,0); 
    keybd_event(VK_SHIFT,MapVirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0); 

這按下Shift鍵，然後系統會認爲電腦也不閒着任何更多...

Answer 2

的一種方式，以防止重入是記住，如果你已經進入了事件處理程序：

type 
    TForm1 = class(TForm) 
    ApplicationEvents1: TApplicationEvents; 
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); 
    private 
    { Private-Deklarationen } 
    FInOnIdle: Boolean; 
    public 
    { Public-Deklarationen } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); 
begin 
    if FInOnIdle then Exit; 

    FInOnIdle := True; 
    try 
    
    finally 
    FInOnIdle := False; 
    end; 
end;

Answer 3

添加標誌在窗體的增值經銷商，測試，看看你在空閒循環是已：

interface 

type TForm1 = class(TForm) 
... 
private 
... 
    InIdleLoop: boolean; 
... 

implementation 

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); 
begin 
    if InIdleLoop then exit; 
    InIdleLoop:= true 
    try 
    //Do your idle processing here 

    finally 
    InIdleLoop:= false; 
    end; {try} 
end;