IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Имитация нажатия на кнопки, Есть ли она в Турбо Паскале 7?
сообщение
Сообщение #1


Гость






В Турбо Паскале 7, можно имитировать одновременное нажатие на несколько кнопок?

Если да:
Укажите пожалуйста что надо написать в программе Турбо Паскаля 7, чтобы нажать одновременно несколько кнопок(допустим кнопки abcd).

И заодно, как посылать fscommand из паскаля.
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Я установил Free Pascal . 32-битный.

Теперь меня интересуют теже вопросы... : )

1) Одновременное нажатие(имитация) на несколько кнопок сразу.

2) Невидимость программы exe паскадя при ее работе. (чтоб ее небыло видно на рабочем столе, но она бы работала)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Знаток
****

Группа: Пользователи
Сообщений: 408
Пол: Мужской

Репутация: -  3  +


Цитата(Славик @ 22.02.05 13:09)
Я установил Free Pascal . 32-битный.

Теперь меня интересуют теже вопросы... : )

1) Одновременное нажатие(имитация) на несколько кнопок сразу.

2) Невидимость программы exe паскадя при ее работе. (чтоб ее небыло видно на рабочем столе, но она бы работала)


1)
Ну в общем программе можно послать сообщение, что у нее нажалась клавиша с такими то параметрами

1.
LRESULT SendMessage(

HWND hWnd, // handle of destination window
UINT Msg, // message to send
WPARAM wParam, // first message parameter
LPARAM lParam // second message parameter
);

2.
The WM_KEYDOWN message is posted to the window with the keyboard focus when a nonsystem key is pressed. A nonsystem key is a key that is pressed when the ALT key is not pressed.

WM_KEYDOWN
nVirtKey = (int) wParam; // virtual-key code
lKeyData = lParam; // key data

Parameters

nVirtKey

Value of wParam. Specifies the virtual-key code of the nonsystem key.

lKeyData

Value of lParam. Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table:

Value Description
0-15 Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user holding down the key.
16-23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM).
24 Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0.
25-28 Reserved; do not use.
29 Specifies the context code. The value is always 0 for a WM_KEYDOWN message.
30 Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is 0 if the key is up.
31 Specifies the transition state. The value is always 0 for a WM_KEYDOWN message.

Я просто не хочу давать тебе готовый исходник =) за всеми вопросами обращайся к Win32 API. У меня она в составае Delphi, так как я Free не очень то использую.
Параметр можно передать - VK_Right

ПО МОЕМУ [ИМХО] можно второй параметр не передавать. т.е. сделать его в 0.


--------------------
- Где я?
- Во тьме.
- В какой тьме?
- Во тьме твоего мозга.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Славик   Имитация нажатия на кнопки   21.02.2005 23:18
volvo   Славик Что значит, кнопки нажимаются пользователе…   21.02.2005 23:54
Славик   Да, именно так. А все что касается нажатий на …   22.02.2005 0:41
volvo   Славик, поймите одну простую вешь: Турбо Паскаль Н…   22.02.2005 1:01
Славик   Я установил Free Pascal . 32-битный. Теперь меня…   22.02.2005 17:09
Dark   1) Ну в общем программе можно послать сообщение,…   22.02.2005 18:11
Славик   Спасибо за ответ. Но все же, поскольку я мало зна…   22.02.2005 18:48
volvo   Славик Ага, а ты название раздела читал? "Тео…   22.02.2005 19:12
Славик   volvo Я хочу управлять роликом флэш, через имитаци…   22.02.2005 19:36
volvo   Это ты Flash потом объясни, что то, что ты сделал…   24.02.2005 15:42
Slavik   Я не спорю, просто хочу уточнить для себя. Окно …   25.02.2005 16:10
volvo   По пунктам: А ты вообще-то в курсе, как происходи…   25.02.2005 16:35
Slavik   В целом, я не хочу ни с кем тут спорить. У каждого…   25.02.2005 17:39
Altair   offtop Че-то флейм пошел жестокий... Славик, ты ре…   25.02.2005 17:55
Slavik   А что, нечему учить? : )) Вольво программист, ко…   25.02.2005 18:30
Altair   Ошибаешься! Это отучит мыслить вобще! p.…   25.02.2005 19:03


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 9.05.2024 5:16
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name