在installshield 脚本中添加log的方法

今天为了解一个安装时的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的文件。