Problème FMX et TRegistry

**Steprawl** · 07/09/2023, 20h02

Bonjour a toute la communauté,

Je fais du développement Delphi FMX (ma cible est Windows) et je rencontre un petit problème de lecture.
Je souhaite lire une clé mais j'ai une erreur en compilant.

Code :

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

[dcc32 Erreur] uMain.pas(84): E2003 Identificateur non déclaré : 'HKEY_LOCAL_MACHINE'

J'ai essayer de définir la plateforme sans suite voici le bout de mon code

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
uses
{$IF DEFINED(MSWINDOWS)}
  System.Win.Registry,
{$ENDIF}

//===================

function TfrmMain.GetComputerID: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Cryptography') then
    begin
      Result := Reg.ReadString('MachineGuid');
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Je serai très ravis de lire vos précieux conseil et expertise.