Вниз
Скачать: 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.971 c
1-1100011125
Zandrey
2004-11-09 17:38
2004.11.21
Как сохранить экземпляр класса


1-1097938146
Nurik
2004-10-16 18:49
2004.11.21
Слово Funсtion зарезервировано в дельфи. Как быть?


1-1099911070
UK-AAV
2004-11-08 13:51
2004.11.21
Не работает печать форм


4-1097472987
Ozone
2004-10-11 09:36
2004.11.21
AVIStreamRead - проблемы


8-1093546062
Kind
2004-08-26 22:47
2004.11.21
Скорость InvalidateRect




   Наверх