Текущий архив: 2004.11.21;
Скачать: 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 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c