对InstallSh...的使用建议

强烈建议大家把自己平时自定义的函数写成一个rul文件，以后要用的时候只要#include一下就可以用了，也方便自己对自己平时写的函数的积累，也方便对这个些对待管理，随着时间你的rul文件会越来越大，你的积累也就越多！ 也省得以后写代码的时候还要打开以前的工程，找来找去的，麻烦，也不好维护！ 下来我给出自己平时的方法 把自己平时写的函数全部写到一个CoustFunction.url 中 这个文件的内容如下： /********************************************************* *   *   文 件 名 : CoustFunction.url               *   作    者 : ***** *   完成日期 : 2007－0－02 *   描    述 : 自定义函数文件( 此文件包含两个自定义函数：1－ 遍历目录 *                                                        2－ 遍历自定义类型文件) *                                                        3-  去掉指定文件的只读、隐藏属性 *                                                        4－ 结束系统进程 *   修改记录 :                 *   数据结构 :         *   备注:   *         *********************************************************/        /*-----------------------------------------------------------------     名称： FindCoustFile   功能： 获取指定目录下的自定义文件的大小和日期，并输出到FindCoustFile.snap中   入参： 1 指定查找的目录            2 指定查找的文件类型，支持通配符，如：*.*;          出参： 查找出来的结果写入到当前目录中FindCoustFile.snap /*---------------------------------------------------------------*/       export prototype FindCoustFile ( BYREF string, BYREF string );     function FindCoustFile ( svDir, svFile )                         LIST           listID;            number    nLineNumber;            number          Count;            string       svResult;            number   nvFileHandle;            number       nvResult;            string         svData;            number         nvItem;            string            tmp;            string         svTime;     begin           listID = ListCreate  ( STRINGLIST );           ListGetFirstItem ( listID, nvItem );           while (FindAllFiles ( svDir, svFile, svResult, CONTINUE ) = 0 )                                         GetFileInfo ( svResult, FILE_SIZE, nvResult, svData );                    GetFileInfo ( svResult, FILE_DATE, nvResult, svData );                      GetFileInfo ( svResult, FILE_TIME, nvResult, svTime );                      NumToStr ( tmp, nvResult );                    svResult = svResult + " " + tmp + "|" + svData + "//" + svTime;                  ListGetNextItem ( listID, nvItem );                  ListAddString ( listID, svResult, AFTER );            endwhile;              ListGetFirstString ( listID, svResult );                 OpenFileMode ( FILE_MODE_APPEND );       CreateFile ( nvFileHandle, TARGETDIR, "FindCoustFile.snap" );                  nLineNumber = 0;        if ( FileInsertLine ( TARGETDIR^"FindCoustFile.snap", svResult, nLineNumber, AFTER ) < 0 ) then           abort;           endif;              Count = ListCount ( listID );               for nLineNumber = 1 to Count - 1                ListGetNextString ( listID, svResult );            FileInsertLine ( TARGETDIR^"FindCoustFile.snap", svResult, nLineNumber, AFTER );                      endfor;             ListDestroy ( listID );       end; 自己用的话只需要在工程当中 #include "CoustFunction.url"   然后就可以直接调用你自己的函数了！