1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
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
// on ecrit la valeur
RegSetValueEx(HK,PChar(NomClee),0, REG_SZ,
Pchar(ValeurClee),Length(ValeurClee));
RegCloseKey(HK); // on referme la clée
end; |
Partager