2022年8月11日

解决安装某些msi软件包提示“This advertised application will not be installed because it might beunsafe. Contact your administrator to change the installation userinterface option of the package to basic”

摘要： 解决某些msi软件包无法安装的问题。 阅读全文

posted @ 2022-08-11 18:35 YXGust 阅读(1167) 评论(0) 推荐(0)

解决直接打开bpg工程组文件后提示PROJECTS macro in project group file missing or incorrect丢失错误

摘要： 前言： 所谓.bpg文件就是指在delphi中能一次性打开多个.dpr的工程组文件（Borland Project Group File）。 出错环境： Win7-64+Delphi7.0 出错界面： 解决方案： 遇到这种错误一般都是打开别人的源码才会出现的，用记事本打开bpg文件发现换行混乱。一般 阅读全文

posted @ 2022-08-11 18:30 YXGust 阅读(134) 评论(0) 推荐(0)

Delphi 获取程序运行路径函数GetSelfPath

摘要： function GetSelfPath: string; var ModuleName: string; i: Integer; begin SetLength(ModuleName, 255); GetModuleFileName(HInstance, PChar(ModuleName), Le 阅读全文

posted @ 2022-08-11 17:26 YXGust 阅读(213) 评论(0) 推荐(0)

Delphi 开机自动启动函数SetAutoRun

摘要： 转载自：https://blog.csdn.net/listest/article/details/121272294 procedure SetAutoRun(isRun: Boolean); var oAutoRunRegister: TRegistry; begin oAutoRunRegis 阅读全文

posted @ 2022-08-11 17:25 YXGust 阅读(281) 评论(0) 推荐(0)

Delphi 设置时间格式函数SetSysDateFormat

摘要： 转载自：https://blog.csdn.net/Listest/article/details/122942761 在时间转字符串的时候特别好用，有的系统的时间格式不一样， 产生的字符串也不一样，我们处理字符串的时候可能会出错， 直接给他统一一种格式，免去手动去设置的痛苦 procedure S 阅读全文

posted @ 2022-08-11 17:25 YXGust 阅读(360) 评论(0) 推荐(0)

Delphi 生成随机汉字函数GenerateChineseWords

摘要： 根据c#改编而来，很多年了。 function GenerateChineseWords(count: integer): string; var i: integer; regionCode, positionCode: integer; regionCode_Machine, positionC 阅读全文

posted @ 2022-08-11 17:23 YXGust 阅读(211) 评论(0) 推荐(0)

Delphi 生成随机字符串函数RandomStr

摘要： 可以生成自定义长度的随机字符串，字符串可以是大小写字母、数字或者是他们的混合。 function RandomStr(StrLength: Integer; Lowercase: Boolean = True; Number: Boolean = True; Uppercase: Boolean = 阅读全文

posted @ 2022-08-11 17:22 YXGust 阅读(999) 评论(0) 推荐(0)

Delphi 更改扩展名函数ChangeFileExt

摘要： function ChangeFileExt(const FileName, Extension: string): string; var I: Integer; begin I := LastDelimiter('.' + PathDelim + DriveDelim,Filename); if 阅读全文

posted @ 2022-08-11 17:18 YXGust 阅读(722) 评论(0) 推荐(0)

导航