---------------------------
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。。。
