Registry Einträge werden (auf PC 4) nicht gespeichert

[Starworld1000]

Hallo alle zusammen

Ich habe vor einiger Zeit ein Programm geschrieben, das Werte in die Registry schreibt und nach Bedarf wieder ausliest.

Das Programm läuft schon seit einigen Monaten auf 3 Rechnern ohne Probleme.
Anfang der Woche habe ich nun das Programm auf einen vierten Computer installiert.
Die Werte in der Registry werden ohne Probleme ausgelesen, aber es werden keine Änderungen dieser Werte gemacht, wenn Änderungen gemacht werden müssen.

Das Problem tirtt nur an Rechner 4 auf. Bei allen anderen Rechnern gibt es keine Probleme. Das Betriebssystem ist noch WindowsXP SP2

Hier mal der Code:



// Daten aus der Registry laden

regist:=Tregistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
if regist.KeyExists('\Software\Programm\Position') then
begin
regist.OpenKey('\Software\Programm\Position',false );
PositionX:=regist.ReadInteger('PosX');
PositionY:=regist.ReadInteger('PosY');
end
else
begin
MessageDlg ('Einträge in der Registry fehlen', mtError, [mbok], 0);
end;



// Programmstatus in Registry schreiben

regist:=Tregistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
if regist.KeyExists('\Software\Programm\Settings') then
begin
regist.OpenKey('\Software\Programm\Settings',true) ;
regist.WriteInteger('Open',(Integer(1)));
regist.WriteInteger('Close',(Integer(0)));
end
else
begin
MessageDlg ('Einträge in der Registry fehlen', mtError, [mbok], 0);
end;



Kann mir jemand weiterhelfen, an was es liegen könnte ?

Beste Grüße
Starworld1000

[DeddyH]

Was passiert hiermit?

Delphi-Quellcode:

regist:=Tregistry.Create;
try
  regist.RootKey:=HKEY_CURRENT_USER;
  if regist.KeyExists('\Software\Programm\Settings') then
    begin
      if regist.OpenKey('\Software\Programm\Settings',true) then
        begin
          regist.WriteInteger('Open', 1);
          regist.WriteInteger('Close', 0);
          regist.CloseKey;
        end
      else
        MessageBox(0, 'Schlüssel kann nicht geöffnet werden.', nil, MB_OK or MB_ICONERROR);
    end
  else
    begin
      MessageDlg ('Einträge in der Registry fehlen', mtError, [mbok], 0);
    end;
finally
  regist.Free;
end;

[Starworld1000]

Vielen Dank für die schnelle Antwort

Nein bringt leider auch nichts. Es kommt keine Meldung aber die Daten werden auch nicht geändert.
Könnte es vielleicht ein Rechteproblem sein ?

Viele Grüße
Starworld1000

[DeddyH]

Das war auch mein Verdacht (obwohl das in HKCU nicht unbedingt wahrscheinlich ist), aber dann hätte IMO mindestens eine Meldung kommen müssen. :gruebel:

[Bernhard Geyer]

Schon mal den Virenscanner deaktiviert.

Dieser überwachen auch HKCU-Einträge. Hatte schon mal das Problem das der Eintrag für Autostart von CD/DVD von Virenscanner geschützt war. Evtl. hat ja der Scanner 'neMacke alles "schützen" zu wollen.