快捷方式-初级程序-极语言教程

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-350)>>1,上=(桌面.高-300)>>1;
窗体=创建窗口($200,程序.名称,"窗口标题",$10C80000,左,上,350,300,0,0,0,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{}

 

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}
    否则 处理窗口(窗口,消息,参数,数据)
结束

对象 链接=链接对象,存储=存储文件对象;
文本 本名[32],本地[32],路径[64],存名[80]

程序段 窗体启动
    模块名称(0,本名,32)
    当前目录(32,本地)
    特定路径(0,路径,0,0)
    附加文字(路径,"\新程序.lnk")
    到宽字符(936,0,路径,-1,存名,80)
    链接=创建对象
    链接.改路径(本名)
    链接.改目录(本地)
    链接.改图标(本名,0)
    链接.接口(存储.标识,@存储)
    存储.保存(存名,0)存储.释放
    链接.释放
    信息框(0,路径,本地,信息图标)
结束