Необходимо имитировать нажатие Ctrl+A вне окна программы. Как это сделать? приведенный код не работает! в чем ошибка?

xx:=1093;
yy:=974;
SetCursorPos(xx,yy);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
sleep(55);

keybd_event(vk_control,0,0,0);
keybd_event(ord('A'),0,0,0);
keybd_event(ord('A'),0,keyeventf_keyup,0);
keybd_event(vk_control,0,keyeventf_keyup,0);

Потому что нажатие, это последовательность из KEYEVENTF_EXTENDEDKEY, и только потом KEYEVENTF_KEYUP плюс KEYEVENTF_EXTENDEDKEY.
Читай мануалы что ли: https://msdn.microsoft.com/en-us/library/windows/desktop/ms646304(v=vs.85).aspx

Ну и конечно, SendInput еще никто не отменял.

теперь другая проблема, ctrl "запала"

Код покажи, ведь явно через строчку читаешь и вот это не учел: "KEYEVENTF_KEYUP плюс KEYEVENTF_EXTENDEDKEY"

keybd_event(vk_control,0,KEYEVENTF_EXTENDEDKEY,0);
                                       keybd_event(ord('A'),0,KEYEVENTF_EXTENDEDKEY,0);
                                       keybd_event(ord('A'),0,keyeventf_keyup,0);
                                       keybd_event(vk_control,0,keyeventf_keyup,0);

                                       sleep(55);

                                       Clipboard.Astext:='****';

                                       keybd_event(vk_lcontrol,0,KEYEVENTF_EXTENDEDKEY,0);
                                       keybd_event(ord('V'),0,KEYEVENTF_EXTENDEDKEY,0);
                                       keybd_event(ord('V'),0,keyeventf_keyup,0);
                                       keybd_event(vk_lcontrol,0,keyeventf_keyup,0);

>                                        keybd_event(ord('V'),
> 0,keyeventf_keyup,0);
>                                        keybd_event(vk_lcontrol,
> 0,keyeventf_keyup,0);

Как я и сказал.

как понять KEYEVENTF_KEYUP плюс KEYEVENTF_EXTENDEDKEY?

Да как хочешь, ты же программист :)

Хоть так: KEYEVENTF_KEYUP + KEYEVENTF_EXTENDEDKEY
Хоть так: KEYEVENTF_KEYUP or KEYEVENTF_EXTENDEDKEY

Все равнозначно в данном случае, т.к. с флагами работаем.

CTRL не отпускается...
прости, но видно туповат я... не вижу ошибки (

поправь тут код, чтобы я его тупо скопировал в процедуру ... заранее огромное спасибо!

оть тут:

                                      keybd_event(ord('V'),0,keyeventf_keyup,0);
                                      keybd_event(vk_lcontrol,0,keyeventf_keyup,0);

Да не работает!!!! Вот полный листинг процедуры:

// переключаюсь в другое окно    
xx:=1093;
     yy:=974;
     SetCursorPos(xx,yy);
     Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
     Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
     sleep(55);

// нажатие ctrl+A
     keybd_event(vk_control,0,KEYEVENTF_EXTENDEDKEY,0);
     keybd_event(ord('A'),0,KEYEVENTF_EXTENDEDKEY,0);
// отпускаем
     keybd_event(ord('A'),0,keyeventf_keyup,0);
     keybd_event(vk_control,0,keyeventf_keyup,0);

// в буфер обмена текст

     Clipboard.Astext:='****';

//   нажатие ctrl+V
     keybd_event(vk_lcontrol,0,KEYEVENTF_EXTENDEDKEY,0);
     keybd_event(ord('V'),0,KEYEVENTF_EXTENDEDKEY,0);
// отпускаем
     keybd_event(ord('V'),0,keyeventf_keyup,0);
   keybd_event(vk_lcontrol,0,keyeventf_keyup,0);

Результат: текст вставился (это отлично), но Ctrl удерживается... приходится перезагружаться

Думай, у тебя вся информация с подсказками есть

Читаем пост номер[8] - до просветления

Чем не устраивает посылка сообщений WM_GETTEXTLENGHT, EM_SETSEL, WM_COPY и WM_PASTE?