[DELPHI] Ecrire dans le registre

Recherche :

Dernière réponse

Sujet : [DELPHI] Ecrire dans le registre

rufo

juju_le_barbare a écrit a écrit :

Au fait :

WriteString('margin_right', Margin_Right) set à écrire une string, pour écrire un dword je tape :WriteDword('margin_right', Margin_Right) ???

Merci

:jap:

heu, là, je sais pas... Regarde dans l'aide delphi, c'est dedans :)

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

rufo

heu, là, je sais pas... Regarde dans l'aide delphi, c'est dedans :)

juju_le_barbare

Au fait :

WriteString('margin_right', Margin_Right) set à écrire une string, pour écrire un dword je tape :WriteDword('margin_right', Margin_Right) ???

Merci

:jap:

juju_le_barbare

Merci beaucoup rufo !!! :hello:

Juju

rufo

procedure TF_Principale.Lire_Registre_Params_IE();
var
Reg: TRegistry ;
begin
// Permet de lire les valeurs des options d'impression d'Internet Explorer
Reg := TRegistry.Create ;
try
// Impression des couleurs de fond
Reg.RootKey := HKEY_CURRENT_USER ;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main', False) then
begin
Options.Print_Background_Default := Reg.ReadString('Print_Background') ;
Reg.CloseKey ;
end
else Options.Print_Background_Default := 'no' ;

// Marges, en-tête et pied de page
Reg.RootKey := HKEY_CURRENT_USER ;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\PageSetup', False) then
begin
with Options do
begin
Footer_Default := Reg.ReadString('footer') ;
Header_Default := Reg.ReadString('header') ;
Margin_Bottom_Default := Reg.ReadString('margin_bottom') ;
Margin_Top_Default := Reg.ReadString('margin_top') ;
Margin_Left_Default := Reg.ReadString('margin_left') ;
Margin_Right_Default := Reg.ReadString('margin_right') ;
end ;
Reg.CloseKey ;
end
else
begin
// Valeurs par défaut
with Options do
begin
Footer_Default := '&u&b&d' ;
Header_Default := '&w&bPage &p sur &P' ;
Margin_Bottom_Default := '0.75000' ;
Margin_Top_Default := '0.75000' ;
Margin_Left_Default := '0.75000' ;
Margin_Right_Default := '0.75000' ;
end ;
end ;
except
end ;

Reg.Free ;
end ;

procedure TF_Principale.Ecrire_Registre_New_Params_IE();
var
Reg: TRegistry ;
begin
// Permet de modifier les valeurs des options d'impression d'Internet Explorer
Reg := TRegistry.Create ;
try
// Impression des couleurs de fond
Reg.RootKey := HKEY_CURRENT_USER ;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main', True) then
begin
Reg.WriteString('Print_Background', Options.Print_Background) ;
Reg.CloseKey ;
end ;

// Marges, en-tête et pied de page
Reg.RootKey := HKEY_CURRENT_USER ;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\PageSetup', True) then
begin
with Options do
begin
with Reg do
begin
WriteString('footer', Footer) ;
WriteString('header', Header) ;
WriteString('margin_bottom', Margin_Bottom) ;
WriteString('margin_top', Margin_Top) ;
WriteString('margin_left', Margin_Left) ;
WriteString('margin_right', Margin_Right) ;
CloseKey ;
end ;
end ;
end ;
except
end ;

Reg.Free ;
end ;

voilà, ça devrait t'aider :)

rufo

juju_le_barbare a écrit a écrit :

Merci bcp!

ki pourrait me donner plus d'aide sur ces fonctions ?

moi :)
si tu peux patienter qq heures, je peux te filer un ex complet pour lire/écrire dans le registre... j'ai pas les sources sous la mains

juju_le_barbare

Merci bcp!

ki pourrait me donner plus d'aide sur ces fonctions ?

antp	avec le TRegIniFile si c'est pour juste sauver des options de ton prog dans la base de registre comme tu les sauverais dans un ini (perso je préfère les progs qui sauvent leurs options dans fichier ini directement - TIniFile pour ça) si tu veux des trucs plus avancés il y a le TRegistry.

juju_le_barbare

Bonjour

Déjà 1st question : pourquoi je vois quasimment personne dans ce forum parler du delphi ??? Il est bien !!!

Bref comment écrire dans le registre en delphi ???
Que ça soit une string, un dword, ou un bin
Et éventuellement lire et supprimer une valeur

Merci d'avance