Registriert seit: 3. Mai 2004
Ort: Österreich > Bad Vöslau
760 Beiträge
Turbo Delphi für Win32
|
Re: Mal wieder probleme mit der registry
22. Aug 2004, 09:17
Delphi-Quellcode:
procedure ReadInfoFromRegistry;
var
lReg: TRegistry;
lOSName, lVersion, lUser, lOrg, lServicePack: string;
begin
lReg := TRegistry.Create(KEY_READ);
try
lReg.RootKey := HKEY_LOCAL_MACHINE;
if (lReg.OpenKeyReadOnly(' SOFTWARE\Microsoft\Windows NT\CurrentVersion')) then
try
lOSName := lReg.ReadString(' ProductName');
lVersion := lReg.ReadString(' CurrentVersion');
lUser := lReg.ReadString(' RegisteredOwner');
lOrg := lReg.ReadString(' RegisteredOrganization');
lServicepack := lReg.ReadString(' CSDVersion');
finally
lReg.CloseKey;
end;
finally
lReg.Free;
end;
Memo1.Lines.Add(' OS: ' + lOSName + ' ' + lVersion + ' +++ ' + lUser + ' - ' + lOrg + ' +++ ' + lServicepack + ' +++ ');
end;
[Edit]Zu langsam[/Edit]
Günter
|
|
Zitat
|