Спящий режим

[skilk]

Подскажите пожалуйста как перевести компьютер в спящий режим на Delphi.

[Shurr]

Через вызов API-функции SetSystemPowerState

[skilk]

А можно какой нибудь пример

[Amsterdam]

Yandex тебе в помощь.

При написании разнообразны программ типа заставок, менеджеров управления компьютером ... возникает необходимость переводить компьютер в режим "спячки". Для включения этого режима в Windows 95 предусмотрена команда API:

SetSystemPowerState(Suspended, Mode: Boolean):boolean;

Suspended должно быть TRUE для ухода в спячку.

Mode - режим входа в спячку. Если TRUE, то всем программам и драйверам посылается Message PBT_APMSUSPEND, по которому они должны немедленно прекратить работу. Если FALSE, то посылается Message PBT_APMQUERYSUSPEND запроса на спячку, и драйвера в ответ могут дать отказ на включение режима спячки.

Возврат функции SetSystemPowerState: TRUE - режим включен

© Зайцев Олег

Пример:

Procedure TForm1.Button1Click(SEnder: TObject);

Begin

SetSystemPowerState(true, true);

End;

Сам не пробовал, о результатах не скажу. :D

Изменено 7 марта, 2006 пользователем Amsterdam

[Shurr]

А можно какой нибудь пример

SetSystemPowerState:

procedure Suspend();var Success: boolean;begin Success := SetSystemPowerState(True, False); // Можно использовать другую функцию: SetSuspendState(True, False, False) if not Success then  Application.MessageBox(PChar('Error code: ' + IntToStr(GetLastError())), 						  'Error going to suspend mode');end

Компилить я не пробовал, но принцип такой. Да, описание функции SetSuspendState тут

Тут пример кода на Делфи (с использованием функции SetSuspendState), но более помороченный подключением необходимых библиотек. :D

Изменено 7 марта, 2006 пользователем Shurr

[skilk]

Спасибо большое, надеюсь разберусь