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';

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.