Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Система";
Поточний архів: 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.024 c
6-74866
Kalishenko
2002-10-28 20:42
2002.12.23
Список IP-адрес в мережі


3-74606
Evladar
2002-12-05 10:38
2002.12.23
Circular DataLinks are not allowed


14-74915
zzet
2002-12-01 15:43
2002.12.23
Підкажіть, плз, прогу, якій можна зробити скріншот в DOOMe?


8-74851
сумний
2002-09-05 08:02
2002.12.23
Полігон в Teechart


14-74929
AndreyAGSoft
2002-12-02 14:39
2002.12.23
Включуся в розробку





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська