Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.01.2011, 19:41
strbb strbb вне форума
Прохожий
 
Регистрация: 20.12.2010
Сообщения: 14
Репутация: 10
По умолчанию программно нажать ctrl + alt +del

Нужно программно вызвать диспетчер задач, делать так:

Код:
keybd_event(17, 0, 0, 0);
    keybd_event(18, 0, 0, 0);
    keybd_event(46, 0, 0, 0);
    keybd_event(46, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(17, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(18, 0, KEYEVENTF_KEYUP, 0);
Не работает
Ответить с цитированием
  #2  
Старый 15.01.2011, 19:56
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

А само приложение вызвать не судьба?
Точно код не скажу, но файл лежит он по адресу windows\system32\taskmgr.exe.
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #3  
Старый 15.01.2011, 19:58
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Думаю будет легче не нажимать 3 кнопки, а запустить диспечер как файл.
Код:
  WinExec('C:\Windows\system32\taskmgr.exe', SW_SHOWNORMAL);
Вместо WinExec можно использовать ShellExecute (ShellApi), CreateProcess например.
ЗЫ пока отвечал уже опередили
__________________
Помогаю за Спасибо
Ответить с цитированием
  #4  
Старый 15.01.2011, 20:12
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Цитата:
C:\Windows\
А если винда не на C: лежит?
Как-то это по-другому писалось...
типа %windows%\system32\taskmgr.exe
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #5  
Старый 15.01.2011, 21:11
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

А если у человека Windows 7? Тогда запуск диспетчера задач и нажатие Atl+Ctrl+Del становятся совершенно разными задачами, потому что там комбинация вызывает меню, где "смена пользователя", "выход из системы", "Выключение" и т.д.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #6  
Старый 16.01.2011, 08:11
strbb strbb вне форума
Прохожий
 
Регистрация: 20.12.2010
Сообщения: 14
Репутация: 10
По умолчанию

Цитата:
Сообщение от Bargest
А если у человека Windows 7? Тогда запуск диспетчера задач и нажатие Atl+Ctrl+Del становятся совершенно разными задачами, потому что там комбинация вызывает меню, где "смена пользователя", "выход из системы", "Выключение" и т.д.

Да именно по этой причине мне не подходит вариант тупо вызвать диспечер задач, а нужно нажать ctrl alt del
Ответить с цитированием
  #7  
Старый 16.01.2011, 11:05
einstein einstein вне форума
Начинающий
 
Регистрация: 02.09.2010
Адрес: Город
Сообщения: 143
Репутация: -4653
По умолчанию

какая конечная цель нажатия 3-х кнопок?
Ответить с цитированием
  #8  
Старый 16.01.2011, 12:18
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Я думаю, что не выходит, потому что программа нажимет их последовательно, а не одновременно.
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #9  
Старый 16.01.2011, 12:34
einstein einstein вне форума
Начинающий
 
Регистрация: 02.09.2010
Адрес: Город
Сообщения: 143
Репутация: -4653
По умолчанию

Цитата:
Сообщение от Bargest
меню, где "смена пользователя", "выход из системы", "Выключение" и т.д.
это LogonUI.exe
Ответить с цитированием
  #10  
Старый 16.01.2011, 12:37
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Хм, у меня ручной запуск LogonUI ничего не дает. Может ему надо параметры прописать какие-то.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:25.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter