|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
создание программы
помогите пожалуста
хочу написать прогу в delphi 7 а как незнаю в школе учили тока в паскале абс=) вот это полу паскаляСловестный код программы: Код:
program unity var c,n:real; r:integer; begin тут код праграмки которая узнаёт цвет пикселя который находиться под курсором мышки в момент нажатия и записыват код цвета в переменную: с; r:=1; while r=1 do //если верно то цикл делаеться, сделал так чтоб программа работала всегда while n=c do // будет ждать пока неизмениться цвет пикселя begin тут код програмы который узнаёт какой щас цвет у того пикселя (на который раньше кликнули мышкой) и записывает в переменную: n; end; while n<>c do //когда цвет пикселя изменился будет жать до тех пор пока он нестанет такимже begin тут код програмы который узнаёт какой щас цвет у того пикселя (на который раньше кликнули мышкой) и записывает в переменную: n; тут код програмки которая жмёт на кнопку (например на F1) end; end; end. вот описание программы которая мне нужна: программы жмёт на какуюто кнопку(например F1) (желательно чтоб эту кнопку можно было выбрать в окне программы , но можно и даже лучше чтоб жала то что праписано в её коде (так я быстрей мб пойму что там и кчему)) жмёт до тех пор пока у задоного пикселя цвет изменён (т.е цвет пикселя отличаеться от того цвета который бал раньше) как тока цвет стал такойже програма перестаёт жать до тех пор пока цвет неизмениться сново желательно поподробней объяснить как такое сделать в delphi зарание спасибо |
#2
|
|||
|
|||
выложите кто хотябы какой нить исходник кликера,
самого простого например который жмёт тока клавишу "м" с интервалом в 1 секу я там посмотрю мб разбирусь (желательно чтоб с каментариями было) вот понял что для эмуляции нажатия иотпускания надо юзать SimulateKeystroke() тока как это всё оформлять Последний раз редактировалось unity, 15.07.2011 в 00:10. |
#3
|
||||
|
||||
Эх, если бы всё выше изложенное да на более понятном русском языке, то и помочь было бы легче.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
|||
|
|||
дайте код кликера на delphi
самого простого который просто жмёт одну кнопку (например кнопку F3) с интервалом в 1 секунду я посмотрю и буду задавать вопросы по тем аспектам которых я непонял мне тут писали: Код:
procedure SimulateKeyDown(Key : byte); begin keybd_event(Key, 0, 0, 0); end; procedure SimulateKeyUp(Key : byte); begin keybd_event(Key, 0, KEYEVENTF_KEYUP, 0); end; я вставил в delphi 7 и нечё у мя незаработало мне надо посатреть хоть как там что оформлять |
#5
|
||||
|
||||
Дали процедуры, а кто их будет вызывать? Вызывай их хотя бы по таймеру.
P.S. Даже в таком случае визуального результата видно не будет. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
|||
|
|||
во у мя когда открываеш delphi такой код по умолчанию:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end. вопрос куда мне эти процедуры пихать? какя вобще структура кода должна быть? |