Seriennummer Informationen in Registry schreiben

[mkinzler]

Besser ist aber das Programm, an die bestehenden Rechte anzupassen, als die Lauffähigkeit des Programmes von abweichenden Rechteeinstellungen in der Registry oder dem Dateisystem abhängig zu machen!

[DeddyH]

Um nochmal zum Kernproblem zurückzukommen: Schreiben des Wertes unter HKLM als Admin (z.B. im Verlauf des Setups). Lesen des Wertes dann mittels
Reg := TRegistry.Create(KEY_READ); Nach meiner Erfahrung sollte das so funktionieren. Wie man allerdings die Sache mit der WOW6432Node in den Griff bekommt, dazu kann ich nicht viel sagen, da ich kein 64Bit-OS besitze und das nur bei einem Kunden mal beobachtet habe.

[dor557]

Also, Was das Thema angeht mit den Rechten möchte ich mal folgendes Sagen :

grundsätzlich ist es Meiner meinung nach Richtig das normale Benutzer keine Admin-Rechte besitzen. Is ja logisch. wenn man da einen Anfänger dran lässt geht hinterher das Halbe System nicht mehr. wie z.b. die winnt.dll oder so löschen

Was die Schreibrechte in der Registry angeht da muss ich mir wohl wirklich etwas ausdenken.

Es wid wohl darauf hinaus laufen das ich in der Anwendung feststellen muss ob ich Admin bin oder nicht und dann den Hinweis geben das admin rechte benötigt werden damit die Seriennummer Rechnerweit gepeichert werden kann.

Ansonsten wird die eben nur dem User zugewiesen und gut ist.

Aber nun stehe ich wieder vor einem punkt Namlich Nach der Rechte überprüfung suchen aber ich denke dazu werde ich Hier im Forum sicher was finden. Bin sicherlich nicht der erste mit einem Solchen Problem

Danke auf alle fälle für die Vielen antworten. Werde schauen was ich daraus mache.

Wie schon ein Paar beiträge vorher gesagt. Muss ich wohl die Registry geschichte von Vorne schreiben und das entsprechend anpassen.

Danke euch Leutz...

Ihr Seid die Besten

[mkinzler]

Man könnte dieses Recht auch einfach anfordern ( elevation)

[generic]

Zitat von dor557:

Was die Schreibrechte in der Registry angeht da muss ich mir wohl wirklich etwas ausdenken.

Es wid wohl darauf hinaus laufen das ich in der Anwendung feststellen muss ob ich Admin bin oder nicht und dann den Hinweis geben das admin rechte benötigt werden damit die Seriennummer Rechnerweit gepeichert werden kann.

Ansonsten wird die eben nur dem User zugewiesen und gut ist.

Du kannst natürlich die Adminrechte anfordern vom UAC.
Dann machst du ein Knopf mit Schild "Seriennummer eingeben". Dieser Knopf impersonated dann zum Admin.

Sakura (Daniel) hat dazu Beispiel gemacht?!
Zumindest habe ich mal eine Demo gesehen.

[dor557]

Zitat von generic:

Du kannst natürlich die Adminrechte anfordern vom UAC.
Dann machst du ein Knopf mit Schild "Seriennummer eingeben". Dieser Knopf impersonated dann zum Admin.

Sakura (Daniel) hat dazu Beispiel gemacht?!
Zumindest habe ich mal eine Demo gesehen.

Ich habe nach der Demo gesucht. Nichts Gefunden. Aber Das wäre schon net schlecht wenn man zur laufzeit einfach die Adminrechte abrufen kann um etwas aus zu führen.
Wo hassn das gesehen ?

So aber was anderes. Was mich nun total verwirrt. Ich hoffe auf Erleuchtung.

Ich hatte zum Lesen folgenden Code geschrieben :

Delphi-Quellcode:

   Reg := TRegistry.Create;
   with Reg do
   begin
      RootKey := HKEY_LOCAL_MACHINE;
      Ver := inttostr(Version.Hauptversion) + '.' + inttostr(Version.Nebenversion);
      Ver_new := ver;
      OpenKeyReadOnly(RegPath+Ver);
      if KeyExists('S/NR') then
        MainConfig.SENR := ReadString('S/NR') else MainConfig.SENR := '';
      if KeyExists('firma') then
        MainConfig.Firma := ReadString('firma') else MainConfig.Firma := '';
      CloseKey;
    end;

so nun (Ich weiss ich wiederhole mich) in XP konnte die Funktion KeyExists mir ein true geben. Unter 7 ein False. (Vista noch nicht versucht)

nun habe ich eine naja mehr oder weniger eingebung gehabt und habe mir gedacht das Keys ja eigentlich nicht die Einträge sind sondern die Schlüssel "Ordner".

also kam Folgendes dabei raus :

Delphi-Quellcode:

   Reg := TRegistry.Create;
   with Reg do
   begin
      RootKey := HKEY_LOCAL_MACHINE;
      Ver := inttostr(Version.Hauptversion) + '.' + inttostr(Version.Nebenversion);
      Ver_new := ver;
      OpenKeyReadOnly(RegPath+Ver);
      if ValueExists('S/NR') then
        MainConfig.SENR := ReadString('S/NR') else MainConfig.SENR := '';
      if ValueExists('firma') then
        MainConfig.Firma := ReadString('firma') else MainConfig.Firma := '';
      CloseKey;
    end;

So nun kann ich das wenn die Software als Admin gestartet ist speichern und als user lesen

Aber nun erkläre mir mal jemand das XP das akzeptiert hat obwohl es eigentlich ja schon von anfang an falsch programmiert wurde oder ?

[himitsu]

Zitat von dor557:

Du kannst natürlich die Adminrechte anfordern vom UAC.
Dann machst du ein Knopf mit Schild "Seriennummer eingeben". Dieser Knopf impersonated dann zum Admin.

http://www.michael-puff.de/Programmi...ersonate.shtml oder Impersonate

Aber wenn ich das richtig verstanden hab, dann sollte hier z.B. ein OutOfProcessServer, welche mit den nötigen Adminrechten läuft, besser sein.

[edit] hatte ich mir doch mal was gemerkt
http://www.delphipraxis.net/151099-e...ml#post1019460

[dor557]

also die Methode habe ich versucht. Aber das geht warscheinlich nur bei XP oder NT. unter Vista und windows 7 geht das nicht. werde wohl auch auf die Methode mit einer Externen exe zurückgreifen müssen.

gruss Sascha

[gmc616]

Zitat von DeddyH:

... Wie man allerdings die Sache mit der WOW6432Node in den Griff bekommt ...

So: Registry: WOW6432NODE

[DeddyH]

Zitat von gmc616:

Zitat von DeddyH:

... Wie man allerdings die Sache mit der WOW6432Node in den Griff bekommt ...

So: Registry: WOW6432NODE

Thx, das schaue ich mir bei nächster Gelegenheit genauer an