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

Вниз

WriteConsoleInput ... (не работает в Windows 98) ...   Найти похожие ветки 

← →
stechnology   (2004-11-25 15:28) [0]

Здравствуйте. Вот этот код не желает посылать нажатия кнопочек в 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) [1]

Хотя бы скажите, в какую сторону рыть???
Приложение conagent тут как-нибудь используется?

Дополнительно: чтение с экрана и запись на экран консоли - успешно выполняются!

---

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

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

Наверх

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