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.

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.