bheller.com Index du Forum
bheller.com
Site web de Bruce Heller
 
 FAQFAQ   RechercherRechercher   Liste des MembresListe des Membres   Groupes d'utilisateursGroupes d'utilisateurs   S'enregistrerS'enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Google
Fusion *.reg discrète via Delphi7

 
Poster un nouveau sujet   Répondre au sujet    bheller.com Index du Forum -> Programmation
Voir le sujet précédent :: Voir le sujet suivant  
Auteur Message
NEXUS6
Empereur
Empereur


Inscrit le: 01 Nov 2002
Messages: 5236

MessagePosté le: Mer Oct 29, 2003 10:26 pm    Sujet du message: Fusion *.reg discrète via Delphi7 Répondre en citant

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:
procedure TFormNeXusRV9.EHQClick(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar('*.reg'),'','',SW_NORMAL);
end;
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé
NEXUS6
Empereur
Empereur


Inscrit le: 01 Nov 2002
Messages: 5236

MessagePosté le: Mer Oct 29, 2003 11:50 pm    Sujet du message: Répondre en citant

oki, ça va, j'ai trouvé :

Code:
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;
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé
noxarv
Sâge !
Sâge !


Inscrit le: 02 Avr 2003
Messages: 1617
Localisation: Au Vieux Rats

MessagePosté le: Jeu Oct 30, 2003 8:33 am    Sujet du message: Répondre en citant

à ton service...
_________________
Tout ce que je viens de te dire est faux, car j'ai déjà changé...
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
NEXUS6
Empereur
Empereur


Inscrit le: 01 Nov 2002
Messages: 5236

MessagePosté le: Jeu Oct 30, 2003 10:13 am    Sujet du message: Répondre en citant

heu, précision ... c mieux comme ceci :

Code:
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 !
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé
bruce
Superviseur
Superviseur


Inscrit le: 18 Avr 2001
Messages: 8294
Localisation: In da beat we trust !

MessagePosté le: Ven Oct 31, 2003 1:57 am    Sujet du message: Répondre en citant

g même pas le temps de répondre lol
_________________
A+++
Bruce aka Lemmings
www.bheller.com
Revenir en haut de page
Voir le profil de l'utilisateur Envoyer un message privé Envoyer un e-mail Visiter le site web de l'utilisateur MSN Messenger
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    bheller.com Index du Forum -> Programmation Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum


Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com