implemntation.pas

地理资源的录入程序运用了api的一些知识

unit implemntation;



interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ImgList, Menus, Buttons, jpeg, DB, ADODB,Mask,  DBActns, ShellAPI, Registry;

//procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);

var
state:string='欢迎使用本系统';  //用来在状态栏标志当前操作状态

 
const
Product_Name:string='地理资源上报系统';   //记录程序的名称
Product_Version:string='V1.0 测试版';   //程序版本
Product_Writer:string='石家庄铁道学院信息工程系';          //程序作者


implementation








end.