Блокировка курсора мыши.

[sergeant.coolagin]

Необходимо заблокировать курсор мыши на тех координатах, на которых он в данный момент находится по нажатию кнопки на мыши. А по отпусканию кнопки, чтобы курсор мыши разблокировался. Пробовал это сделать через прогу AutoHotKey - не получилось. Вот что у меня получилось в Autohotkey(я знаю, что форум про Delphi):

*$Lbutton:: 
{
BlockInput, MouseMove
}
Return
*$lbutton up::
{
BlockInput, MouseMoveOff
}
Return

Скрипт то работает, но мне это нужно для игр. А игры вроде как используют Direct Input. А еще этот Mouse hook. Хотя я могу и не то что-то говорить... А эта команда как раз в таких приложениях и не работает. Но есть ведь другие программы. Я в delphi полный ноль. Только что установил себе его. Вот нарыл пару кодов:

//Выключение курсора
procedure TForm1.Button1Click(Sender: TObject);
var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;

//Включение курсора
procedure TForm1.Button2Click(Sender: TObject);
var
  Cstate: Integer;
begin
  Cstate := ShowCursor(True);
  while CState < 0 do
    CState := ShowCursor(True);
end;

Этот код вроде как по логике отключает сам курсор, но не блокирует его.

rundll32 mouse,disable

А вот это не знаю, вырубает мышь. Надеюсь это будет работать. Думаю, включить будет примерно так:

rundll32 mouse, enable

Но мне нужно привязать это, например, к левой кнопке мыши и скомпилировать скрипт. Помогите, пожалуйста. Может где-то написана статья, как по нажатию кнопок запускать скрипты и т.д. Я уже разберусь. А то действительно 10 мин. назад установил себе этот delphi.

[Sparkman]

1)

var
  Form1: TForm1;
  gx,gy:integer;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     gx:=Round(Mouse.CursorPos.X * (65535 / Screen.Width));
     gy:=Round(Mouse.CursorPos.Y * (65535 / Screen.Height));
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if (gx>0)and(gy>0) then
     begin
          x:=gx;
          y:=gy;
          Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,gx, gy, 0, 0);
     end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     gx:=-1;
     gy:=-1;
end;

2)

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var r: TRect;
begin
     r.Left:=X;
     r.Top:=Y;
     r.Right:=X;
     r.Bottom:=Y;
     ClipCursor(@r);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     ClipCursor(nil);
end;

пс: 2й вариант не проверял - доктор веб удаляет скомпилированные приложения.
псс: актуально для приложений WinForms.

[sergeant.coolagin]

Я погуглил, почитал. Вычитал, что delphi не будет запускать скрипты и компилировать их на 64 битной ОС. А у меня как раз windows 7 64-bit.
Вот что выдает RAD Studio 2010 на первый и второй коды:

Checking project dependencies...
Compiling Package1.dproj (Debug configuration)
[DCC Error] Unit1.pas(2): E2029 'UNIT' expected but 'VAR' found
[DCC Error] Unit1.pas(3): E2003 Undeclared identifier: 'TForm1'
[DCC Error] Unit1.pas(6): E2029 '.' expected but 'IMPLEMENTATION' found
[DCC Warning] Unit1.pas(6): W1011 Text after final 'END.' - ignored by compiler
[DCC Fatal Error] Package1.dpk(31): F2063 Could not compile used unit 'Unit1.pas'
Failed
Elapsed time: 00:00:00.1

Checking project dependencies...
Compiling Package1.dproj (Debug configuration)
[DCC Error] Unit1.pas(1): E2029 'UNIT' expected but 'PROCEDURE' found
[DCC Error] Unit1.pas(1): E2029 ';' expected but '.' found
[DCC Error] Unit1.pas(3): E2003 Undeclared identifier: 'TRect'
[DCC Error] Unit1.pas(5): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(6): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(7): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(8): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(9): E2003 Undeclared identifier: 'ClipCursor'
[DCC Error] Unit1.pas(12): E2004 Identifier redeclared: 'TForm1'
[DCC Error] Unit1.pas(15): E2003 Undeclared identifier: 'ClipCursor'
[DCC Error] Unit1.pas(18): E2029 Declaration expected but end of file found
[DCC Fatal Error] Package1.dpk(31): F2063 Could not compile used unit 'Unit1.pas'
Failed
Elapsed time: 00:00:00.1

Что делать? Может я что-то не так делаю? По школе из паскаля помнится вроде все правильно .

[*PB*]

А чего NOD32 ругается на эту страницу, находя на ней BAT/MouseDisable Троянская программа?
Он что паскалевские исходники, выложенные на странице, считает угрозой?

[sergvirus77]

Кто нибудь может скинуть готовую программу exe. Заранее спасибо!

[eoln]

sergeant.coolagin, это плохой тон в программировании, не нужно так делать.
*PB*, он rundll32 mouse, disable палит

[Stilet]

eoln

Теме три года