u_pulicpack.~pas

来自「自动更新程序 自动更新程序」· ~PAS 代码 · 共 81 行

unit U_PulicPack;

interface

Uses
  Windows,Messages,SysUtils,Variants,Classes,Controls,Forms,Dialogs,
  ComCtrls,U_TDownFile,
  StdCtrls,IniFiles;

Const  //系统常量
  IniFileName='SysConfig.Ini';//读配置文件
  ConfigIniFileName='SysConfig.Ini';
  Version='V1.0.0';//版本号
  Prompt = '惠安优优网提示';
  ServerLoginUserName = 'sa';
  ServerLoginUserPwd = '';
  UpdateFile='Update.txt';
  Url='http://www.uu987.com/MySoft/OnLineUpdate/';
  RunFile='P_OnLineUpdate.exe.exe';

Var
//***************************数据库连接控件、字符串和表名****************************************

//******************************************************************************


//**************************   其他系统变量       *************************************

  AppPath:String;  //系统路径

  UpdateIni:TIniFile;

  FDownFile:TDownFile;

//******************************************************************************


//***********************   定义链表和对象   **********************************
  UpdateList,DeleteList:TStringList;
//******************************************************************************


//**************************    公用函数和过程    *************************************
  Procedure FreeAllPoint;    //释放所有创建过的对象指针
  Function ReadConfig(IniSetFileName,SectionName,ValueName:String):String;
//******************************************************************************

implementation

procedure FreeAllPoint;
Var
  i:Integer;
begin
 if UpdateList<>nil then
  begin
    FreeAndNil(UpdateList);
  end;
 if UpdateList<>nil then
  begin
    FreeAndNil(UpdateList);
  end;
  if FDownFile<>nil then
    FreeAndNil(FDownFile);
end;

Function ReadConfig(IniSetFileName,SectionName,ValueName:String):String;
Var
  IniHandle:TIniFile;
Begin
  If FileExists(ExtractFilePath(Application.ExeName)+IniSetFileName) Then
  Begin
    IniHandle := TIniFile.Create(ExtractFilePath(Application.ExeName)+IniSetFileName);
    Result:=IniHandle.ReadString(SectionName,ValueName,'');
    IniHandle.free;
  End
  Else
    MessageDLG('读配置文件'+ExtractFilePath(Application.ExeName) + IniSetFileName+'不存在',MtError,[Mbyes],0);
end;

end.