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
        0: Memo1.Lines.Add('无');
        1: Memo1.Lines.Add('右');
        2: Memo1.Lines.Add('左');
        3: Memo1.Lines.Add('下');
        4: Memo1.Lines.Add('上');
      end;
    end;
begin
  inherited;
  if (nMsg.Msg  = WM_MOUSEMOVE) then
  begin
    if (nX < nMsg.LParamLo) then
      setShow(1)
    else if (nX > nMsg.LParamLo) then
      setShow(2)
    else if (nY < nMsg.LParamHi) then
      setShow(3)
    else if (nY > nMsg.LParamHi) then
      setShow(4)
    else
      setShow(0);
    nX := nMsg.LParamLo;
    nY := nMsg.LParamHi;
    Label1.Caption := '...';
  end;
end;