Buscar por:

Habilitando e desabilitando a senha do protetor de tela

Código

{Inclua a unit REGISTRY na clausula uses do seu form. }

// Habilita 

procedure TForm1.Button1Click(Sender: TObject); 

var 

Registry: TRegistry; 

begin 

Registry := TRegistry.Create; 

Registry.RootKey := HKEY_CURRENT_USER; 

Registry.OpenKey('Control PanelDesktop', TRUE); 

Registry.WriteInteger('ScreenSaveUsePassword',$0); 

Registry.CloseKey; 

Registry.Free; 

end; 

// Desabilita 

procedure TForm1.Button2Click(Sender: TObject); 

var 

Registry: TRegistry; 

begin 

Registry := TRegistry.Create; 

Registry.RootKey := HKEY_CURRENT_USER; 

Registry.OpenKey('Control PanelDesktop', TRUE); 

Registry.WriteInteger('ScreenSaveUsePassword',$1); 

Registry.CloseKey; 

Registry.Free; 

end;