Folgender Code macht mir Probleme und ich weiß nicht warum.
Delphi-Quellcode:
function GetOwner: string;
var reg: TRegistry;
begin
result:='N/A';
reg:=TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion', false);
result := reg.ReadString('RegisteredOwner');
finally
reg.free;
end;
end;
Aufruf:
Delphi-Quellcode:
procedure Tfrm_main.FormShow(Sender: TObject);
begin
lbl_besitzer.Caption := GetOwner;
end;
Fehlermeldung beim Aufruf: Inkompatible Typen: 'String' und 'TPersisten'.
Was soll das denn sein? Denn wenn ich die ProductId fast die gleich Funktion benutze, klappt alles wunderbar.
keine Ahnung, brauche mal einen Hinweis?
Danke