Не работает в реестре програмное нажатие кнопок мыши и клавиатуры.

[Вячеслав Юрьевич]

Да, программа (клиент-сервер) будет работать по локалке.
А фокус я програмно не передавал просто мышью выбирал окно и место куда текст вводить, в других окнах это работала (браузер, сама делфи(где код-ну Unit), своё окно и проблемный regedit)

Я не знаю почему это происходит, у меня Windows Se7en, может это с этим связано, а может это ересь.
Кстати там mss усомнился в моих словах, но мы с другом реально на днях связывали компы через TeamViewer (была необходимость) и он открыв Regedit не смог в нем работать, я так понимаю он, тобишь регедит также не реагировал.

[dmitriegorovih]

у меня Windows Se7en

у меня тоже семёрка и все работает вот привожу код
вдруг чем нибудь поможет )


{Первый таймер это для выявление нужных мне координат а второй для проделывания операции}

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  SetCursorPos(1174,223);//òåêóùåå ïîëîæåíèå ìûøè
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);

  sleep(2000);

  SetCursorPos(702,355);//òåêóùåå ïîëîæåíèå ìûøè
  Mouse_Event(MOUSEEVENTF_rightDOWN,0,0,0,0);
  Mouse_Event(MOUSEEVENTF_rightUP,0,0,0,0);

  SetCursorPos(772,366);//òåêóùåå ïîëîæåíèå ìûøè
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);

  SetCursorPos(548,415);//òåêóùåå ïîëîæåíèå ìûøè
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);

      keybd_event(71, 0, 0, 0);
 keybd_event(71, 0, KEYEVENTF_KEYUP, 0);
 timer2.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
p:Tpoint;
begin
getcursorpos(p);
label1.Caption:='X=  '+inttostr(p.x)+'Y=  '+inttostr(p.y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetCursorPos(1174,223);//òåêóùåå ïîëîæåíèå ìûøè
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
  Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

[Вячеслав Юрьевич]

Ладно, видимо никто не знает, а может это только у меня так. Буду делать как есть, а там посмотрим, в сmd программа может печптать, а в regedit, на крайняк, уже заложена возможность удалённого управления.

Но если у кого есть идеи как послать команду чужой программе от имени драйвера клавиатуры, ну или что-то наподобии того (простите если говорю глупости, что вы хотите: 11 класс - почти, но не студент), предлагайте. Ну а также кто знает хороший справочник/учебник по WMI.

[asmodey1]

Сообщение от Вячеслав Юрьевич

Ну а также кто знает хороший справочник/учебник по WMI.

Бог мой, это же так просто
Вот, например - http://www.askit.ru/custom/progr_adm...wmi_basics.htm.
И всего-то - ввести в гугль вашу фразу "учебник по WMI"...
А потом "читать, читать и еще раз читать"...

[NetSpace]

Скиньте свою скомпилированную программу людям поюзать. И попросите отзывы описать, как это делают тут на форуме:
http://www.programmersforum.ru/showthread.php?t=164312
и тогда станет ясно: это только у Вас так не работает, или сам код такой с ошибкой, что ни у кого работать не будет.

[Вячеслав Юрьевич]

Сообщение от asmodey1

Бог мой, это же так просто
Вот, например - http://www.askit.ru/custom/progr_adm...wmi_basics.htm.
И всего-то - ввести в гугль вашу фразу "учебник по WMI"...
А потом "читать, читать и еще раз читать"...

Очень благодарен, буду читать, на первый взгляд, вроде то что надо.
Я честно гуглил, может я просто недоперегуглил, вот и не нашёл.