включить/вывести ПК из режима ожидания

[beegl]

всем привет, как включить/вывести ПК из режима ожидания/спящего режима/?

это переводит в спящий режим:

procedure ShutdownComputer;
var
   hToken:THandle;
   tkp:TTokenPrivileges;
   RetunrLength: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,RetunrLength) then
SetSystemPowerState(True,True);
end;
end;

обнаружил такое в программе Auto Power-on & Shut-Down
кому интересно, см.:
ссылка rapidshare.com
ссылка 4shared.com
ссылка docs.google.com
ссылка ryushare.com
ссылка bitshare.com
ссылка uploaded.net

[s-andriano]

Сдвинуть мышь или нажать на кнопку, нет?

[raxp]

http://msdn.microsoft.com/ru-RU/libr...(v=vs.85).aspx

[beegl]

s-andriano, нет, надо программно как-то)

[Кольша]

beegl, а если программно

Сдвинуть мышь или нажать на кнопку

не приходила идея?

SetCursorPos( X, Y: integer ): LongBool;

[raxp]

SetCursorPos

из спящего режима?

Еще раз, http://msdn.microsoft.com/ru-RU/libr...(v=vs.85).aspx. Читаем параметры.

[beegl]

raxp, напишите пожалуйста, как из всего того оформить программный рабочий код, который включить/вывести ПК из режима ожидания

Сдвинуть мышь или нажать на кнопку в Ждущем режиме ничего не меняет, т.е. в Ждущем режиме остается

[Кольша]

Просторы интернета показали мне, что raxp был прав

[raxp]

как из всего того оформить

выкладывал уже исходники.

[beegl]

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

выкладывал уже исходники.

дайте ссылку на исходник