Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.23;
Скачать: CL | DM;

Вниз

Пароль на 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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
1-74719
Лагутин Антон
2002-12-13 21:55
2002.12.23
Помогите с DBGrid


1-74686
viper
2002-12-13 12:18
2002.12.23
Проблема с переносами!


14-74983
Ketmar
2002-12-03 17:40
2002.12.23
где взять исходники для Q2 BSP Builder и сопутствующих tools?


14-74975
spb
2002-12-03 15:05
2002.12.23
Просто так


14-74973
romychk
2002-12-01 20:57
2002.12.23
Мобильный телефон