Discussion :

[alana]

Bonjour,

Je voudrais modifier la valeur d'une clé en base de registre dans mon setup, sachant que c'est une clé que je crée si besoin au cours du setup...

Pour la création de ma clé, j'ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[Registry]
Root: HKLM; Subkey: SOFTWARE\MonDossier; ValueType: string; ValueName: MaCle; Flags: deletekey

Pour récupérer sa valeur, qui est calculée pendant le setup, j'ai créé une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function getValeurMaCle() : String;
begin
	Result := MaCle; //-- "MaCle" est définie dans le code comme étant une String
end;

Et pour la modifier, dans la section code, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\MonDossier', 'MaCle', getValeurMaCle());

Le souci, c'est qu'une fois le setup déroulé, la clé en base de registre a sa valeur initiale, càd vide dans mon cas...

Comment faire pour lui donner la bonne valeur??

[ouiouioui]

Tu vire RegWriteStringValue et tu met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
[Registry]
Root: HKLM; Subkey: SOFTWARE\MonDossier; ValueType: string; ValueName: "MaCle"; ValueData: "{code:getValeurMaCle}"; Flags: deletekey

comme sa a l'install ta fonction donne la valeur à écrire

[alana]

Oui j'avais essayé avant, mais le compilo me renvoie une erreur :

Invalid prototype for 'getValeurMaCle'

Je comprends pas

[ouiouioui]

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function getValeurMaCle() : String;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function getValeurMaCle(Param: String): String;

[alana]

oui, merci, ça marche nickel!!!