Форум: "Система";
Текущий архив: 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.44 MB
Время: 0.013 c