YXGust

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 阅读(250) 评论(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 阅读(292) 评论(0) 推荐(0)

Delphi 设置时间格式函数SetSysDateFormat

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

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

Delphi 生成随机字符串函数RandomStr

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

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

Delphi 简化版拼音反查单元

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

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

Delphi中的冷门知识积累

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

posted @ 2022-08-01 19:03 YXGust 阅读(264) 评论(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 阅读(162) 评论(0) 推荐(0)