%programfiles% unter Windows 7 x64

[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;