VPF::SendInput и keybd_event на уровне 'Local System'

Ak47black

Дата 29.12.2007, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Здравствуйте.
Столкнулся с проблемой.
Использоваю keybd_event для эмуляции клавиш.
Если сделать сервис (который работает под 'Local System'), то когда юзер залоген, то все работает. А когда он делает LogOff то появляется диалог выбора юзера и вот тут почемуто эта функция и еше некоторые неработают.
Пробовал сделать с SendInput, но тоже самое.
В Delphi поставил INTERACTIVE у класса TService.
Я как понял тут чтото с Desktopами связанно (OpenWindowStation/SetProcessWindowStation/OpenDesktop/SetThreadDesktop).
Но немогу понять как ими правильно воспользоваться в этой ситуации.
Ктонибудь чтонибудь может подсказать?

bems

Дата 29.12.2007, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

попробуй OpenInputDesktop а потом SetThreadDesktop

--------------------

Обижено школьников: 8

Ak47black

Дата 29.12.2007, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Попробовал вот так

Код


      hdeskCurrent:= OpenInputDesktop(0, false, GENERIC_ALL);
      SetThreadDesktop(hdeskCurrent);

Но тоже самое после этого.
Читал я статьи M$ 'Interactive Services'[/URL] и попробовал сделать вот такой код

Код


    hwinstaCurrent:= GetProcessWindowStation;
    if(hwinstaCurrent = 0) then
    begin
      Exit;
    end;
    BackSize:= 0;
    if GetUserObjectInformation(hwinstaCurrent, UOI_FLAGS, @WindowStationInfo, SizeOf(TUserObjectFlags), BackSize) = False then
    begin
      Exit;
    end;
    if WindowStationInfo.dwFlags = WSF_VISIBLE then MessageBox(0, 'INTERACTIVE', 'Message', MB_OK or MB_SERVICE_NOTIFICATION) else MessageBox(0, 'Not INTERACTIVE', 'Message', MB_OK or MB_SERVICE_NOTIFICATION);

Получил INTERACTIVE :(
Прям даже незнаю куда смотреть.

Это сообщение отредактировал(а) Ak47black - 29.12.2007, 21:43

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »