屏幕保护的更改密码对话框

MyMod := LoadLibrary(PChar(SysDir+'MPR.DLL'));
if MyMod <> 0 then begin
PwdFunc := GetProcAddress(MyMod,'PwdChangePasswordA');
if Assigned(PwdFunc) then
PwdFunc('SCRSAVE',StrToInt(Arg2),0,0);
FreeLibrary(MyMod);
end;