随笔档案「2022年8月」 - YXGust

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

posted @ 2022-08-11 18:30 YXGust 阅读(202) 评论(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 阅读(270) 评论(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 阅读(319) 评论(0) 推荐(0)

Delphi 设置时间格式函数SetSysDateFormat

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

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

Delphi 生成随机字符串函数RandomStr

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

posted @ 2022-08-11 17:22 YXGust 阅读(1083) 评论(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 阅读(839) 评论(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 阅读(293) 评论(0) 推荐(0)

Delphi 简化版拼音反查单元

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

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

Delphi中的冷门知识积累

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

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

Delphi adsl自动拨号的两种方法

摘要：1.利用rasphone.exe 这里直接贴一个断网、联网更换ip的函数，虽然简陋但是还算稳定。 procedure ChangeIp(ConnName: string; Delay1, Delay2: Integer); begin winexec(PChar('rasphone -h "' + 阅读全文

posted @ 2022-08-01 17:30 YXGust 阅读(179) 评论(0) 推荐(0)

YXGust

08 2022 档案

Delphi 通用 Hook 库

Delphi 中constructor、destructor、property关键字的用法

Delphi 高低字节交换

Delphi 中的换行符sLineBreak

Delphi 常用关键字收录

Delphi 内存流与字符串之间互相转换

Delphi 十六进制，十进制，字符串之间的类型转换

解决Delphi传stream参数时出现Stream read error错误提示

Base64编码的原理

uleb128编码的解析

Delphi 无边框窗体移动

Delphi 防止程序重复执行的单元

Delphi 让Listview中的item可以显示不同的颜色

Delphi 窗口置顶的方法

解决Delphi中屏幕闪烁的问题

解决安装某些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”

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