Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.09.2008, 21:29   #1
MaslovArt
 
Регистрация: 04.09.2008
Сообщений: 4
По умолчанию Два вопроса: Цвет пикселя и управление курсором

Помогите пожалуйста, кучу справок перерыл

1) Помогите определить код цвета пикселя на экране имея координаты X и Y

2) Как программно сделать клик левой кнопкой мыши в определенную координату

Последний раз редактировалось zetrix; 05.09.2008 в 08:05. Причина: объединение
MaslovArt вне форума Ответить с цитированием
Старый 04.09.2008, 22:46   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
Сообщение от MaslovArt Посмотреть сообщение
2) Как программно сделать клик левой кнопкой мыши в определенную координату
Можете сделать так:

Код:
Procedure TForm1.Button1Click(Sender: TObject);
Var
X: Integer;
Y: Integer;
Begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, X, Y,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, X, Y,0,0);
End;
Цитата:
Сообщение от MaslovArt Посмотреть сообщение
1) Помогите определить код цвета пикселя на экране имея координаты X и Y
Узнать код можно так:

Код:
Procedure TForm1.Button1Click(Sender: TObject);
Var
Dc : HDC;
Pix : Cardinal;
X: Integer;
Y: Integer;
Begin
Dc:=GetDC(0);
Pix:=GetPixel(Dc, X, Y);
ReleaseDC(0, Dc);
End;
Здесь в переменную Pix записывается код пикселя.
Всегда рад помочь!

Последний раз редактировалось zetrix; 05.09.2008 в 08:07. Причина: объединение
Terran вне форума Ответить с цитированием
Старый 04.09.2008, 23:00   #3
MaslovArt
 
Регистрация: 04.09.2008
Сообщений: 4
По умолчанию

спасибо!!! ) завтра попробую, сейчас спать уже пора )
MaslovArt вне форума Ответить с цитированием
Старый 07.09.2008, 15:06   #4
MaslovArt
 
Регистрация: 04.09.2008
Сообщений: 4
По умолчанию

С пикселем, все получилось, спасибо!
С мышью никак не получается, не происходит щелчка мышью
MaslovArt вне форума Ответить с цитированием
Старый 07.09.2008, 20:43   #5
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Счелчёк мышкой делается, но только в том месте где она находится. Что бы работало можете сделать так:

Код:
Begin
SetCursorPos(400,500);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0,0,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, 0,0,0,0);
End;
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 22.07.2010, 20:55   #6
darkmist
Новичок
Джуниор
 
Регистрация: 22.07.2010
Сообщений: 1
По умолчанию

здраствуйте
непонятен момент с "MOUSEEVENTF_ABSOLUTE Or..."
если без абсолюта , работать небудет??
darkmist вне форума Ответить с цитированием
Старый 22.06.2012, 20:34   #7
alex-78
Новичок
Джуниор
 
Регистрация: 22.06.2012
Сообщений: 1
По умолчанию

вот собственно у меня это нормально работает
setcursorPos(615,445);
Application.ProcessMessages;
sleep(1000);
mouse_event(MOUSEEVENTF_LEFTDOWN,61 5,445,0,0);
Application.ProcessMessages;
sleep(500);
mouse_event(MOUSEEVENTF_LEFTUP,615, 445,0,0);
Application.ProcessMessages;
sleep(1000);
alex-78 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вот навоял: Определение цвета пикселя на DeskTop'e Comer_Jus Софт 3 21.05.2008 16:20
От яркости пикселя к его цвету -=<[Evklidd]>=- Общие вопросы Delphi 5 22.02.2008 15:05
Быстро получить цвет пикселя... prizrak1390 Мультимедиа в Delphi 4 09.01.2008 20:28
Определение цвета пикселя Artem Общие вопросы Delphi 8 13.07.2007 14:33
функции чтения цвета пикселя Геннадий Общие вопросы Delphi 1 13.11.2006 20:03