Discussion :

[T-B]

Bonjour j'ai un petit souci avec la fonction suivante :

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
 
FUNCTION Rech_OOo2x : STRING ;
CONST CLEREG = 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\soffice.exe';
BEGIN
  Result := '';
  With TRegistry.Create DO
  TRY
     RootKey := HKEY_LOCAL_MACHINE;
     IF KeyExists(CLEREG) THEN
        IF openkey(CLEREG,FALSE) THEN
           IF(ValueExists('Path')) THEN
               Result := ReadString('path');
 
     CloseKey;
  FINALLY
     Free;
    END;
END;

Cette fonction marche bien sous Vista si le code a été compilé avec delphi 7, mais ne fonctionne pas lorsque je la compile avec delphi 2007.

La clé existe, et OpenKey retroune false et je ne sais pas pourquoi.

Vista en en mode Administrateur

Avez vous un idée ?


Merci

[Cl@udius]

Salut

Essaye comme ceci, pour restreindre les droits en lecture seule:

Code :

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

1
2
3
 
  with TRegistry.Create(KEY_EXECUTE) do
  // ...

@+ Claudius

[Yurck]

Bonjour,

Code :

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

1
2
3
IF(ValueExists('Path')) THEN
              Result := ReadString('path');

Je ne pratique pas encore Vista et j'espère me tromper mais n'aurais tu pas un problème de casse avec le "P" de path une fois en majuscule puis en minuscule ???

a+

[T-B]

Merci Cl@udius je test ça mercredi

j'ai vu dans l'aide la propiétée access := .......

ne faudrait il pas mettre en full access KEY_ALL_ACCESS ?

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
 
FUNCTION Rech_OOo2x : STRING ;
CONST CLEREG = 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\soffice.exe';
BEGIN
  Result := '';
  With TRegistry.Create(KEY_ALL_ACCESS)  DO
  TRY
     RootKey := HKEY_LOCAL_MACHINE;
     IF KeyExists(CLEREG) THEN
        IF openkey(CLEREG,FALSE) THEN
           IF(ValueExists('Path')) THEN
               Result := ReadString('path');
 
     CloseKey;
  FINALLY
     Free;
    END;
END;

et pourqoui avec delphi 7 ça marche ?

[Cl@udius]

Re,

ne faudrait il pas mettre en full access KEY_ALL_ACCESS ?

KEY_ALL_ACCESS est le mode d'accès par défaut lorsqu'il n'est pas précisé avec le Create. Et c'est le problème de ce type d'accès sur HKLM, surtout sous Vista.
Et comme tu ne fais que de la lecture...

et pourqoui avec delphi 7 ça marche ?

N'ayant pas de machine sous Vista, je ne peux t'en dire vraiment plus.

[edit]
@Yurk, à ma connaissance le nom des clés n'est pas sensible à la casse. Et il serait étonnant qu'il le devienne avec Vista.

@+