Delphi – Global hook thread takes up too many CPUs, how to fix it?

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

 while not Terminated do
 begin 
 MessageLoop;< br /> // 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;

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;

The following global Hook threads take up too much CPU, unless I add Sleep(10) there,
There are other solutions than sleep (10ms)-sleep doesn’t seem like the best for my application performance Solution. If I increase the sleep too much, it will not slow down the speed of the mouse.

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;

Try something more like this: < p>

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;
 e nd;
end;

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