Delphi 禁用x64位系统文件重定向功能。
2012-12-07 10:29
288 查看
在X64系统里面,一些特殊的目录和特殊的注册表键被分为2个独立的部分。对于文件系统来说,
%systemroot%\system32 目录被保留给64位文件使用,而32位文件会被重定向到%systemroot%\SysWOW64目录。
换句话说,所有的32位程序一般情况下只会出现在%systemroot%\SysWOW64目录里面。
任何32位程序试图访问%systemroot%\system32 目录的企图都会被重定向到%systemroot%\SysWOW64目录。
这个是一个默认的行为,除非程序的线程明确的指名需要关闭这种重定向机制。
在Win7 64位系统下,调用CopyFile函数进行函数拷贝,如果希望拷贝文件到System32目录下,
需要考虑程序是不是也是64位的,否则,程序会被重定向到Syswow64目录下,
为了防止出现文件被重定向,就需要调用函数Wow64DisableWow64FsRedirection取消文件的重定向,
并在完成指定功能后调用Wow64RevertWow64FsRedirection函数进行恢复。
HKEY_LOCAL_MACHINE\Software下新建一个项,然后使用64位的注册表编辑器查看,
会发现这个项只会出现在HKEY_LOCAL_MACHINE\Software\Wow6432Node键下而不会出
现在HKEY_LOCAL_MACHINE\Software键下,因为HKEY_LOCAL_MACHINE\Software键是专
门用于存放64位程序所使用的注册表数据的,而HKEY_LOCAL_MACHINE\Software\Wow6432Node
键是专门用于存放32位程序所使用的注册表数据的。
var OldWow64RedirectionValue: LongBool;
function DisableWowRedirection: Boolean;
type TWow64DisableWow64FsRedirection = function(var Wow64FsEnableRedirection: LongBool): LongBool;
StdCall;
var hHandle: THandle;
Wow64DisableWow64FsRedirection: TWow64DisableWow64FsRedirection;
begin Result := true;
try hHandle := GetModuleHandle('kernel32.dll');
@Wow64DisableWow64FsRedirection := GetProcAddress(hHandle, 'Wow64DisableWow64FsRedirection');
if ((hHandle <> 0) and (@Wow64DisableWow64FsRedirection <> nil)) then Wow64DisableWow64FsRedirection(OldWow64RedirectionValue);
except Result := False;
end;
end;
function RevertWowRedirection: Boolean;
type TWow64RevertWow64FsRedirection = function(var Wow64RevertWow64FsRedirection: LongBool): LongBool;
StdCall;
var hHandle: THandle;
Wow64RevertWow64FsRedirection: TWow64RevertWow64FsRedirection;
begin Result := true;
try hHandle := GetModuleHandle('kernel32.dll');
@Wow64RevertWow64FsRedirection := GetProcAddress(hHandle, 'Wow64RevertWow64FsRedirection');
if ((hHandle <> 0) and (@Wow64RevertWow64FsRedirection <> nil)) then Wow64RevertWow64FsRedirection(OldWow64RedirectionValue);
except Result := False;
end;
end;
%systemroot%\system32 目录被保留给64位文件使用,而32位文件会被重定向到%systemroot%\SysWOW64目录。
换句话说,所有的32位程序一般情况下只会出现在%systemroot%\SysWOW64目录里面。
任何32位程序试图访问%systemroot%\system32 目录的企图都会被重定向到%systemroot%\SysWOW64目录。
这个是一个默认的行为,除非程序的线程明确的指名需要关闭这种重定向机制。
在Win7 64位系统下,调用CopyFile函数进行函数拷贝,如果希望拷贝文件到System32目录下,
需要考虑程序是不是也是64位的,否则,程序会被重定向到Syswow64目录下,
为了防止出现文件被重定向,就需要调用函数Wow64DisableWow64FsRedirection取消文件的重定向,
并在完成指定功能后调用Wow64RevertWow64FsRedirection函数进行恢复。
HKEY_LOCAL_MACHINE\Software下新建一个项,然后使用64位的注册表编辑器查看,
会发现这个项只会出现在HKEY_LOCAL_MACHINE\Software\Wow6432Node键下而不会出
现在HKEY_LOCAL_MACHINE\Software键下,因为HKEY_LOCAL_MACHINE\Software键是专
门用于存放64位程序所使用的注册表数据的,而HKEY_LOCAL_MACHINE\Software\Wow6432Node
键是专门用于存放32位程序所使用的注册表数据的。
var OldWow64RedirectionValue: LongBool;
function DisableWowRedirection: Boolean;
type TWow64DisableWow64FsRedirection = function(var Wow64FsEnableRedirection: LongBool): LongBool;
StdCall;
var hHandle: THandle;
Wow64DisableWow64FsRedirection: TWow64DisableWow64FsRedirection;
begin Result := true;
try hHandle := GetModuleHandle('kernel32.dll');
@Wow64DisableWow64FsRedirection := GetProcAddress(hHandle, 'Wow64DisableWow64FsRedirection');
if ((hHandle <> 0) and (@Wow64DisableWow64FsRedirection <> nil)) then Wow64DisableWow64FsRedirection(OldWow64RedirectionValue);
except Result := False;
end;
end;
function RevertWowRedirection: Boolean;
type TWow64RevertWow64FsRedirection = function(var Wow64RevertWow64FsRedirection: LongBool): LongBool;
StdCall;
var hHandle: THandle;
Wow64RevertWow64FsRedirection: TWow64RevertWow64FsRedirection;
begin Result := true;
try hHandle := GetModuleHandle('kernel32.dll');
@Wow64RevertWow64FsRedirection := GetProcAddress(hHandle, 'Wow64RevertWow64FsRedirection');
if ((hHandle <> 0) and (@Wow64RevertWow64FsRedirection <> nil)) then Wow64RevertWow64FsRedirection(OldWow64RedirectionValue);
except Result := False;
end;
end;
相关文章推荐
- Delphi 禁用x64位系统文件重定向功能
- win7禁用系统自带刻录功能及Delphi 窗体释放方法
- iOS 修改文件 禁用系统功能
- (五)Seafile FUSE 虚拟文件系统开发---功能2
- 东岱FabCost成本管理控制系统提供项目文件交互功能,助企业提高工作效率
- .NET快速信息化系统开发框架 V3.2->Web版本新增“文件管理中心”集上传、下载、文件共享等一身,非常实用的功能
- WinXP系统文件保护功能介绍
- arm linux文件系统去掉login直接以root登陆(已经存在login功能的文件系统)
- C语言实现Linux系统下ls命令的过滤文件功能
- Android应用中使用及实现系统“分享”功能(多个文件,多种媒体格式触发)
- 基于S3C2440的Linux内核移植和yaffs2文件系统制作--Bootloader的功能
- 对于每一个Linux学习者来说,了解Linux文件系统的目录结构,是学好Linux的至关重要的一步.,深入了解linux文件目录结构的标准和每个目录的详细功能,对于我们用好linux系统只管重要,下面
- Ext4文件系统的特性和功能简介
- 常规功能和模块自定义系统 (cfcmms)—007Extjs的配置文件和自定义ui
- 通用权限管理系统组件 (GPM - General Permissions Manager) 中实现文件发送接收功能,附源码
- 聊天系统Demo,增加文件传送功能(附源码)-- ESFramework 4.0 快速上手(14)
- 数字天堂HBuilder+MUI(五)基于native.js的文件系统管理功能实现
- proc文件系统5大功能
- Delphi 使用CHM文件制作系统帮助文档(上下文感知帮助的制作)
- quotaon命令_Linux quotaon 命令用法详解:激活Linux内核中指定文件系统的磁盘配额功能