Delphi公用函数单元.docx

unit GlobalFunction;interfaceuses ComCtrls, Forms, Windows, Classes, SysUtils, ComObj, ActiveX, ShlObj, Messages, Graphics, Registry, Dialogs, Controls, uProcess, uCpuUsage, StrUtils, CommCtrl, jpeg, WinInet, ShellAPI, SHFolder, ADODB, WinSock;{ 保存日志文件 }procedure YzWriteLogFile(Msg: String);{ 延时函数,单位为毫秒 }procedure YzDelayTime(MSecs: Longint);{ 判断字符串是否为数字 }function YzStrIsNum(Str: string):boolean;{ 判断文件是否正在使用 }function YzIsFileInUse(fName: string): boolean;{ 删除字符串列表中的空字符串 }procedure YzDelEmptyChar(AList: TStringList);{ 删除文件列表中的Thumbs.db文件 }procedure YzDelThumbsFile(AList: TStrings);{ 返回一个整数指定位数的带0字符串 }function YzIntToZeroStr(Value, ALength: Integer): string;{ 取日期年份分量 }function YzGetYear(Date: TDate): Integer;{ 取日期月份分量 }function YzGetMonth(Date: TDate): Integer;{ 取日期天数分量 }function YzGetDay(Date: TDate): Integer;{ 取时间小时分量 }function YzGetHour(Time: TTime): Integer;{ 取时间分钟分量 }function YzGetMinute(Time: TTime): Integer;{ 取时间秒钟分量 }function YzGetSecond(Time: TTime): Integer;{ 返回时间分量字符串 }function YzGetTimeStr(ATime: TTime;AFlag: string): string;{ 返回日期时间字符串 }function YzGetDateTimeStr(ATime: TTime;ADate: TDate): string;{ 获取计算机名称 }function YzGetComputerName(): string;{ 通过窗体子串查找窗体 }procedure YzFindSpecWindow(ASubTitle: string);{ 判断进程CPU占用率 }procedure YzJudgeCPU(ProcessName: string;CPUUsage: Single);{ 分割字符串 }procedure YzSeparateTerms(Source: string;Separator: Char;Terms: TStringList);{ 切换页面控件的活动页面 }procedure YzGotoNewPage(AOwerPage: TPageControl;ANewPage: TTabSheet);{ 设置页面控件标签的可见性 }procedure YzSetTableVisible(PageControl: TPageControl;ShowFlag: Boolean);{ 根据产品名称获取产品编号 }function YzGetLevelCode(AName:string;ProductList: TStringList): string;{ 取文件的主文件名 }function YzGetMainFileName(AFileName: string): string;{ 按下一个键 }procedure YzPressOneKey(AByteCode: Byte);overload;{ 按下一个指定次数的键 }procedure YzPressOneKey(AByteCode: Byte;ATimes: Integer);overload;{ 按下二个键 }procedure YzPressTwoKeys(AFirstByteCode, ASecByteCode: Byte);{ 按下三个键 }procedure YzPressThreeKeys(AFirstByteCode, ASecByteCode, AThird