YXGust

解决直接打开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 阅读(108) 评论(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 阅读(191) 评论(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 阅读(263) 评论(0) 推荐(0) 编辑

Delphi 设置时间格式函数SetSysDateFormat

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

posted @ 2022-08-11 17:25 YXGust 阅读(333) 评论(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 阅读(181) 评论(0) 推荐(0) 编辑

Delphi 生成随机字符串函数RandomStr

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

posted @ 2022-08-11 17:22 YXGust 阅读(807) 评论(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 阅读(476) 评论(0) 推荐(0) 编辑

Delphi 实现无标题栏覆盖整个屏幕(适合屏保)

摘要： Delphi 实现无标题栏，覆盖整个屏幕，这个在做工控机或屏保时或者做护眼保护程序时有用，所以记下 procedure TForm1.FormCreate(Sender: TObject); begin with Form1 do begin Top := 0; Left := 0; BorderS 阅读全文

posted @ 2022-08-09 10:39 YXGust 阅读(224) 评论(0) 推荐(0) 编辑

Delphi 简化版拼音反查单元

摘要：获取汉字的拼音，但是对多音字没有处理好！来源于网络 unit IMCode; (* 简化版拼音反查单元修改于 Trueway(TM) LiQunwei 修改者 2ccc.com ZhongWan 修改内容去掉外挂字典，简化代码 *) interface //iMode为1生成完成拼音为2生成拼阅读全文

posted @ 2022-08-08 22:47 YXGust 阅读(105) 评论(0) 推荐(0) 编辑

Delphi中的冷门知识积累

摘要：前言平时在Delphi编程的过程中，经常会有一些模棱两可的概念，似懂非懂。有的冷门知识当时通过搜索引擎学会了，可用不了几个月又全忘光，第二次出现又得重新学习。这里对平时遇到的冷门知识点做一个记录汇总，方便日后查看。 1、assert函数的用法函数原型：procedure Assert(expr 阅读全文

posted @ 2022-08-01 19:03 YXGust 阅读(206) 评论(0) 推荐(0) 编辑