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

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.

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

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

Merci beaucoup rufo !!!  
 
Juju

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

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

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