Глобальная цепочка потоков занимает слишком много CPU, как исправить?

Question

Следующий глобальный поток Hook занимает слишком много CPU, если я не добавлю Sleep (10), есть другое решение, чем Sleep (10 мс) - сон не выглядит оптимальным решением для производительности моего приложения. Если я добавлю слишком много сна, это не замедлит мышь.

procedure THookThread.Execute; 
    begin 
     hookhandle := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseHook, Hinstance, 0); 

    while not Terminated do 
     begin  
     MessageLoop; 
     // Sleep(10); 
     end; 

     UnHookWindowsHookEx(hookhandle); 
     hookhandle := 0; 

    end; 

procedure THookThread.MessageLoop; 
var 
    msg: TMsg; 
begin 
    while PeekMessage(msg, 0, 0, 0, PM_NOREMOVE) do 
    begin 
    TranslateMessage(msg); 
    DispatchMessage(msg); 
    end; 
end; 

Answer 1

Попробуйте что-то больше, как это вместо:

procedure THookThread.Execute; 
var 
    msg: TMsg; 
    ret: LongInt; 
begin 
    //create the message queue... 
    PeekMessage(msg, 0, WM_USER, WM_USER, PM_NOREMOVE); 

    hookhandle := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseHook, Hinstance, 0); 
    if hookhandle = 0 then RaiseLastOSError; 

    try 
    while GetMessage(msg, 0, 0, 0) and (not Terminated) do 
    begin 
     TranslateMessage(msg); 
     DispatchMessage(msg); 
    end; 
    finally 
    UnHookWindowsHookEx(hookhandle); 
    hookhandle := 0; 
    end; 
end; 

procedure THookThread.Stop; 
begin 
    Terminate; 
    PostThreadMessage(ThreadID, WM_QUIT, 0, 0); 
end; 

Answer 2

Ваш цикл сообщений - это цикл занятости. Вы должны использовать GetMessage вместо PeekMessage. Это потому, что GetMessage блокируется, пока сообщения не добавляются в очередь.

Вы отмечаете в комментариях, что GetMessage блокируют, что нарушает ваш код завершения. Поступайте с этим, разместив сообщение в потоке после его завершения. Либо WM_NULL в качестве общего пробуждения, либо WM_QUIT как явная инструкция для выхода из цикла сообщений.