通过代码取消空闲状态...

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;