VPF::Имитировать нажатие клавиш на клавиатуре

karataev

Дата 29.1.2006, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

Репутация: нет
Всего: нет

Ну вот, отлавливать нажатия клавиш я научился. А не подскажете теперь как программно имитировать нажатие любой клавиши?

(у меня Turbo Pascal 7.0)

Это сообщение отредактировал(а) karataev - 29.1.2006, 09:24

Snowy

Дата 29.1.2006, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Если из области BIOS, то почти также, только не читать оттуда, а писать.

volvo877

Дата 29.1.2006, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

karataev, пример обратной записи в буфер клавиатуры (для TP):

Код

procedure UnReadKey(k: word);
const
  kbStart = $1E;
  kbEnd = $3C;
var
  kbHead: word absolute $40:$1A;
  kbTail: word absolute $40:$1C;
  oldTail: word;

begin
  oldTail := kbTail;
  if kbTail = kbEnd then kbTail := kbStart
  else inc(kbTail, 2);

  if kbTail = kbHead then kbTail := oldTail
  else memW[$40:oldTail] := k;
end;

{ Это - для записи в буфер расширенного кода }
procedure UnReadExtCode(k: word);
begin
  UnReadKey(swap(k));
end;

{ Это - для записи строки (не длиннее 16 символов !!!) }
procedure UnReadString(s: string);
var i: byte;
begin
  for i := 1 to length(s) do
    UnReadKey(ord(s[i]));
end;

{ Пример использования: }
var
  s: string;
begin
  unreadstring('hello !!!');
  readln(s);
  writeln(s);
end.

Это сообщение отредактировал(а) volvo877 - 29.1.2006, 10:48

karataev

Дата 29.1.2006, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Цитата

{ Это - для записи строки (не длиннее 16 символов !!!) }

А что, больше никак?

Snowy

Дата 30.1.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: нет
Всего: 484

Больше никак - буфер не позволяет. Размер ограничен.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »