Problème FMX et TRegistry
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:
[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:
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.
