WriteConsoleInput ... (не работает в Windows 98) ... [D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
stechnology © (2004-11-25 15:28:00)
Здравствуйте. Вот этот код не желает посылать нажатия кнопочек
в Windows 98. В NT все работает. Подскажите, как быть?
...
CreateProcess(Nil, PChar(EditConsoleName.Text), Nil, Nil,
True,
0,Nil, Nil,
SI, PI)
...
S := StrPas(PChar('abs'));
InpHnd := GetStdHandle(STD_INPUT_HANDLE);
InpRec.EventType := KEY_EVENT;
with InpRec.Event.KeyEvent do begin
bKeyDown := True;
wRepeatCount := 1;
wVirtualKeyCode := 0;
end;
i := 1;
with InpRec.Event.KeyEvent do begin
wVirtualScanCode := VkKeyScan(S[i]);
UnicodeChar := WideChar(S[i]);
dwControlKeyState := Hi(VkKeyScan(S[i]));
AsciiChar := S[i];
with Memo.Lines do begin
Add('wVirtualScanCode:
'+IntToStr(VkKeyScan(S[i])));
Add('UnicodeChar: '+WideChar(S[i]));
Add('dwControlKeyState:
'+IntToStr(Hi(VkKeyScan(S[i]))));
Add('AsciiChar: '+S[i]);
end;
end;
WriteConsoleInput(InpHnd, InpRec, 1, N);
stechnology (2004-11-25 19:36:00) [1]
Хотя бы скажите, в какую сторону рыть???
Приложение conagent тут как-нибудь используется?
Дополнительно: чтение с экрана и запись на экран консоли -
успешно выполняются!
Наверх 
ЧАТ |
Орешник |
|
