cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 28 juil. 2003 à 11:35
Ces informations sont contenues dans le registre de Windows à l'adresse :
"HKEY_Local_Machine\Software\Microsoft\Windows\CurrentVersion" dans la donnée " RegisteredOrganization".
Pour les récupérer dans une chaine, il suffit donc d'utiliser la méthode ReadString d'un objet TRegistry :
var
S : string;
begin
with TRegistry.Create do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion', False);
s := ReadString('RegisteredOrganization');
Free;
end;
end;