WIN锁屏+鼠标移动事件

winexec('rundll32.exe user32.dll, LockWorkStation', sw_hide);

1.shutdown.bat（关机） 
　　　　rundll32.Exe shell32.dll SHExitWindowsEx 1

　　　　2.logoff.bat（注销） 
　　　　rundll32.Exe shell32.dll SHExitWindowsEx 0

　　　　3.reboot.bat（重启） 
　　　　rundll32.Exe shell32.dll SHExitWindowsEx 2

　　　　4.lock.bat（锁定桌面） 
　　　　rundll32.Exe user32.dll LockWorkStation

 procedure TForm1.WndProc(var nMsg: TMessage);
 var s:string;
     procedure setShow(AShow: Integer);
     begin
       case AShow of
         : Memo1.Lines.Add('无');
         : Memo1.Lines.Add('右');
         : Memo1.Lines.Add('左');
         : Memo1.Lines.Add('下');
         : Memo1.Lines.Add('上');
       end;
     end;
 begin
   inherited;
   if (nMsg.Msg  = WM_MOUSEMOVE) then
   begin
     if (nX < nMsg.LParamLo) then
       setShow()
     else if (nX > nMsg.LParamLo) then
       setShow()
     else if (nY < nMsg.LParamHi) then
       setShow()
     else if (nY > nMsg.LParamHi) then
       setShow()
     else
       setShow();
     nX := nMsg.LParamLo;
     nY := nMsg.LParamHi;
     Label1.Caption := '...';
   end;
 end;