关于屏保保护口令验证对话框的编程问题。
sean 2000-05-13 05:16:00 我在网上看了一篇文章如下,可是我觉的很有道理,可是我在VC中用类似方法并不能实现
调用屏幕保护口令验证对话框。请问为什么?
《用系统函数调用屏幕保护口令》
看了先前一些朋友的文章,从各个角度对屏幕保护程序做了分析,但唯独忘记了一点.大家知道,标准的屏幕保护程序(比如Windows自带的那些),是共用一个屏幕保护口令的,就是说你一旦设定了口令,那么不管你换哪个程序,口令都是那一个. 当然,我们可以象前面有位朋友介绍的那样,从注册表中破解屏幕保护口令,然后自己直接加以利用就是了,但是我们可以注意到,那些标准屏幕保护程序的"设定口令对话框"和"校验口令对话框"都是统一的,由windows系统提供的,这样做有一个好处,就是可以不用关心当前windows使用何种语言,相信编程的同志会想到windows API里面的messagebox函数吧? 所以,一定存在一个函数可以调出这些屏幕保护程序的对话框! 本人经过查阅大量资料,终于找到可这个办法:
下面这个函数当点击屏幕保护程序窗口,需要口令验证时执行:
procedure TfrmScreenSaver.CloseIfOk;
var hLib:THandle;
P:function(Parent:THandle):Boolean; stdcall;
SysDir:String;
NewLength:Integer;
Registry:TRegistry;
OSVer:TOSVersionInfo;
begin
//首先检测windows版本,因为NT和
win98/95处理方法不同
OSVer.dwOSVersionInfoSize:=SizeOf(OSVer);
GetVersionEx(OSVer);
if OSVer.dwPlatformID=VER_PLATFORM
_WIN32_WINDOWS then //如果是win98/95
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
if Registry.OpenKey('Control Panel\desktop',false) then
begin
if Registry.ReadInteger('ScreenSaveUsePassword')< >0 then
begin
ShowCursor(True); //激活鼠标
//从系统目录动态调入库PASSWORD.CPL
SetLength(SysDir,MAX_PATH);
NewLength:=GetSystemDirectory
(PChar(SysDir),MAX_PATH);
SetLength(SysDir,NewLength);
if (length(SysDir)>0) and (SysDir[length(SysDir)]< >'\') then
SysDir:=SysDir+'\';
hLib:=LoadLibrary(PChar(SysDir+'PASSWORD.CPL'));
if hLib=0 then
Close //如果DLL没找到,直接关闭程序
else
begin //显示口令校验对话框
P:=GetProcAddress(hLib,'VerifyScreenSavePwd');
if P(Handle) then
//校验成功则关闭
Close;
FreeLibrary(hLib); //释放PASSWORD.CPL
end;
ShowCursor(False); //隐藏鼠标
end
else
Close;
end
else
Close;
end
else
if OSVer.dwPlatformID=VER_PLATFORM_
WIN32_NT then //如果是Windows NT
begin
//口令被NT控制, 直接关闭程序即可
Close;
end
else
//既不是NT也不是Win9x,直接关闭程序
Close;
end;