Windows - habilitar e desabiliar a senha do protetor de tela

// Habilitar e desabiliar a senha do protetor de tela

// 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 Panel\Desktop', 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 Panel\Desktop', TRUE);

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

 Registry.CloseKey;

 Registry.Free;

end;