Seriennummer Informationen in Registry schreiben

[turboPASCAL]

Zitat von dor557:

Servus zusammen.

Servus !

Zitat von dor557:

Mal wieder ein Windows Vista / 7 Problem.

Och, so schlimm wird es nicht sein...

Zitat von dor557:

Ich habe bisher immer unter XP die Seriennummer Informationen meiner Programme unter HKEY_LOCAL_MACHINE/SOFTWARE/....
Gespeichert.

Da gehört es nicht hin.

Zitat von Luckie:

Ich würde die ganzen Infos sowieso unter HKEY_CURRENT_USER packen.

Das wäre passend.

Zitat von dor557:

Nun scheint das aber nicht mehr zu gehen. Selbst wenn ich als Admin starte werden die Daten nicht gespeichert. Ich bekomme nichtmal eine Fehlermeldung.

Liegt an deinem Sourcecode.

Zitat von dor557:

hier mal der Code der das Speichern soll :

Delphi-Quellcode:

Procedure TMainForm.Reg_Sav;
var Reg : TRegistry;
    ver : String;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\DeveloperName\AppName\', True);
    WriteString('firma', MainConfig.Firma);
    WriteString('S/NR', MainConfig.SENR);
    CloseKey;
    Free;
  end;
end;

Autsch.

Ein Versuch:

Delphi-Quellcode:

Function TMainFormUndSo.RegSaveUserLizense(Firma, Serial: string): boolean;
var
  Reg : TRegistry;
  ver : String;
begin
  Result := False;

  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_LOCAL_USER;
      OpenKey('Software\DeveloperName\AppName\', True);
      WriteString('Firma', Firma);
      WriteString('S/NR', Serial);
      CloseKey;
      Result := True;
     end;
  finally
    Reg.Free;
  end;
end;

Noch einer:

Delphi-Quellcode:

Function TMainFormUndSo.RegSaveUserLizense(Firma, Serial: string): boolean;
var
  ver : String;
begin
  Result := False;

  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_USER;
    OpenKey('Software\DeveloperName\AppName\', True);
    WriteString('Firma', Firma);
    WriteString('S/NR', Serial);
    CloseKey;

    Result := True;
  finally
    Free;
  end;
end;

Noch einer:

Delphi-Quellcode:

Function TMainFormUndSo.RegSaveUserLizense(Firma, Serial: string): boolean;
var
  ver : String;
begin
  Result := False;

  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Software\DeveloperName\AppName\', True);
    try
      try
        WriteString('Firma', Firma);
        WriteString('S/NR', Serial);
        Result := True;
      except
        on E: Exception do ShowMessage('Folgender Fehler trat auf:'#13 + E.Message);
      end;

    finally
      CloseKey;
    end;

  finally
    Free;
  end;
end;

procedure TMainFormUndSo.FormCreate(Sender: TObject);
begin
  if not RegSaveUserLizense('Numpsi', 'CA1002030E8554401AF090EFF') then {...} ;
end;

( ungetested ! )

PS.: und ja, mir ist langweilig.

[dor557]

Erstmal danke für die ganzen Antworten.

Mal eine Frage allgemein zur Registry..... Irgend wie habe ich da den sinn nicht verstanden.

HKEY_CURRENT_USER speichert doch die Daten nur in dem Aktuellen Benutzer der angemeldet ist wie der Schlüssel schon sagt. Oder nicht ?

HKEY_LOCAL_MACHINE speichert die Daten doch SYSTEMWEIT was doch wenn man die Seriennummer nur ein mal eingeben will und nicht bei Jedem Benutzer einzeln mehr sinn machen würde oder ?

Noch eine Frage... Woher kommt HKEY_LOCAL_USER ??? und warum kann ich diesen eintrag in der Regedit nicht direkt sehen ???

Oder bin ich etwas auf dem Holzweg....

@TurboPascal : Danke für die Ausführungen werde diese dann entspechend umsetzen. Ich habe noch einiges in der Software aus zu bessern und mit entsprechender Fehlersuche aus zu statten damit das Debuggen hinterher besser Funktioniert.

@Alle anderen : Auch euch danke. Aber ist es nicht so das ein Runtime Error oder eine Fehlermeldung so oder so auftaucht wenn man die Procedure nicht in eine Try...Except schleife gesetzt hat ?

zumindest war das bisher immer so.

Habe noch nicht so oft Programme in Vista oder Windows 7 in verwendung gehabt. Nun habe ich nen Laptop mit Windows 7 und ich muss mal schauen das ich da das TurboDelphi installieren kann mal schauen ob das klappt. unter vista war es schon schwer genug...

[mkinzler]

Zitat:

HKEY_CURRENT_USER speichert doch die Daten nur in dem Aktuellen Benutzer der angemeldet ist wie der Schlüssel schon sagt. Oder nicht ?

Ja

Zitat:

HKEY_LOCAL_MACHINE speichert die Daten doch SYSTEMWEIT was doch wenn man die Seriennummer nur ein mal eingeben will und nicht bei Jedem Benutzer einzeln mehr sinn machen würde oder ?

Kommt darauf an, ob diese pro Rechner oder pro Nutzer gelten soll. Bei Delphi ist diese z.B. pro Nutzer, und kann so bei der Verwendung von Netzprofilen, von verschiedenen Rechner au verwendet werden.

Zitat:

Noch eine Frage... Woher kommt HKEY_LOCAL_USER ??? und warum kann ich diesen eintrag in der Regedit nicht direkt sehen ???

Heisst auch HKEY_CURRENT_USER und ist nicht unbedingt lokal
Diese wird aufgelöst, du siehst also das Profil des aktuell angemeldeten Nutzers. Ist ein Verweis auf HKEY_USERS\<USER-SID>

[angos]

Zitat von dor557:

Erstmal danke für die ganzen Antworten.

Mal eine Frage allgemein zur Registry..... Irgend wie habe ich da den sinn nicht verstanden.

HKEY_CURRENT_USER speichert doch die Daten nur in dem Aktuellen Benutzer der angemeldet ist wie der Schlüssel schon sagt. Oder nicht ?

HKEY_LOCAL_MACHINE speichert die Daten doch SYSTEMWEIT was doch wenn man die Seriennummer nur ein mal eingeben will und nicht bei Jedem Benutzer einzeln mehr sinn machen würde oder ?

Seh ich eigentlich auch so. Ich hoffe mal auf Antworten von ein paar Wissenderen hier

Zitat:

@Alle anderen : Auch euch danke. Aber ist es nicht so das ein Runtime Error oder eine Fehlermeldung so oder so auftaucht wenn man die Procedure nicht in eine Try...Except schleife gesetzt hat ?

zumindest war das bisher immer so.

Wenn eine Exception kommt, sollte man möglichst den Fehler in seinem Programm, der eben zu dieser Exception führt, beheben und nicht einfach die Fehlermeldung ausblenden. Wenn ein Rauchmelder alarm schlägt, wirst du auch nach dem Feuer suchen und nicht einfach nur den Alarm ausstellen

[dor557]

@angos : Stimmt mit der Exception. aber wenn kein abfangen ist wird doch dennoch ein Fehler ausgeführt und der Feuermelder wird dennoch gesehen !!!! Odda nischt ???

[Neumann]

An Caleb

natürlich wird die Registry später wieder freigegeben, habe ich nur bei dem Beispiel weggelassen.

Der Code ist nicht gleich; ev ist das Problem hier:

Mein Code: reg.OpenKey('Software\ESK',true);

dorr557: OpenKey('Software\DeveloperName\AppName\', True);

Ob dies das Problem ist habe ich nicht geprüft, könnte aber sein.

Gruß

Neumann

[angos]

Zitat von dor557:

@angos : Stimmt mit der Exception. aber wenn kein abfangen ist wird doch dennoch ein Fehler ausgeführt und der Feuermelder wird dennoch gesehen !!!! Odda nischt ???

Delphi-Quellcode:

try
eineVariable := 1 / 0;
except
end;

hierbei wird der Fehler abgefangen, aber nicht ausgewertet, weiter verarbeitet. Siehe zu dem Thema auch mal in diesen Thread

Gruß

angos

[mkinzler]

Nein der Fehler wird nicht abgefangen. Es müsste dann

Delphi-Quellcode:

try
    eineVariable := 1 / 0;
except
    on Exeption do begin end;
end;

heissen. Wäre aber wenig sinnvoll!

[p80286]

Hallo zusammen,

Diese Lösung von TurboPascal erscheint mir sehr C-tricky, weil er sich das
reg:=TRegistry.Create; gespart hat.

Delphi-Quellcode:

  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_USER;
    OpenKey('Software\DeveloperName\AppName\', True);
    WriteString('Firma', Firma);
    WriteString('S/NR', Serial);
    CloseKey;
    Result := True;
  finally
    Free;
  end;

Abgesehen davon, daß ich "with" genauso schätze wie "goto", wieso funktioniert das eigentlich?

Gruß
K-H