MyReg := TRegistry.Create; MyReg.RootKey := HKEY_LOCAL_MACHINE; .................................... ...................................
//界面打开显示时判断是否连接到数据库procedure TFRMMAIN.FormShow(Sender: TObject);var MyReg : TRegistry; constr, FWQMC, SJKMC, YHMC, YHMM: string;begin EDTSERVER.Enabled:=false;//服务器名称 EDT
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号
