Jak uruchmić wygaszacz, ?żeby przy wyjściu pytało

0

Chodzi o system WInXP

Tak jak w temacie :)

Wiem jak zablokować komputer:

function LockWS: Boolean;
type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;

I wiem jak uruchomić wygaszacz...
Ale jak uruchomić wygaszacz, żeby zapytał o hasło ???

Bardzo prosze o pomoc

Z góry dziękuje i pozrawiam
UsTeK

0

Chodzi mi o to, że jak uruchomi wygaszacz w zwykły standardowy sposób:

WinExec('rundll32 diskcopy,DiskCopyRunDll', SW_SHOWNORMAL);

To uruchmi mi się tzw normanie i po poruszeniu myszką wraca pulpit :)
A ja chciałbym, żeby po wyjściu z tego wygaszacza komputer pytał o hasło.
We właściwościach ekranu można zaznaczyć opcje "Po wznowieniu chroń hasłem".
W jaki sposób uruchomić wygaszacz w takim trybie???

Z góry dziękuję za odpowiedź.

Pozdrawiam
UsTeK

0

Proponuję uruchomić program regmon i zobaczyć, czy explorer nie zapisuje tych opcji gdzieś w rejestrze.

1 użytkowników online, w tym zalogowanych: 0, gości: 1