在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