[unity]

Сообщение от AND_REY

Открываем delphi, кидаем на форму Button из вкладки стандарт, кликаем двойной щелчёк мыши по кнопке. Появится процедура в неё вставляем код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Sleep(3000);                                               // ждём 3 сек.
 keybd_event(VK_F1, 0, 0, 0);                         //нажимаем F1
 keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0); // отпускаем F1
end;

Запускаем прогу, нажимаем на кнопку и через 3 сек прога нажмёт F1.
Как проверить нажатие F1 думаю догадаетесь.
Для второго вопроса: получение цвета пикселя, надо изучить основы Delphi (Canvas, пару API ф-нц). Код конечно можно скинуть но вряд ли вы чтото там поймёте.
И цвет с: TColor; а не Real;

спс получилось

ну я стал улучшать программу сделал так:

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
  while 1=1 do
  begin
Sleep(3000);                                               // ждём 3 сек.
 keybd_event(VK_F1, 0, 0, 0);                         //нажимаем F1
 keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0); // отпускаем F1
 end;
end;

end.

терь она жмёт всегда после нажатия на кнопку с задержкой в 3 секи
вапрос как сделать кнопку стоп?

(я вот думал вписать в кнопку чтото чтоб пресваивало k значение не 1 , а тут сделать не while 1=1 do а while k=1 do тока я незнаю как тут это сделать (как тут переменую добовлять))

так чёто пытался делать вот :

Код:

unit ststop;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    start: TBitBtn;
    stop: TBitBtn;
    procedure startClick(Sender: TObject);
    procedure stopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.startClick(Sender: TObject);
var
  k:Integer;
  begin
    k:=1;
  while k=1 do
  begin
Sleep(3000);                                               // ждём 3 сек.
 keybd_event(VK_F1, 0, 0, 0);                         //нажимаем F1
 keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0); // отпускаем F1
 end;
end;

procedure TForm1.stopClick(Sender: TObject);
var
  k:integer;
begin
k:=k+1;
end;

end.

тока после того как нажму старт прога зависает (она кликает но стоп нажать нельзя и в деспетчере задач пишет что программа неотвечает)