Fehlermeldung beim Schreiben in der Registry

[Amalkotey]

Moin,

nach einer langen und schweren Erkrankung, bin ich gerade dabei, meine Programme an Windows 10 x64 mit Delphi 7 Pro anzupassen. Ich stelle nun mehr fest, das ich viel vergessen habe.

Nun zu meinnem Problem. Ich ver suche mit nachfolgenden Code

Delphi-Quellcode:

Procedure SetRegistryRun(User: Integer);
Var
  Reg: TRegistry;
  Titel : String;

Const
  KEY_WOW64_64KEY = $0100;
  KEY_WOW64_32KEY = $0200;

Begin
  If IsWow64 = True Then Begin
    Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY);
  End Else Begin
    Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_32KEY);
  End;
  Try
   If User = 1 Then
        Reg.RootKey := HKEY_LOCAL_MACHINE
      Else
        Reg.RootKey := HKEY_CURRENT_USER;
    If Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then Begin
      Titel := Application.Title;
         Titel := strLeft(Titel, Pos('WINDOWS', Titel) + 6);
      Reg.WriteString(Titel, Application.ExeName);
      AlertBox('SetRegistryRun: ' + SysErrorMessage(GetLastError), 'Fehlermeldung', 0);
       Reg.CloseKey;
    End;
   Finally
     Reg.Free;
   End;
End;

einen Wert in 'Software\Microsoft\Windows\CurrentVersion\Run' zu schreiben. Bei HKEY_CURRENT_USER funktioniert es einwandfrei. Bei HKEY_LOCAL_MASCHINE im Gegensatz nicht. Was ist Falsch? Ich bitte um Hilfe

-Amalkotey-

[Delphi.Narium]

Tippe mal darauf, dass Deine Anwendung nicht über die notwendigen Rechte zum Schreiben unter HKEY_LOCAL_MACHINE verfügt.

Was wird denn hier AlertBox('SetRegistryRun: ' + SysErrorMessage(GetLastError), 'Fehlermeldung', 0); konkret ausgegeben?

[himitsu]

Zitat:

Was wird denn hier

Falls es überhaupt bis dahin kommt und nicht vorher schon abraucht.

Wenn das Programm nicht als Administrator gestartet wurde, dann wird selbst eine Anwendung im AdminAccount erstmal Elevated gestartet und bekommt nicht sämtliche Rechte.



Und ja, es wäre bestimmt hilfreich gewesen, wenn jemand gesagt hätte, wie diese ominöse "Fehlermeldung" den lautet.

[Amalkotey]

Zitat von Delphi.Narium:

Tippe mal darauf, dass Deine Anwendung nicht über die notwendigen Rechte zum Schreiben unter HKEY_LOCAL_MACHINE verfügt.

Was wird denn hier AlertBox('SetRegistryRun: ' + SysErrorMessage(GetLastError), 'Fehlermeldung', 0); konkret ausgegeben?

An der Stelle wo die AlertBox ausgegben wird kommt die Abarbeitung nicht hin. Ich habe die Ausgabe jetzt in den Finally-Block gesetzt, und da Erscheit "Der Vorgang wurde erfolgreich beendet.". Anscheinscjhliessend erschein eine Mitteilung von "fehler bein setzen derDaten für ...". Ich gehe davon aus, das es An den Berechtigungen liegt, da die Daten bei HKEY_CURRENT_USER korrekt geschrieben werden.

Ich kann ich dem Programm die Berechtigungen erteilen? Unter Windows7 wurden die Daten korrekt geschrieben. Danke für die Hilfe im Voraus.

-Amalkotey-

[jaenicke]

Zitat von Amalkotey:

Ich kann ich dem Programm die Berechtigungen erteilen?

Du kannst es mit rechter Maustaste und Als Administrator ausführen starten.

Oder du kannst aus dem Programm heraus das Programm selbst noch einmal starten und dabei Adminrechte anfordern. Dazu gibst du dann noch Parameter mit, damit die neue Instanz weiß, dass sie die Werte in die Registry schreiben und sich wieder beenden soll statt normal zu starten.

Du kannst auch in den Projektoptionen unter Anwendung --> Manifest bei Aufruferebene den Eintrag Administrator erforderlich auswählen. Dann werden die Administratorrechte automatisch angefordert. Aber das ist für diesen Zweck nicht sinnvoll.

Zitat von Amalkotey:

Unter Windows7 wurden die Daten korrekt geschrieben.

Dann waren die Rechte im System nicht richtig eingestellt, z.B. durch Deaktivierung der für die Sicherheit wichtigen Benutzerkontensteuerung.

[Amalkotey]

Zitat von jaenicke:

Zitat von Amalkotey:

Ich kann ich dem Programm die Berechtigungen erteilen?

Du kannst auch in den Projektoptionen unter Anwendung --> Manifest bei Aufruferebene den Eintrag Administrator erforderlich auswählen.

@Jänicke:

Unter Delphi 7 Enterprise gibt es diese Möglichkeit nicht.

-Amalkotey-

[himitsu]

SuFu benutzen und fertiges Manifest suchen, bzw, selbst eines Bauen und als RES einbinden.