Вниз
Скачать: 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.037 c
14-1099387661
Digitman
2004-11-02 12:27
2004.11.21
и вновь - об Internal Server Error ..


3-1098360528
VadimKV
2004-10-21 16:08
2004.11.21
выбор значения из поля типа TimeStamp с помощью Case


1-1099573511
Вася
2004-11-04 16:05
2004.11.21
Приложение без окон


1-1100091483
Ditrix
2004-11-10 15:58
2004.11.21
хранение GUI в BLOB полях


4-1097509885
TeNY
2004-10-11 19:51
2004.11.21
Как установавить саретку в TMemo в нужное положение




   Наверх