NumLock.Все что требовалось работает.100 лет жизни тебе.Кое что изменил.
Скрыл консоль и переделал отправку клавиатурных сообщений.Странно но твой метод по отправке не работает (Procedure WriteConsole).Может тебе
пригодится отправляю так:
h:=findWindow('ConsoleWindowClass',nil);
if h<>0 then begin
setforegroundwindow(h);// дает возможность отправлять, если окно свернуто
//или скрыто
SendMessage(h, WM_CHAR, Word('p'), 0);
end else showmessage('Окно не найдено.');
Это отправка символа 'p' -пауза.
|