-
- Procedure EcritRegString(Root :HKey; Chemin, NomClee, ValeurClee :string);
- var HK :HKEY;
- begin
- RegOpenKey(Root,PChar(Chemin),HK); // on ouvre la clée
-
- if HK = 0 then // si la clée n'existe pas on la crée
- RegCreateKeyEx(Root,PChar(chemin),0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,nil,HK,@DW);
- //RegCreateKey(Root,PChar(chemin),HK); // pas pour win 3.1, ça existe encore ;-D
-
-
- RegSetValueEx(HK,PChar(NomClee),0, REG_SZ, Pchar(ValeurClee),Length(ValeurClee)); // on ecrit la valeur
-
- RegCloseKey(HK); // on referme la clée
- end;
-
-
-
Procedure EcritRegString(Root :HKey; Chemin, NomClee, ValeurClee :string);
var HK :HKEY;
begin
RegOpenKey(Root,PChar(Chemin),HK); // on ouvre la clée
if HK = 0 then // si la clée n'existe pas on la crée
RegCreateKeyEx(Root,PChar(chemin),0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,nil,HK,@DW);
//RegCreateKey(Root,PChar(chemin),HK); // pas pour win 3.1, ça existe encore ;-D
RegSetValueEx(HK,PChar(NomClee),0, REG_SZ, Pchar(ValeurClee),Length(ValeurClee)); // on ecrit la valeur
RegCloseKey(HK); // on referme la clée
end;