从屏保"醒过来"的时候,想做点事情,代码放在哪里?

[mars22]

[sean]

我也感兴趣！

[JGTM2000]

用一个低优先级的线程轮询SystemParameterInfo(SPI_GETSCREENSAVERRUNNING...)。

另，当系统激活屏保时，你的程序会收到WM_SYSCOMMAND(wParam=SC_SCREENSAVE)。

[sean]

如何在 VC程序中关闭屏保呢？
我试了用SystemParameterInfo好象不行，请高手指教！

[JGTM2000]

给你一个用Delphi写个小例子：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMSysCommand(var msg: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

type

TWaitThread = class(TThread)
public
procedure Execute; override;
end;

{ TWaitThread }

procedure TWaitThread.Execute;
var
Running: boolean;
begin
FreeOnTerminate:=true;
while not Terminated do
begin
SystemParametersInfo(SPI_GETSCREENSAVERRUNNING,0,@Running,0);
Sleep(5); // watch your CPU without this!
if not Running then Terminate;
end;
end;

procedure TForm1.WMSysCommand(var msg: TWMSysCommand);
begin
inherited;
if msg.CmdType = SC_SCREENSAVE then // screensaver will now running
begin
Windows.Beep(1000,200);
TWaitThread.Create(false).WaitFor; // return when screensaver exit
Windows.Beep(5000,200);
msg.Result:=0;
end;
end;

[sean]

JGTM2000:
您知道如何编程实现关掉需要口令的屏保吗？

[mars22]

如果写段VC++的给我,
50分给你.

[zhxg01]

JGTM2000：若方便的话，请写段VC吧，
当然，有所付出，就有所得。

[JGTM2000]

UINT MyControllingFunction( LPVOID pParam ){
BOOL Running = TRUE;
while(Running){
Sleep(5);
::SystemParameterInfo(SPI_GETSCREENSAVERRUNNING,0,&Running,0);
}
return 0;
}

CWinThread *waitThread = AfxBeginThread(MyControllingFunction,NULL,THREAD_PRIORITY_NORMAL,0,0,NULL);
WaitForSingleObject(waitThread->m_hThread,INFINITE);

在你的主线程中通过WaitForSingleObject等待waitThread监测屏保的运行状态。当线程开始的时候应该确保屏保已经运行，可以通过映射WM_SYSCOMMAND消息处理函数判别SC_SCREENSAVE标志来获知屏保开始运行。

[mars22]

谢谢你们的回复,可能我没有说清楚.
我的程序要在屏幕保护退出的时候,
而不是激活的时候有所动作.

应该怎么做呢?

[JGTM2000]

用一个低优先级的线程轮询SystemParameterInfo(SPI_GETSCREENSAVERRUNNING...)。。。直到FALSE，即屏保退出。