Vista 2. Partition Registry-Zugriff schägt fehl

[chaosben]

Moinsen!

Das Problem ist folgendes: Ein und das selbe Programm (ohne Adminrechte ausgeführt) kann, wenn es auf der 2. Partition (D:, NTFS, alle Rechte vorhanden) liegt nicht in HKCU schreiben. Liegt es auf der 1. Partition (C:, System-Partition, NTFS) geht alles glatt.

Zum Testen nehme ich folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create(KEY_ALL_ACCESS);
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('Software\SPP', true) then
    reg.WriteString('Test', 'Ich war hier')
  else
    RaiseLastOSError;

  reg.Free;
end;

Liegt das Programm auf C: geht alles glatt. Liegt es auf D: liefert RaiseLastOSError

Code:

Ein Aufruf einer Betriebssystemfunktion ist fehlgeschlagen.

Habt ihr eine Idee?

Btw: Das ist das Grund für diesen Thread.

//edit: Interessant ist auch, das der Anlagen-Mananger eine Sicherheitswarnung für alle Programme (*.exe) bringt, wenn sie auf der 2.Partition liegen. Ich weiß zwar, wie man das abschaltet, aber das muss doch einen Grund haben. Normalerweise passiert das doch nur bei Netzlaufwerken.

[MagicAndre1981]

Ich hab damit keine Probleme. Ich kann das Programm von überall starten und der Schlüssel wird bei aktivierter UAC trotzdem korrekt erstellt.

[chaosben]

Danke André fürs Ausprobieren.

Normalerweise funktioniert das auch. Bei mir ging es bis zu letzten Vista-Neuinstallation auch ohne Probleme. Nur jetzt nicht mehr. Scheinbar vertraut Windows der Partition nicht mehr.

[MagicAndre1981]

Hast du an den Rechten von HKEY_CURRENT_USER etwas verändert?

[chaosben]

Nein.

[MagicAndre1981]

Welches HResult ist denn "Ein Aufruf einer Betriebssystemfunktion ist fehlgeschlagen." überhaupt? Wenn man danach sucht findet man nix. Kannst du das englische Sprachpaket installieren und die Meldung vllt in Englisch posten, da findet man sicher mehr.

[chaosben]

GetLastError liefert 0 zurück.

[MagicAndre1981]

hmm, das ist komisch. :gruebel:

Tritt das bei allen Programmen auf?

[Christian Seehase]

Moin Zusammen,

RaiseLastOSError liest den Fehler mit GetLastError aus, und zeigt diesen dann an.
Danach ist LastError wieder auf 0.

Statt RaiseLastOSError aufzurufen, wenn OpenKey fehlschlägt, einfach mal direkt den Wert von GetLastError ausgeben lassen.

[chaosben]

@André: Ja, bei allen. (BDS, Putty, Installer, Project1.exe :) )

@Christian: Danke fürs Mitdenken. Der Code sah inzwischen schon so aus:

Delphi-Quellcode:

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

  reg.Free;
end;

end.

:)

[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.

[MagicAndre1981]

:shock: Komisch, dass das bei dir verstellt war. Hauptsache es geht nun wieder :)

[OldGrumpy]

"Verschoben nach IDE-Probleme"? Also mir sieht das eher nach einem Windows-Thema aus... Ursprung waren falsche Einstellungen in den NTFS-Sicherheitsdeskriptoren...

[chaosben]

Joa, das dachte ich auch. Aber Phoenix hat deswegen ein Shadow-Thread an der alten Stelle gelassen.