?? u_pulicpack.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -