Discussion :

[davels]

Bonjour,

voici mon petit problème du jour.
Lorsque je lance mon programme sur mon pc, tout va bien. Je suis admin local.
Mais lorsque je lance le même programme sur la machine d'un utilisateur, cette étape de code ne fonctionne pas! J'ai essayé avec un utilisateur standard non admin et en admin avec le même résultat.

Point le plus surprenant, si j'ouvre la registry pour vérifier que la clé existe bien, après ca fonctionne.
Je redémarre le pc et ca ne fonctionne de nouveau plus tant que je n'ai pas ouvert la registry! A moins d'avoir loupé une étape, c'est le seul moyen que j'ai trouvé de pouvoir faire fonctionner le programme.
L'un de vous aurait il un idée du pourquoi?

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
17
18
19
20
21
 
function GetOcOpInfo(Software, Info : String):String;
var
  InformationBack : TRegistry;
begin
  Result := '';
 
  InformationBack := TRegistry.Create(KEY_EXECUTE);
  try
    InformationBack.RootKey := HKEY_LOCAL_MACHINE;
    if not InformationBack.KeyExists('SOFTWARE\\') then
    else if InformationBack.KeyExists('SOFTWARE\\EasternGraphics\\Install\\' + Software + '\\') then
    begin
            InformationBack.OpenKeyReadOnly('SOFTWARE\\EasternGraphics\\Install\\' + Software + '\\');
      Result := InformationBack.ReadString(Info);
    end;
 
  finally
    InformationBack.CloseKey;
    InformationBack.Free;
  end;

Merci

[Lung]

Il faut précisier l'accès en lecture seule :

Code :

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

Reg.Access := KEY_EXECUTE;

[davels]

Il faut précisier l'accès en lecture seule :

Code :

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

Reg.Access := KEY_EXECUTE;

Merci mais je viens d'essayer et cela ne fonctionne pas

J'avais déjà renseigné le KEY_EXECUTE dans le create, il faut impérativement le renseigner dans l'Access encore par après?

[Cl@udius]

Salut

... il faut impérativement le renseigner dans l'Access encore par après?

Non pas du tout, dans le Create c'est suffisant.


Et comme ça ?

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
17
18
19
20
function GetOcOpInfo(Software, Info: string): string;
var
  Key: string;
begin
  Result := '';
  Key := '\SOFTWARE\EasternGraphics\Install\' + Software;
 
  with TRegistry.Create(KEY_EXECUTE) do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if KeyExists(Key) then
    begin
      OpenKey(Key, False);
      Result := ReadString(Info);
    end;
  finally
    CloseKey;
    Free;
  end;
end;

J'ai l'impression que tes \\ mettent le bazar.
Et puis ce:

Code :

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

1
2
if not Condition then
else if ...

C'est pas courant comme écriture.

@+ Claudius

[ShaiLeTroll]

les \\ ça sent la recopie d'un code C++ en Delphi !
C'est surprenant mais Windows l'accepte aussi pour les répertoires, des fois trop de souplesse ce n'est pas une bonne idée !

J'ai un vieil exe qui ressemble un regedit, je n'ai pas spécifié de niveau d'acces, je dois être en KEY_ALL_ACCESS.

Le premier niveau de clé est obtenu par RegEnumKey (en 2000, je ne savais pas que OpenKeyReadOnly acceptait '' pour indiquer la racine )

Ensuite, j'utilise un TRegistry.KeyExists, TRegistry.OpenKeyReadOnly TRegistry.GetValueNames pour alimenter le TListView des valeurs, cela fonctionne encore très bien aujourd'hui sur XP (exe compilé en 2003 avec D7 probablement)

ton code est extrément basique, utilises-tu vista ou seven ?

[davels]

les \\ ça sent la recopie d'un code C++ en Delphi !
C'est surprenant mais Windows l'accepte aussi pour les répertoires, des fois trop de souplesse ce n'est pas une bonne idée !

J'ai un vieil exe qui ressemble un regedit, je n'ai pas spécifié de niveau d'acces, je dois être en KEY_ALL_ACCESS.

Le premier niveau de clé est obtenu par RegEnumKey (en 2000, je ne savais pas que OpenKeyReadOnly acceptait '' pour indiquer la racine )

Ensuite, j'utilise un TRegistry.KeyExists, TRegistry.OpenKeyReadOnly TRegistry.GetValueNames pour alimenter le TListView des valeurs, cela fonctionne encore très bien aujourd'hui sur XP (exe compilé en 2003 avec D7 probablement)

ton code est extrément basique, utilises-tu vista ou seven ?

Re! Merci pour votre aide!

En effet, c'est du code copié depuis cette source : http://docwiki.embarcadero.com/CodeE...istry_(Delphi)
Cela dit, ce n'est pas du bête copié/collé, je le comprends.
Et d'aussi loin que je me souvienne, j'ai toujouts mis les \\ pour les TRegistry, je vais essayer de suite si ca fonctionne avec juste \ (car j'avais laissé le problème sur le côté)

[Dr.Who]

houlalala
que de code pour lire une valeur dans le registre...

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
 
function GetOcOpInfo(aSoftware {key}, aInfo {value}: String):String;
begin
  Result := '';
 
  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('SOFTWARE\EasternGraphics\Install\' + aSoftware, false) then
      Result := ReadString(aInfo);
    closeKey; 
  finally
    Free;
  end;
end;