InstallShield 创建安装日志

#define LOGFILE "SetupLog.txt"

export prototype WriteLog(byval string);
function WriteLog(message)
STRING LogFolder, LogFileName, curDate, curTime;
NUMBER nvResult, nLogFileHandle;
begin
   // specify the log folder
   LogFolder = WINDISK +  “\“;
   if (FindFile(LogFolder, LOGFILE, LogFileName) < 0) then
   OpenFileMode(FILE_MODE_APPEND);
            CreateFile(nLogFileHandle, LogFolder, LOGFILE);
            CloseFile(nLogFileHandle);
        endif;      
    OpenFileMode(FILE_MODE_APPEND);   
    OpenFile(nLogFileHandle, LogFolder, LOGFILE);

    GetSystemInfo(DATE, nvResult, curDate);           
    GetSystemInfo(TIME, nvResult, curTime);   
    message = curDate + "    " + curTime + "    " + message;   
    WriteLine(nLogFileHandle, message); 

    CloseFile(nLogFileHandle);   

 end;