Registry Lesen und Schreiben Win 7 64 Bit

[MCOP2001DE]

Danke für die schnelle Antwort

bei beiden Varianten werden die Zeilen die ich im Code mit dem Text makiert habe überspungen.
ich habe auch in der Registry den Pfad überprüft der Stimmt HKEY_LOCAL_MACHINE\Software\Wow6432Node\Moeller Computer\MED Base.
Wenn ich in einzelschritten des Programm ablaufen lasse werden die Zeilen 8-13 übersprungen.
was kann das sein?

[DeddyH]

Und bei KEY_READ OR KEY_WOW64_64KEY?

[Bjoerk]

Probier' mal so in Verbindung mit #3.

Delphi-Quellcode:

function IsWin7: boolean;
var
  osVerInfo: TOSVersionInfo;
  majorVersion, minorVersion: integer;
begin
  Result:= false;
  osVerInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    minorVersion:= osVerInfo.dwMinorVersion;
    majorVersion:= osVerInfo.dwMajorVersion;
    if osVerInfo.dwPlatFormId = VER_PLATForm_WIN32_NT then
      if (majorVersion = 6) and (minorVersion = 1) then
        Result:= true;
  end;
end;

function IsWow64: boolean;
type
  TIsWow64Process =
    function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
var
  IsWow64Result: Windows.BOOL;
  IsWow64Process: TIsWow64Process;
begin
  Result:= False;
  if IsWin7 then
  begin
    IsWow64Process :=
      Windows.GetProcAddress(Windows.GetModuleHandle('kernel32'), 'IsWow64Process');
    if Assigned(IsWow64Process) then
      try
        IsWow64Process(Windows.GetCurrentProcess, IsWow64Result);
        Result:= IsWow64Result;
      except
        Result:= False;
      end;
  end;
end;

function GetRegPath: string;
var
  Substr: string;
begin
  if IsWow64 then
    Substr:= 'Wow6432Node\'
  else
    Substr:= '';
  Result:= 'SOFTWARE\' + Substr + 'Moeller Computer\MED Base\'
end;

[MCOP2001DE]

Danke Bjoerk

jetzt hats geklappt.
gibt es den auch eine Möglichkeit in die Registry zu schreiben ohne das der User Adminrechte besitzt?

Mcop2001de

[DeddyH]

Natürlich, aber eben nicht in jeden Zweig. HKLM ist ja benutzerübergreifend, da darf mit Recht nicht jeder einfach so schreiben. Normalerweise werden dort Standardwerte im Rahmen eines Setups hinterlegt, welches ja in der Regel mit Adminrechten ausgeführt wird. Benutzerbezogene Dinge können ja dann unter HKCU hinterlegt werden, dort sollte der aktuelle Benutzer Schreibrechte besitzen.