Как отправить нажатие клавиши в MS Office или MS PPT с помощью Windows API

Я хочу контролировать презентацию MS Power Point или файл слова через мой код, отправляя нажатие клавиш с помощью Windows API.

Сначала я нахожу дескриптор запуска файла ppt или word для простоты записи. Теперь я запускаю только одно мгновение за раз, вот мой код для поиска дескриптора запущенного приложения.

win_han  is a handle 
win_han1 := FindWindow('OpusApp', nil) ;   
win_han2 := FindWindow('PP12FrameClass', nil) ;   

opusApp Имя класса для MS Word PP12FrameClass имя класса для MS ppt

чем я посылаю нажатие клавиши

PostMessage(win, WM_KEYDOWN, VK_RIGHT, 0);
Sleep(10);
PostMessage(win, WM_KEYUP, VK_RIGHT, 0);

Но это не работает. Есть ли что-то, что я делаю неправильно, или я могу добиться этого любым другим способом.

0 ответов

Другие вопросы по тегам