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?

markieren

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

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.

Hey

markieren

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.

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

Zitat von JannesDKS:

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.

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

Zitat von JannesDKS:

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 '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 )