If OSVersion() < #PB_OS_Windows_Vista
	Import "Kernel32.lib"
    Wow64DisableWow64FsRedirection(*OldValue) ; значение *OldValue является параметром вывода, и его не следует изменять
    Wow64EnableWow64FsRedirection(bValue)	  ; bValue - 0 или 1 (0 - следует отключить виртуализацию)
	EndImport
EndIf

; x86_64 = 64 =>  функция Is64BitOS()

; для отключения перенаправления в папку SysWOW64 при использовании программы x86
Global IsWow64ProcessFlag, hKrnDLL, *Func
; Условия перенаправления: файл 32 бит, система 64 бит и выше чем WinXP, иначе просто отключаем перенавправление флагом Wow64=0 (принудительно)
CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
	If x86_64 = 64 And OSVersion() >= #PB_OS_Windows_Vista
    	hKrnDLL = OpenLibrary(#PB_Any, "Kernel32.dll")
    	If hKrnDLL
        *Func = GetFunction(hKrnDLL, "IsWow64Process")
        If *Func
        	CallFunctionFast(*Func,GetCurrentProcess_(), @IsWow64ProcessFlag)
        	*Func = 0
        	If IsWow64ProcessFlag And SizeOf(Integer) = 4
            *Func = GetFunction(hKrnDLL, "Wow64DisableWow64FsRedirection")
        	EndIf
        EndIf
    	EndIf
	Else
	; 	для x64 перенаправление не нужно, поэтому отключаем
    Wow64 = 0
	EndIf
CompilerEndIf
; конец

; принудительно для WindowsXP отключение перенаправления, чтобы не появлялась проблема вызова функции не существующей в WindowsXP
; А также для ОС x32 и для EXE x64 указатель *Func = 0 и перенаправление тоже отключено
If OSVersion() < #PB_OS_Windows_Vista Or Not *Func
	Wow64 = 0
EndIf


; далее проверки в коде
If Wow64
	CallFunctionFast(*Func, 0)
EndIf

;тут код выполненный без перенаправления.

If Wow64
	CallFunctionFast(*Func, 1)
EndIf

; ну и завершение кода с закрытием DLL
If IsLibrary(hKrnDLL)
	CloseLibrary(hKrnDLL)
EndIf