%programfiles% unter Windows 7 x64

[gore]

Auch wenn die Frage schon älter ist, werden sicherlich einige noch noch der Lösung suchen (und auf diesen Thread stoßen). Deshalb hier eine einfache Lösung:

Delphi-Quellcode:

RegReadString64(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion','ProgramFilesDir','');


function RegReadString64(MainKey:HKey; SubKey,ValueName,sDefault:string):string;
const KEY_WOW64_64KEY = $0100;
var DType: Integer;
    BSize: Integer;
    Key:HKey;
    a2,a:array[0..MAX_PATH]of char;
    p:PChar;
begin
  result:=sDefault;
  DType := REG_SZ;
  BSize:=sizeof(a);
  p:=a;
  if RegOpenKeyEx(MainKey, PChar(SubKey), 0, KEY_READ or KEY_WOW64_64KEY , Key)<>ERROR_SUCCESS then exit;
  if RegQueryValueEx(key,PChar(ValueName),nil,@DType, PByte(p), @BSize) <> ERROR_SUCCESS then begin RegCloseKey(Key); exit; end;
  RegCloseKey(Key);
  a[BSize]:=#0; //sonst Fehler beim lesen von ''
  if DType=REG_EXPAND_SZ then if ExpandEnvironmentStrings(a,a2,sizeof(a2))>0 then StrCopy(a,a2);
  result:=StrPas(a);
end;

Tschuldigung für den furchtbaren Code, aber hauptsache es klappt erstmal unter Delphi.

Anmerkung: Der Code klappt erst ab Win7, siehe http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx :
Either KEY_WOW64_32KEY or KEY_WOW64_64KEY can be specified. If both flags are specified, the function fails with ERROR_INVALID_PARAMETER.
Windows Server 2008, Windows Vista, Windows Server 2003, and Windows XP: If both flags are specified, the function’s behavior is undefined.

[Luckie]

Du testest ja auf nil. Mach es mal so, wie ich es geschrieben habe.

[Sereby]

die prüfung auf nil ist dafür gedacht dass das programm auch auf 32bit systemen laufen soll und die diese funktion nicht haben!
und er geht ja in die funktion rein das is ja nicht das problem

[Luckie]

Sorry, das ist ja nur der test, ob die Funktion geladen wurde. Aber hier hast du keine fehlerüberprüfung:
Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection); Das will ich doch die ganze zeit wissen. Da sollst du meinen Code reinschreiben.

Bzw. hier:
Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection);

[Sereby]

am ende der funktion wird GetLastError aufgerufen und als rückgabewert gesetzt.
diesen speichere ich und ist wie bereits mehrfach erwähnt 0!

wenn ich daraus das mache wie du beschrieben hast macht er absolut nichts weil "if not Wow64DisableWow64FsRedirection(Wow64FsEnableRedire ction) then ..." nicht zutrifft weil 0 bei LongBool nunmal True ist

[himitsu]

GetLastError liefert "nur" den letzen Fehler ... bei OK muß dessen Wert also nicht stimmen.

Delphi-Quellcode:

function ChangeFSRedirection(const DisableIT: Boolean): Cardinal;
begin
  if (@Wow64EnableWow64FsRedirection <> nil) and (@Wow64DisableWow64FsRedirection <> nil) then
  begin
    if DisableIT then
    begin
      if Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection) then
        Result := S_OK
      else
        Result := GetLastError;
    end
    else
    begin
      if Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection) then
        Result := S_OK
      else
        Result := GetLastError;
    end;
  end else
    Result := {hier einen Fehlercode für "nicht aktiv" einsetzen};
end;

und in kurz

Delphi-Quellcode:

function ChangeFSRedirection(const DisableIT: Boolean): Cardinal;
begin
  if Assigned(Wow64EnableWow64FsRedirection) and Assigned(Wow64DisableWow64FsRedirection) then
  begin
    if (DisableIT and Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection))
        or (not DisableIT and Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection)) then
      Result := S_OK
    else
      Result := GetLastError;
  end else
    Result := {hier einen fehlercode für "nicht aktiv" einsetzen};
end;

[Luckie]

Definier es mal als BOOL wie es auch in der Doku steht und frag GetLastError sofort ab, wer weiß, was da nach noch für Funktionsaufrufe kommen, die nicht fehlschlagen.

[Sereby]

jetzt liefern beide Funktionen S_OK als Rückgabewert
rückgabewert geändert auf Bool und die Kurze Variante von unten samt nor = not änderung

aber die pfade sind weiterhin alle auf Programfiles x86

[Luckie]

Und das bei himitsus Code?

[Sereby]

ja, das bei seinem Code