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

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


Гость






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

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

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


Гость






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

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

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

2) Невидимость программы exe паскадя при ее работе. (чтоб ее небыло видно на рабочем столе, но она бы работала)
 К началу страницы 
+ Ответить 
Dark
сообщение 22.02.2005 14:11
Сообщение #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 19:18
volvo   Славик Что значит, кнопки нажимаются пользователе...   21.02.2005 19:54
Славик   Да, именно так. А все что касается нажатий на ...   21.02.2005 20:41
volvo   Славик, поймите одну простую вешь: Турбо Паскаль Н...   21.02.2005 21:01
Славик   Я установил Free Pascal . 32-битный. Теперь меня...   22.02.2005 13:09
Dark   1) Ну в общем программе можно послать сообщение,...   22.02.2005 14:11
Славик   Спасибо за ответ. Но все же, поскольку я мало зна...   22.02.2005 14:48
volvo   Славик Ага, а ты название раздела читал? "Тео...   22.02.2005 15:12
Славик   volvo Я хочу управлять роликом флэш, через имитаци...   22.02.2005 15:36
volvo   Это ты Flash потом объясни, что то, что ты сделал...   24.02.2005 11:42
Slavik   Я не спорю, просто хочу уточнить для себя. Окно ...   25.02.2005 12:10
volvo   По пунктам: А ты вообще-то в курсе, как происходи...   25.02.2005 12:35
Slavik   В целом, я не хочу ни с кем тут спорить. У каждого...   25.02.2005 13:39
Altair   offtop Че-то флейм пошел жестокий... Славик, ты ре...   25.02.2005 13:55
Slavik   А что, нечему учить? : )) Вольво программист, ко...   25.02.2005 14:30
Altair   Ошибаешься! Это отучит мыслить вобще! p....   25.02.2005 15:03


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

 



- Текстовая версия 23.07.2025 8:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"