今天为了解一个安装时的bug,需要在安装过程的脚本中加入log,写到文件中,于是在网上找了一个方法。现在跟大家分享。
function WriteFileLog(LogString)
STRING LogFileName,svResult,svResult2,CKSresult;
NUMBER nvResult,CKNresult;
HWND LogFileWND;
NUMBER nResult;
begin
nResult=FindFile ( "c:\\", "log.txt",LogFileName);
if nResult <0 then
OpenFileMode (FILE_MODE_APPEND);
CreateFile(LogFileWND, "c:\\", "log.txt");
CloseFile(LogFileWND);
endif;
OpenFileMode (FILE_MODE_APPEND);
OpenFile (LogFileWND, "c:\\", "log.txt");
GetSystemInfo (DATE, nvResult, svResult);
GetSystemInfo (TIME, nvResult, svResult2);
LogString=svResult+ " "+svResult2+ " "+LogString;
WriteLine(LogFileWND,LogString);
CloseFile(LogFileWND);
end;
这个函数会在C盘根目录下创建一个log.txt的文件。