Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Почему не работает writeConsoleInput   Найти похожие ветки 

← →
AntiKiller   (2004-03-26 09:17) [0]

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

пример:

{$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;


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

---

← →
BiN ©   (2004-03-26 11:38) [1]

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

---

← →
AntiKiller   (2004-03-26 11:58) [2]

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

было

hScreen:=GetStdHandle(STD_OUTPUT_HANDLE);


,а надо было


hScreen:=GetStdHandle(STD_INPUT_HANDLE);

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


---

Страницы: 1 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c