Discussion :

[K.othmane]

Yop
Je chercherais une fonction pour LIRE des données dans la base de registre sans utiliser Registry dans les uses .
Merci

[K.othmane]

ca va j'ai trouvé :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
function RegistryRead(const Subkey, ValueName: string):string;
var
  valueType: DWORD;
  valueLen: DWORD;
  buffer: PChar;
  key: HKEY;
begin
  // open the specified key
  if RegOpenKeyEx(HKEY_CURRENT_USER,
                  PChar(Subkey),
                  0, KEY_READ, key) = ERROR_SUCCESS then
  begin
    // retrieve the type and data for a specified value name
    SetLastError(RegQueryValueEx(key,
                 PChar(ValueName),
                 nil,
                 @valueType,
                 nil,
                 @valueLen));
    if GetLastError = ERROR_SUCCESS then
    begin
      GetMem(buffer, valueLen);
      try
        RegQueryValueEx(key,
                      PChar(ValueName),
                      nil,
                      nil,
                      PBYTE(buffer),
                      @valueLen);
        Result:=StrPas(buffer)
      finally
        FreeMem(buffer)
      end
    end
    else
      raise Exception.Create('Cannot Read  Value/')
  end;
end;

Merci