Registry Eintrag: RegisteredOwner ???

[Piro]

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

[Dax]

Zufällig gibt es für jedes TWinControl auch eine Methode GetOwner, solltest deine Funktion besser umbenennen.

[jfheins]

Hast du schon überprüft, ob er den schlüssel öffnen konnte ? (Ergebnis von openkey)

[Piro]

Danke

das umbennen der funktion hat gereicht, so was dummes. Naja, jeder macht mal fehler.

schönen abend noch.

sven

[MathiasSimmack]

Guten Morgen.

Du solltest deine Funktion noch erweitern und zusätzlich im Schlüssel "Windows" nachschauen (also ohne "NT"), denn unter 95/98/ME steht der Eintrag ganz sicher dort.

[Luckie]

Und noch zwei Sachen:
Die Methode OpenKey ist nicht umsonst eine Funktion derene Rückgabewert man prüfen kann.

Unter NT ff. System werden nur Administratoren dein Programmm benutzten können. Die VCL öffnet standardmäßig die Schlüssel immer mit ALL_ACCESS mit der Methode Create. Es haben aber nur Administartoren dort Schreibrechte. Öffne den Schlüssel mit KEY_READ und auch nicht Administartoren können dein Programm benutzen.

[Piro]

Danke, das ist sehr hilfreich.

Ich habe das gearde mal versucht aber irgendwie funktioniert es nicht. Kannst du mir mal ein Tutorial oder ein Beispiel geben.

Danke im Voraus.

Sven

[Luckie]

Tutorial wo für?
Hier für:
reg := TRegistry.Create(KEY_READ);