在FoxPro 2.6中调用UCDOS 5.0的SDK函数

Author: 陕西黄继鸿 Date: 1996-02-09

        UCDOS 5.0的SDK提供了128个函数，可由FoxPro程序直接调用。SDK的函数大体上可分为五类：
        1.系统函数：用来获取汉字系统信息；
        2.基本图形函数：可以用来制作几何图形；
        3.基本图像函数：用来读取多种格式的图像文件；
        4.汉字输出函数：支持多种风格的汉字显示
        5.图形用户界面函数：可以在DOS和FoxPro的字符界面下建立GUI(详见后面例程)。此外，在UCDOS 5.0的SDK中，还提供了图表函数、工具函数和资源管理数据库等函数。
        下面的程序在字符方式下定义并打开一个Windows风格的窗口，设立了两个按钮，一个编辑框和一个Windows下的图标(ICON)。
        set libr to FSDK   &&登记SDK库函数，扩展FoxPro的函数集
        Color = "B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W"   &&定义颜色对
        = DefiWind ("W-Exam",4,20,16,56,Color,"示例")   &&定义W-Exam窗口
        = ActiWind ("W-Exam")   &&激活W-Exam窗口
        Var = "ABCDE0123456789"
        Sel = 1
        = InTRect (1,2,7,32,"输入")   &&画一个Windows风格的分组框
        = SayICO (3.5,7,"Input.ICO")   &&显示一个Windows图符(ICON)
        = Get (4,13,"Var")   &&具有Windows输入风格的替换指令
        = GetPushes ("Sel",9,5,10,5,"H\<O 确认;\<C 取消")   &&具有Windows风格的按钮
        read cycl
        = ReleWind ("W-Exam")   &&清除窗口W-Exam