Delphi在system32下创建dir

Question

我尝试在system32文件夹下创建dir，但是没有异常显示或错误。

注意，我是作为管理员运行它的。

//1
  if not TDirectory.Exists('C:\Windows\System32\oobe\info') then
  TDirectory.CreateDirectory('C:\Windows\System32\oobe\info');
//2
  if not DirectoryExists('C:\Windows\System32\oobe\info') then
  CreateDir('C:\Windows\System32\oobe\info');
//3
  try
    ForceDirectories('C:\Windows\System32\oobe\info');
  except
   ShowMessage('cant create it');
  end;

Answer 1

在64位Windows上有32位进程。因此，您受文件系统重定向器的限制。这将system32重定向到SysWOW64，这是32个系统目录。你会在那里找到你的目录。

你有以下几种选择：

1. 使用sysnative别名访问64位系统目录。
2. 在64位进程中运行代码。
3. 禁用文件系统重定向。

这里的最后一种选择充满了危险，是不建议的。

文档给出了详细信息：http://msdn.microsoft.com/en-us/library/windows/desktop/aa384187.aspx

当然，写入32位系统目录是合理的，而且您还没有意识到这一点。

最后，我不应该指出，该系统属于该系统，不应被应用程序修改。