in die Registry schreiben

[strom]

Hallo,
möchte was in die Registry schreiben, was soweit auch funktioniert.
Nur für ca. 30sec. kommt immer die Meldung in der Form1 (Keine Rückmeldung) ???

Warum? Bin als Administrator angemeldet!

Delphi-Quellcode:

procedure TForm1.Reg1Click(Sender: TObject);
var
  reg : TRegistry;
    s : String;
begin
 if InputQuery('Caption', #31 + 'Bitte geben Sie das Passwort ein', s ) then
  begin
    if s = 'test' then begin
  reg := tregistry.create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('LogUser', paramstr(0));
    CloseKey;
    free;
 end;
end;
  end;
end;

[Bjoerk]

Das Programm muß soweit ich weiß ab Vista dann mit Adminrechren gestartet werden.

[Bernhard Geyer]

Zitat von strom:

Warum? Bin als Administrator angemeldet!

Du ja - dein von dir gestarteter Prozess i.d.R. aber nicht.
D.h. schreiben unter HKEY_LOCAL_MACHINE wird nicht gehen da hierfür der Prozess Adminrechte benötigt.
Und solche Schlüssel wie "Run" werden auch gerne zusätzlich von Virenscanner geschützt so das hier das Schreiben (auch wenn es Windows-Rechte-Technisch evtl. klappen müsste) es nicht geht - Vor ca. 2 Jahren mit dem Autostart-Eintrag von Windows im Userprofil den Fall gehabt.

[Luckie]

OpenKey hat einen Rückgabewert. Mit einer gescheiten Fehlerbehandlung wüsstest du warum es nicht funktioniert.