Эмуляция нажатие клавиш в Windows 8

[saylar_06]

Доброго времени суток! Очень нуждаюсь в вашей помощи...

Есть данный код:

     hwndb := FindWindow(nil, PChar('Название окна'));
     if hwndb <> 0 then
      begin   Sleep(1000);
        label1.Caption:=label1.Caption+'go';
        keybd_event(69, 0, 0, 0);
        keybd_event(69, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
        keybd_event(69, 0, 0, 0);
        keybd_event(69, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
        keybd_event(87, 0, 0, 0);
        keybd_event(87, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
        keybd_event(82, 0, 0, 0);
        keybd_event(82, 0, KEYEVENTF_KEYUP, 0);
        //  Sleep(200);
      end;

В общем то код рабочий если учитывать что на WIndows 7/XP он работает, но на Windows 8 просто игнорируется, есть какие нибудь соображение? или же какая нибудь альтернатива?

Заранее благодарен...

в общем перерылся... элементарно никак не могу въехать, очень нужна ваша помошь, заного изложу сути проблемы...

Написал новый код:

          Inp.Itype := INPUT_KEYBOARD;
          Inp.ki.wVk := VK_RETURN;
          Inp.ki.dwFlags := 0;
          SendInput(1, Inp, SizeOf(Inp));
            sleep(500);
          Inp.ki.dwFlags := KEYEVENTF_KEYUP;
          SendInput(1, Inp, SizeOf(Inp));

элементарно вроде бы всё, при его исполнении должен нажаться Enter, и всё работает на Windows 8 да и код из первого поста тоже работал, но увы в других риложениях (блокнот, браузер и т.д) я же пишу приложение для игры конкретнее для Warcraft III, что первый что второй код удачно работают на Windows 7 c Warcraft III но просто игнорируются при выполнении на WIndows 8, подскажите в чем может быть ещё проблема?

[Arigato]

Какой смысл сейчас что-то делать под Windows 8, если она еще не вышла?

[artemavd]

Точно такой же как и "чатанье" ТС.

[saylar_06]

в общем перерылся... элементарно никак не могу въехать, очень нужна ваша помошь, заного изложу сути проблемы...

Написал новый код:

          Inp.Itype := INPUT_KEYBOARD;
          Inp.ki.wVk := VK_RETURN;
          Inp.ki.dwFlags := 0;
          SendInput(1, Inp, SizeOf(Inp));
            sleep(500);
          Inp.ki.dwFlags := KEYEVENTF_KEYUP;
          SendInput(1, Inp, SizeOf(Inp));

элементарно вроде бы всё, при его исполнении должен нажаться Enter, и всё работает на Windows 8 да и код из первого поста тоже работал, но увы в других риложениях (блокнот, браузер и т.д) я же пишу приложение для игры конкретнее для Warcraft III, что первый что второй код удачно работают на Windows 7 c Warcraft III но просто игнорируются при выполнении на WIndows 8, подскажите в чем может быть ещё проблема?

[saylar_06]

В общем упорство и труд всё перетрут Просидев пол ночи, меня всё же осенило, проблему я решил, так что тему можно либо закрыть либо удалить, большое спасибо всем кто принял участие

[Fe1ix]

а в чем дело то было?

[saylar_06]

люди, все очень просто дело было не в самом коде, а в Winodws 8, дело в том что практические любое действие oc блокирует (даже при выключеном UAC и SmartScreen) нужно было дать программе уровень администратора(не просто открыть от имени администратора) а зайти в Свойства-->Совместимость-->Изменить параметры для всех пользователей--> и поставить галочку Выполнять программу от имени администратора!

и вооля всё заработало!