SaveToFile в 32 битном приложении на 64 битной ОС.

[XerSon]

Delphi XE3
32 bit Приложение
ОС х64 Windows 8
При сохранении Битмапа

Image.Picture.Bitmap.SaveToFile('C:/Windows/System32/oobe/OEMLogo.bmp');

сохранение происходит в:

C:\Windows\SysWOW64\oobe\

а надо в:

C:\Windows\System32\oobe\

Как создавая 32-битное Приложении, и работая в 64-битной ОС, правильно задавать путь для сохранения?

П.С. с реестром понятно, используя ключи: KEY_WOW64_32KEY, KEY_WOW64_64KEY, а тут я честно говоря в неведении.

[XerSon]

Ребят, что реально не кто не сталкивался?

[Ezhik Kihze]

Вас спасет Wow64DisableWow64FsRedirection

[XerSon]

Сообщение от Ezhik Kihze

Вас спасет Wow64DisableWow64FsRedirection

Видать не спасет, нет такой функции в модуле Windows.

[FaTaL]

Спасло же Выложи сам код, а то ты его наверно допилил. Может кому ещё пригодится.

[XerSon]

Сообщение от FaTaL

Спасло же Выложи сам код, а то ты его наверно допилил. Может кому ещё пригодится.

Без тебе не спасло бы.

Пришлось грузить две функции из Kernel32.dll

Wow64EnableWow64FsRedirection
Wow64DisableWow64FsRedirection

procedure ExtWow64DisableWow64FsRedirection;
var
  dll : Hwnd;
  func : procedure ; stdcall;
begin
  dll := LoadLibrary('Kernel32.dll');
  @func := GetProcAddress(dll, 'Wow64DisableWow64FsRedirection');
  func;
  FreeLibrary(dll);
end;

procedure ExtWow64EnableWow64FsRedirection;
var
  dll : Hwnd;
  func : procedure ; stdcall;
begin
  dll := LoadLibrary('Kernel32.dll');
  @func := GetProcAddress(dll, 'Wow64EnableWow64FsRedirection');
  func;
  FreeLibrary(dll);
end;

Всем Огромное Спасибо!

[Ezhik Kihze]

После выключения перенаправления лучше возвращать функцией Wow64RevertWow64FsRedirection.

[Пепел Феникса]

и данный код работает хотите сказать?
ох навылетает же он потом

прототипы и пример смотрим.

[XerSon]

Сообщение от Пепел Феникса

и данный код работает хотите сказать?
ох навылетает же он потом

прототипы и пример смотрим.

Работает

procedure TOEMfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// После выключения перенаправления лучше возвращать функцией
ExtWow64RevertWow64FsRedirection;  // так пашет
end;

procedure TOEMfrm.FormCreate(Sender: TObject);
begin
// Отключаем перенаправление
ExtWow64DisableWow64FsRedirection; // так пашет
end;

32 битное приложение, одинаково пишет в 32 и 64 битной ОС!

[FaTaL]

У меня так работает:

var
  dll : Hwnd;
  OldValue : Pointer;
  Wow64Disable : function (v: Pointer): integer; stdcall;
  Wow64Enable : function (v: Pointer): integer; stdcall;
  sl : TStringList;
begin
  OldValue := nil;
  dll := LoadLibrary('Kernel32.dll');
  @Wow64Disable := GetProcAddress(dll, 'Wow64DisableWow64FsRedirection');
  @Wow64Enable := GetProcAddress(dll, 'Wow64RevertWow64FsRedirection');
  Wow64Disable(@OldValue);
  sl := TStringList.Create;
  sl.SaveToFile('C:\Windows\System32\oobe\WOW64.TXT');
  Wow64Enable(OldValue);
  sl.SaveToFile('C:\Windows\System32\oobe\WOW64NOT.TXT');
  sl.Free;
  FreeLibrary(dll);