Пароль на ScreenSaver [D6, Win95/98, WinME, Win2k, WinXP]
no name © (2002-10-19 14:28:00)
Кто небудт может подсказать как программно поставить/убрать
пароль на заставку Windows???
Rouse_ (2002-10-20 09:56:00) [1]
Вот к вот скринсейвер проверяет пароль
Function AskPassword : Boolean;
Var
Key : hKey;
D1,D2 : Integer; { two dummies }
Value : Integer;
Lib : THandle;
F : TVSSPFunc;
Begin
Result := True;
If (RegOpenKeyEx(hKey_Current_User,"Control Panel\Desktop",0,
Key_Read,Key) = Error_Success) Then
Begin
D2 := SizeOf(Value);
If (RegQueryValueEx(Key,"ScreenSaveUsePassword",nil,@D1,
@Value,@D2) = Error_Success) Then
Begin
If (Value 0) Then Begin
Lib := LoadLibrary("PASSWORD.CPL");
If (Lib > 32) Then Begin
@F := GetProcAddress(Lib,"VerifyScreenSavePwd");
ShowCursor(True);
If (@F nil) Then Result := F(PreviewWindow);
ShowCursor(False);
MoveCounter := 3; { reset again if password was wrong }
FreeLibrary(Lib);
End;
End;
End;
RegCloseKey(Key);
End;
End;
Вот с этого и начинай копать
Желаю успехов
Наверх 
ЧАТ |
Орешник |
|
