Page 1 sur 1
Fusion *.reg discrète via Delphi7
Publié : mer. oct. 29, 2003 10:26 pm
par NEXUS6
Hello,
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 ..." ?
Merci
Pour exemple :
Code : Tout sélectionner
procedure TFormNeXusRV9.EHQClick(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar('*.reg'),'','',SW_NORMAL);
end;
Publié : mer. oct. 29, 2003 11:50 pm
par NEXUS6
oki, ça va, j'ai trouvé :
Code : Tout sélectionner
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;
Publié : jeu. oct. 30, 2003 8:33 am
par noxarv
à ton service...
Publié : jeu. oct. 30, 2003 10:13 am
par NEXUS6
heu, précision ... c mieux comme ceci :
Code : Tout sélectionner
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 !
Publié : ven. oct. 31, 2003 1:57 am
par bruce
g même pas le temps de répondre lol