Vista 2. Partition Registry-Zugriff schägt fehl

[DeddyH]

Kleine Anregung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create(KEY_ALL_ACCESS);
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\SPP', true) then
      begin
        Reg.WriteString('Test', 'Ich war hier');
        Reg.CloseKey;
      end
    else
      MessageDlg(inttostr(getlasterror), mtWarning, [mbOK], 0);
  finally
    Reg.Free;
  end;
end;

[chaosben]

Danke für den Tip Deddy, aber das Stück Code war nur zum testen und demonstrieren.

Für den produktiven Einsatz, sollte man es natürlich so machen, wie Deddy gezeigt hat.

[Luckie]

Warum nicht gleich:

Delphi-Quellcode:

MessageDlg(SysErrorMessage(GetlastError), mtWarning, [mbOK], 0);

Dann hat man die Fehlermeldung gleich im Klartext und muss nicht erst den Fehlercode nachschlagen.

[chaosben]

Zitat:

Zitat von Luckie

Dann hat man die Fehlermeldung gleich im Klartext und muss nicht erst den Fehlercode nachschlagen.

Joa, da hast du Recht.

Hier das Ergebnis: "Der Vorgang wurde erfolgreich beendet"

[DeddyH]

:lol: sehr hilfreich.

[teebee]

Laut MSDN gibt RegOpenKeyEx (wird von TRegistry.OpenKey verwendet) einen Fehler direkt im Ergebnis zurück und nicht über GetLastError. GetLastError bezieht sich also auf eine Aktion vor dem Aufruf von RegOpenKey, deswegen auch die Erfolgsmeldung.
Leider prüft TRegistry das Ergebnis des Aufrufs nur auf ERROR_SUCCESS, alles andere fällt unter den Tisch. Genaueres findet man also nur heraus, indem man direkt auf API-Ebene auf die Registry zugreift.

Delphi-Quellcode:

 RegResult := RegOpenKeyEx(HKEY_CURRENT_USER,'Software\SPP',0,KEY_ALL_ACCESS,reghandle);

Gruß, teebee

[chaosben]

Danke teebee, für den Hinweis (hätte man auch selbst drauf kommen können :-/)

Code:

Delphi-Quellcode:

var
  Reg : TRegistry;
  k : HKEY;
  Disposition: Integer;
  RegResult : Cardinal;
begin
  RegResult := RegCreateKeyEx(HKEY_CURRENT_USER,
                              'Software\SPP',
                              0,
                              nil,
                              REG_OPTION_NON_VOLATILE,
                              KEY_ALL_ACCESS,
                              nil,
                              k,
                              @Disposition);

  MessageDlg(SysErrorMessage(RegResult), mtWarning, [mbOK], 0);
end;

Resultat: "Zugriff verweigert"

Fast habe ich das schon geahnt. Nur, warum? Wie bekomme ich mein Vista dazu, das es Programmen, die auf der 2. Partition liegen, vertraut?

Ich muss dazu sagen, das ich nach der Installation von Vista ein Problem mit der 2. Partition hatte, da darauf noch die alten NTFS-Rechte waren. (Ich durfte darauf nicht zugreifen) Also habe ich der Gruppe Administratoren (in der ich bin) "Vollzugriff" und den Besitz auf "d:\" (inklusive Unterobjekte) gegeben und die alten NTFS-Rechte (dargestellt durch irgendeine SID) weggenommen.
Kann man dabei etwas falsch machen?

[teebee]

Keine Ahnung ob ich auf dem richtigen Dampfer bin, aber lies Dir mal diesen Abschnitt durch:Understanding Windows Vista's Integrity Mechanism. Interessant:

Zitat:

Low: Untrusted (Process can only write to low integrity locations, such as the Temporary Internet Files\Low folder or the HKEY_CURRENT_USER\Software\LowRegistry key).

Kannst Du nach HKEY_CURRENT_USER\Software\LowRegistry schreiben? Wenn ja, könnte das hier evtl. was für Dich sein.
Mit dem Process Explorer von Sysinternals kannst Du den Integrity Level Deiner Anwendung herausfinden. Wenn sich der IL je nach Startpartition unterscheidet, ist das vielleicht eine Spur.

[chaosben]

:party:

Perfekt. Vielen vielen Dank. Das war der Tip, der zum Erfolg führte.

Die Lösung: Als Admin folgenden Befehl ausführen und freuen.

Code:

c:\Windows\System32\icacls d: /setintegritylevel (ci)(oi)M

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Windows 9x / ME / 2000 / XP / 2003 / Vista" nach "Die Delphi-IDE" verschoben.
Das ganze ist eher ein IDE-Problem.