Bonjour j'ai un petit souci avec la fonction suivante :
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.
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;
La clé existe, et OpenKey retroune false et je ne sais pas pourquoi.
Vista en en mode Administrateur
Avez vous un idée ?
Merci
Partager