Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];

Вниз

Пароль на ScreenSaver   Найти похожие ветки 

← →
no name   (2002-10-19 14:28) [0]

Кто небудт может подсказать как программно поставить/убрать пароль на заставку Windows???

---

← →
Rouse_   (2002-10-20 09:56) [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;

Вот с этого и начинай копать

Желаю успехов

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.54 MB
Время: 0.031 c