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

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;