Discussion :

[helene_de_fiennes]

Bonjour,
J'ai parcouru tout le forum et je n'ai pas vu de réponse à ma question :
Comment peut-on effacer une clef de registre style
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\KnownDLLs\wininet
avant de commencer l'install de mon application ? ou alors de la renommer ( ValueName ET ValueData)
J'ai essayé :

Code :

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

1
2
[Registry]
Root: HKLM; Subkey: "SYSTEM\CurrentControlSet\Control\Session Manager\KnownDLLs\"; ValueType: string; ValueName: "wininet"; ValueData: "wininet.dll"; Flags : deletevalue

Mais l'entrée n'est pas effacée alors que manuellement, il n'y a pas de soucis ...

Une idée ?
Un grand merci !

PS: les réponses dans le forum concerne comment effacer une clef lors de la désinstallation ...

[ouiouioui]

bonjour, il faut le faire via la partie "code" sur un évènement.

Code :

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

1
2
3
4
5
6
7
8
 
procedure InitializeWizard(); 
begin
//au choix:
//function RegDeleteKeyIncludingSubkeys(const  RootKey: Integer; const SubkeyName: String): Boolean;
//function RegDeleteKeyIfEmpty(const  RootKey: Integer; const SubkeyName: String): Boolean;
//function RegDeleteValue(const RootKey:  Integer; const SubKeyName, ValueName: String): Boolean;
end;

par contre la je suis pas sûr mais si c'est pour dé enregistrer une dll c'est pas comme sa qu'il faut procéder

[helene_de_fiennes]

En effet, voila comment j'ai fait ( je n'avais pas vu ta réponse mais ca y ressemble) et ca fonctionne .
Merci en tout cas, d'avoir répondu !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure modify_values();
begin
  if RegValueExists(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session Manager\KnownDLLs','wininet') = true then
  begin
       MsgBox('key exists:' #13#13 'OK', mbInformation, MB_OK);
       if RegDeleteValue (HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Control\Session Manager\KnownDLLs','wininet') = true then
       MsgBox('key cleaned:' #13#13 'OK', mbInformation, MB_OK);
  end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then begin
    modify_values();
  end;
end;

[Mac LAK]

Heu... Pourquoi modifies-tu une clé de registre comme celle-ci ?? Wininet est une librairie faisant partie intégrante de Windows, tu ne dois pas la toucher ni modifier les clés de registre associées.

Que cherches-tu à faire, exactement ?