заставить компьютер перейти в спящий и ждущий режим

[Никки]

Как заставить компьютер перейти в спящий и ждущий режимы!

И ещё как перейти на экран приветствия (Windows+L)

Заранее спасибо!

[FaTaL]

Сообщение от Никки

Как заставить компьютер перейти в спящий и ждущий режимы!

И ещё как перейти на экран приветствия (Windows+L)

Заранее спасибо!

Ждущий режим

procedure TForm1.N5Click(Sender: TObject);
 var 
 hToken: THandle; 
 tkp: TTokenPrivileges; 
 ReturnLength: Cardinal; 
 begin 
 if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or 
  TOKEN_QUERY, hToken) then 
 begin 
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid); 
  tkp.PrivilegeCount := 1; 
  tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; 
  if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
  SetSystemPowerState(true, true);
end;
end;

Спящий режим

procedure TForm1.N6Click(Sender: TObject);
begin
winexec(Pchar('rundll32.exe powrprof.dll,SetSuspendState'),sw_Show);
end;

А вот как залочить комп не знаю. Не надо было.

[Sibedir]

keybd_event (VK_LWIN, 0, 0, 0);
keybd_event (76, 0, 0, 0);
keybd_event (76, 0, KEYEVENTF_KEYUP, 0);
keybd_event (VK_LWIN, 0, KEYEVENTF_KEYUP, 0);

[FaTaL]

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

keybd_event (VK_LWIN, 0, 0, 0);
keybd_event (76, 0, 0, 0);
keybd_event (76, 0, KEYEVENTF_KEYUP, 0);
keybd_event (VK_LWIN, 0, KEYEVENTF_KEYUP, 0);

Спасибо. Залочивание компа работает. Ещё бы хотелось узнать как выйти из пользователя в NT подобных системах?

[Stilet]

LockWorkStation
Функция LockWorkStation отправляет запрос на блокировку дисплея рабочей станции. Блокирование рабочей станции защищает ее от несанкционированного использования.

[Sibedir]

как выйти из пользователя в NT подобных системах

Вроде так: shutdown -l

Для Stilet:
А что возвращает LockWorkStation?

[Stilet]

как выйти из пользователя в NT подобных системах

Еще можно применить ExitWindowsEx.

[Sibedir]

О, нашел. .

Функция LockWorkStation отправляет запрос на блокировку дисплея рабочей станции. Блокирование рабочей станции защищает ее от несанкционированного использования.

BOOL LockWorkStation(VOID);

Параметры
Функция не имеет параметров.

Возвращаемые значения
В случае успеха возвращается ненулевое значение. Поскольку функция выполняется асинхронно, ненулевое возвращаемое значение указывает, что операция была инициирована. Оно не указывает, была ли рабочая станция успешно заблокирована.
В случае неудачи возвращается нуль. Для получения дополнительной информации об ошибке вызовите функцию GetLastError.

Комментарии
Общими причинами, по которым рабочая станция не может быть заблокирована, даже если вызов функции завершился успешно, могут быть: отсутствие вошедшего в систему пользователя, существующая блокировка рабочей станции, запущенность процесса не на интерактивном рабочем столе, отклонение запроса библиотекой графической идентификации и аутентификации (GINA DLL).
Вызов функции приводит к такому же результату, что и нажатие клавиш Ctrl+Alt+Del и щелчок по кнопке "Lock Workstation" ("Блокировка"). Для разблокирования рабочей станции пользователь должен войти в систему.

Требования
Windows NT/2000/XP: включена в Windows 2000 и выше.
Windows 95/98/Me: не поддерживается.
Заголовок: объявлена в Winuser.h; подключать Windows.h.
Библиотека: используйте User32.lib.

Кстати. ExitWindowsEx уже смотрел. Описание не нашел. Функция требует какие-то параметры.

[Sibedir]

И так заработала:

ExitWindowsEx (0, 0);