[worldmen]

Кто-нибудь использовал библиотеку AutoItX3.dll
Хотел использовать некоторые процедуры:
MouseMove - Перемещает указатель мыши
Синтаксис:
MouseMove x, y [, speed]
PixelGetColor - Возвращает цвет пикселя в координатах x, y.
Но при написании кода возникают ошибки:"Too many actual parameters"

Код:

 procedure MouseMove;  external 'AutoItX3.dll';

implementation

procedure My;
begin
 MouseMove(500,100,50);
End;

ПС: пробовал в AutoIt писать - работает отлично, но мне надо на Delphi.

[PhoeniX]

Господи, НАХРЕНА тебе прикручивать к автомобилю пятое колесо? Не проще это на Delphi и реализовать?

Код:

SetCursorPos(X, Y);

Перемещение курсора мыши в точку X,Y

Код:

var
 DC: HDC;
 Color: Cardinal;
begin
 DC := GetDC(0);
 Color := GetPixel(DC, X, Y);
 ReleaseDC(0, DC);
end;

Получение цвета пикселя на экране в точке X,Y

[worldmen]

Странно, но эта процедура ничего не выводит

Код:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  DC: HDC;
  Color: Cardinal;
  X ,Y  : word;
  R,G,B : Word;
begin
  x:= 100;
  y:= 100;

  DC := GetDC(0);
  Color := GetPixel(DC, X, Y);
  ReleaseDC(0, DC);

  R := GetRValue(Color);       
  G := GetGValue(Color);       
  B := GetBValue(Color);       

  Label5.Caption:='R= '+IntToStr(R);
  Label6.Caption:='G= '+IntToStr(G);
  Label7.Caption:='B= '+IntToStr(B);
End;

Хотя Color большое число.

[worldmen]

Я нашел то что искал на форуме
Или смотрите вложение.

[guranvir]

Меж тем DJ PhoeniX спросил верно, ведь эта AutoIT далеко не каждой машине