Отправлено: 16.12.07 15:46. Заголовок: Нужна помощь - вывести на консольиндикатор расскладки калавиатуры

Есть ли возможность (пример программы) вывести индикатор какая течущая расскладка клавиатуры.
Роботаю в Harbour

 Отправлено: 06.10.08 16:45. Заголовок: Dima пишет: Так и с..

Dima пишет:

цитата:

Так и сделал , все время кажет 00000409

Ну не знаю, у меня все работает и на W98, и на W2k и есесенно на XP...
Пы.Сы. У меня xHarbour 0.99.51+FWH 2.5 Может в этом дело? Хотя это же Сишная функция...

 Отправлено: 06.10.08 16:53. Заголовок: Loach Вот попробуй...

Loach
Вот попробуй.
Proc main()
HB_IdleAdd({ @Test(), 100} )
SET BACKGROUND TASKS ON
wait

return
***********
Func Test()
LOCAL nOldRow := Row()
LOCAL nOldCol := Col()
@ 24,0 SAY smenkl()
SetPos( nOldRow, nOldCol )
RETURN

PS
Возможно я что то делаю не так........

 Отправлено: 07.10.08 09:14. Заголовок: Dima пишет: Вот поп..

Dima пишет:

цитата:

Вот попробуй.

Попробовал... Действительно нэ работает... Очевидно, все дело в консоли... Даже и не знаю что предложить...

 Отправлено: 13.11.09 14:24. Заголовок: Новых идей по теме н..

Новых идей по теме не появилось?