Registry 64 Bit

[JannesDKS]

Moin,

ich hab ein kleines Problem beim Zugriff auf die Registry auf einem 64-Bit Win7 System. Vielleicht habt ihr ja ne Idee. Das auslesen einer Zeichenfolge geht, aber wenn ich den gleichen Code auf Key_Write ändere, funktioniert es nicht. Hat jemand nen Lösungsansatz?

Delphi-Quellcode:

regist := TRegistry.create();
regist.Access := KEY_WRITE or KEY_WOW64_64KEY;
regist.rootKey := HKEY_LOCAL_MACHINE;
regist.Openkey('\SOFTWARE\Test\GTH',false);
regist.WriteString('Lastuser',GlobalUserName);

Vielen Dank schonmal

Jannes

[Luckie]

Wie wäre es mal mit einer gescheiten Fehlerbehandlung? OpenKey ist eine Funktion, die true oder fals zurückgibt. Und mit GetLastError weiß man dann auch warum sie fehlgeschlagen ist.

[JannesDKS]

Hey

Delphi-Quellcode:

if not regist.Openkey('\SOFTWARE\Test\GTH\',false) then
begin
    showmessage(SysErrorMessage(GetLastError));
end;

gibt mir die tolle Meldung: der Vorgang wurde erfolgreich abgeschlossen.
Aber danke, hätt ja Erkenntnisse bringen können.

[Codewalker]

Mit welchen Rechten läuft dein Programm? Du forderst ja Schreibrechte auf LOCAL_MACHINE an, da braucht man soweit ich weiß Administratorrechte.

[Luckie]

Zitat:

Zitat von JannesDKS (Beitrag 1043950)

gibt mir die tolle Meldung: der Vorgang wurde erfolgreich abgeschlossen.
Aber danke, hätt ja Erkenntnisse bringen können.

Tut es auch. Ich schätze mal, dass da die Virtualisierung wieder mal zuschlägt. Näheres im Forum über die Suche.

[JannesDKS]

Hey,
danke Codewalker, das hat's gebracht :-)
Hab's jetzt auf local_user umgestellt.

[Codewalker]

Zitat:

Zitat von JannesDKS (Beitrag 1044209)

Hab's jetzt auf local_user umgestellt.

Das löst zwar scheinbar dein Problem, aber der User-Zweig ist für benutzerspezifisch. Und da du in deinem Code

Delphi-Quellcode:

'lastuser'

als Schlüsselnamen wählst, unterstelle ich mal, dass der zuletzt angemeldete Benutzer deines Programms angezeigt werden soll. Wenn du das in HKEY_CURRENT_USER schreibst, dann hat jeder Windows-User dort einen eigenen Wert stehen. (Ich hoffe es ist klar, was ich meine :lol: )