Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему не работает writeConsoleInput


AntiKiller ©   (2004-03-26 09:17:00) 

Добрый день уважаемые мастера

пример:

{$APPTYPE CONSOLE}
var
WCount : DWORD;
rec : INPUT_RECORD;
begin
rec.Event.KeyEvent.AsciiChar :=#65;
rec.Event.KeyEvent.bKeyDown := True;
writeConsoleInput(hScreen , rec,  1, WCount);
readln;
end;


Помогите разобраться почему не работает?
Т.Е. на экран ничего не выводится


AntiKiller   (2004-03-26 11:58:00) [1]

все разобрался

было

hScreen:=GetStdHandle(STD_OUTPUT_HANDLE);


,а надо было


hScreen:=GetStdHandle(STD_INPUT_HANDLE);

BiN, спасибо за участие


BiN   (2004-03-26 11:38:00) [2]

а hScreen ты, наверно, из воздуха взял?


Наверх

Титульная страница Поиск, карта сайта Написать письмо