在工程文件中写INI文件，代码报错

[Yothan]

因为目的很简单，就是向system32下的2个ini文件中写东西，所以不想使用Form，这样编译出来的程序小，而且也实现我想要的功能就可以了。但是我的代码出现异常，报错：
---------------------------
Application Error
---------------------------
Exception EAccessViolation in module ntdll.dll at 000120E6.

Access violation at address 7C9320E6 in module 'ntdll.dll'. Write of address 004040E1.


---------------------------
确定
---------------------------

program Writeini;

uses
  Windows,
  SysUtils,
  IniFiles;

{$R *.res}
const PublictProduct = 'ShineDeliver_Public';
var
  FWindowPath, FProductID, FProductPath: string;

function GetWindowsDir: string;
var
  pSystemPath: array[0..255] of Char;
begin
  GetWindowsDirectory(pSystemPath, SizeOf(pSystemPath));
  Result := StrPas(pSystemPath);
end;


procedure WriteAppserverInfo;
var
  AppServer: TIniFile;
  FileBool: Boolean;
begin
  try
    FileBool := FileExists(FWindowPath + '\System32\xxx.ini');//测试用
    AppServer := TIniFile.Create(FWindowPath + '\System32\xxx.ini');
    AppServer.WriteString...
  finally
    AppServer.Free;
  end;
end;

begin
  FProductID := ParamStr(1);
  FProductPath := Paramstr(2);
  FWindowPath := GetWindowsDir;
  WriteAppserverInfo;
end.

help。。。

[dinoalex]

测过没发现什么问题

[yct0605]

设置断点跟踪看看...

[kye_jufei]

代碼沒有問題，應該是編譯器出了什麼問題？？？你重啟一下Delphi再編譯這段代碼試試呢...

[haitao]

什么OS？会不会是system32目录下的文件不允许当前账号写？

[bdmh]

不是代码的问题，你跟踪一下，看看到哪句代码出错

[cnsillycat]

[Yothan]

在 AppServer.Free; 这句抛出异常，不知是何故。
如果是放在Form单元里是没有问题的。

[Yothan]

找到原因，应该是是测试的时候没有传入参数，写ini发现节点为空