Вниз
Скачать: CL | DM;

Как усыпить и разбудить комп?   Найти похожие ветки 

 
Hensin ©   (2004-10-09 19:00) [0]

МАСТЕРА! Подскажите мне способ как ввести комп в состояние сна и вывести из оного. Оч надо!!!


 
Rifo ©   (2004-10-09 19:38) [1]

Вот как перевести в "спящий" и "ждущий" знаю, а как обратно незнаю. Вот тебе текст DLL-ки:

library apm;

uses
windows,messages,forms,sysutils;

{$R *.RES}

{ВСПОМОГАТЕЛЬНАЯ ФУНКЦИЯ ДЛЯ СПЯЩЕГО/ЖДУЩЕГО РЕЖИМОВ}
var
_SetSuspendState:function(Hibernate,ForceCritical,DisableWakeEvent:BOOL):BOOL;

function LinkAPI(const module,functionname:string):Pointer;forward;

function SetSuspendState(Hibernate,ForceCritical,DisableWakeEvent:Boolean):Boolean;
begin
if not Assigned(_SetSuspendState) then
 @_SetSuspendState:=LinkAPI("POWRPROF.dll","SetSuspendState");
if Assigned(_SetSuspendState) then
 Result:=_SetSuspendState(Hibernate, ForceCritical,DisableWakeEvent)
else Result := False;
end;

function LinkAPI(const module,functionname:string):Pointer;
var
hLib: HMODULE;
begin
hLib:=GetModulehandle(PChar(module));
if hLib=0 then hLib:=LoadLibrary(PChar(module));
if hLib<>0 then Result:=getProcAddress(hLib,PChar(functionname))
 else Result:=nil;
end;

function son1(stat_term:boolean):boolean;stdcall;
{ЖДУЩИЙ РЕЖИМ}
begin
if SetSuspendState(True, False, False)=true then son1:=true else son1:=false;
halt;
end;

function son2(stat_term:boolean):boolean;stdcall;
{СПЯЩИЙ РЕЖИМ}
begin
if SetSuspendState(False, False, False)=true then son2:=true else son2:=false;
halt;
end;

Exports
son1,son2;

begin
end.


 
Hensin ©   (2004-10-12 22:39) [2]

Спасибо за помощь, но тут есть одна загвоздка:
я не умею работать с dll-ками(
что нужно с ней делать???


 
Hensin ©   (2004-10-12 22:42) [3]

Спасибо за помощь, но тут есть одна загвоздка:
я не умею работать с dll-ками(
что нужно с ней делать???


 
Gero ©   (2004-10-12 22:56) [4]


> вывести из оного

Программно - никак.

> я не умею работать с dll-ками(
> что нужно с ней делать???

Загружать в память и юзать.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c
8-1093521739
Vlad2
2004-08-26 16:02
2004.11.21
Искажаются цвета Bitmap а при повторной отрисовке


4-1097260602
Dot
2004-10-08 22:36
2004.11.21
Wallpapers


1-1099632990
cautur
2004-11-05 08:36
2004.11.21
Горячие клавиши


14-1098770331
Nikolay M.
2004-10-26 09:58
2004.11.21
Стиха, которую пишут обкуренные школьники


14-1099394951
AlexG
2004-11-02 14:29
2004.11.21
Откопал топор войны и разжег огонь сопротивления




   Наверх