⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 oahelp.prg

📁 一个相当不错的BS结构学习源码
💻 PRG
字号:
🔍 
*  关于与帮助     Start create date: 2003.11.6       Last edit date: 2003.11.6
DEFINE CLASS AboutHelp As Session OLEPUBLIC               &&  指定为com类型
       DataSession=2                                      &&  使用私有工作期

****************************************************************************************
    FUNCTION about() as String
    SET TEXTMERGE DELIMITERS TO "##","##"
    LOCAL cResult

&&        SET DEFAULT TO D:\AWEB\GUEST\                        &&  指定rksvr.ini所在目录
&&        SET DELETED ON

        DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
        String cSection, String cKey, String cDefault, String @cBuffer, ;
        Integer nBufferSize, String cINIFile

        LOCAL  lcSection, lcKey, lcBuffer, lcFileName, zipdir
        lcFileName = "Renksoft.ini"
        lcSection  = "版本信息"

        lcBuffer = SPACE(254)
        lcKey    = "系统名称"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        xtmc = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "版本类型"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        bblx = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "版本编号"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        bbbh = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "最后修改"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        zhxg = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "开发者一"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        kfz1 = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "开发者二"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        kfz2 = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "特别感谢"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        tbgx = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)


        lcSection = "注册信息"

        lcBuffer = SPACE(254)
        lcKey    = "姓名"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        xm = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)

        lcBuffer = SPACE(254)
        lcKey    = "单位"
        GetPrivStr(lcSection, lcKey, "", @lcBuffer, LEN(lcBuffer), CURDIR()+lcFileName)
        dw = subst(allt(lcBuffer),1,len(allt(lcBuffer))-1)
  
TEXT TO cResult TEXTMERGE noshow
<html><head><title>Visual FoxPro 爱好者论坛</title></head><body><p align="center"></p>
<p align="center"><font face="黑体" size="5" color="#0000CC"><b>##xtmc##</b></font></p>
<p align="center"><font color="#6600FF">##bblx##&nbsp; Ver ##bbbh##</font></p>
<p align="left"><br><font color="#9900CC">&nbsp;&nbsp;&nbsp;&nbsp; </font></p>
<p align="left"><font color="#9900CC">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
版权所有(C) ##kfz1##</font></p>
<p align="left"><font color="#9900CC">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
##kfz2##&nbsp;&nbsp; ##zhxg##<br></font></p><p align="justify"></p><br><br><br><br>
<p align="justify"><font color="#9900CC">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
本产品使用权属于：</font></p>
<p align="justify"><font color="#9900CC">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
##xm##</font></p>
<p align="justify"><font color="#9900CC">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
##dw##</font></p></body></html>

ENDTEXT

   RETURN cResult
   ENDFUNC
****************************************************************************************

ENDDEFINE

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -