5,928
社区成员




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.