Fusion *.reg discrète via Delphi7

Si vous voulez parler de code, programmation ou autres routines, c par là !

Modérateur : Modérateurs

Avatar de l’utilisateur
NEXUS6
Sâge !
Sâge !
Messages : 1798
Inscription : ven. nov. 01, 2002 9:43 am

Fusion *.reg discrète via Delphi7

Message 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;
Avatar de l’utilisateur
NEXUS6
Sâge !
Sâge !
Messages : 1798
Inscription : ven. nov. 01, 2002 9:43 am

Message 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;
Avatar de l’utilisateur
noxarv
Sâge !
Sâge !
Messages : 1564
Inscription : mer. avr. 02, 2003 5:38 pm
Localisation : Au Vieux Rats
Contact :

Message par noxarv »

à ton service... :D
Tout ce que je viens de te dire est faux, car j'ai déjà changé...
Avatar de l’utilisateur
NEXUS6
Sâge !
Sâge !
Messages : 1798
Inscription : ven. nov. 01, 2002 9:43 am

Message 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 ! :wink:
Avatar de l’utilisateur
bruce
Superviseur
Superviseur
Messages : 1409
Inscription : mer. avr. 18, 2001 2:00 am
Localisation : In da beat we trust !
Contact :

Message par bruce »

;) g même pas le temps de répondre lol
A+++
Bruce aka Lemmings
www.bheller.com
Répondre