comment, via un bouton dans Delphi7, commander la fusion d'un *.reg dans regedit de manière discrètecàd sans l'apparition de la fenêtre de demande de confirmation "vous allez fusionner un ..." ?
procedure TFormNeXusRV9.EHQClick(Sender: TObject);
var regi : Tregistry;
begin
regi:=TRegistry.Create;
regi.RootKey:=HKEY_LOCAL_MACHINE;
regi.OpenKey('Software\RealNetworks\RV9',true);
regi.WriteExpandString('scallingFactor','dword:00000032');
regi.CloseKey;
end;
var regi : Tregistry;
begin
regi:=TRegistry.Create;
regi.RootKey:=HKEY_LOCAL_MACHINE;
regi.OpenKey('Software\RealNetworks\RV9',true);
regi.WriteInteger('scallingFactor',$50);
regi.Create.Free;
end;
NB : à titre indicatif, cette inscription dans la base de registre de windows permet de remettre "à 0" la valeur de EHQ que certains softs d'encodage rv9 vous "imposent".
C'est un dépollueur en fait !