YXGust

Delphi提高开发效率之GExperts专家的使用说明

摘要： GExperts是一组通过扩展集成开发环境（IDE）来提高Delphi和C++ Builer程序员工作效率的工具。是一款开源的IDE扩展专家，由于去外网下载GExperts非常的麻烦，这里直接提供了Delphi7和Delphi11.1下的GExperts安装包，并连带最新源码一起打包，方便大家使用学阅读全文

posted @ 2022-07-28 22:24 YXGust 阅读(995) 评论(0) 推荐(1)

delphi实现websocket的一款非常强势的控件----sgcWebsocket

摘要：最近手头有个项目需要用到websocket，自己写一个显然不大可能，时间与精力也不允许，别人我不知道，我是一个比较懒的人，选择delphi编程就是因为他能偷懒，编程是体力活，一个好的项目是基于一个好的创新idea上的，别人想不到的创意，你想到了并用程序实现了，这是一个很厉害的行为。于是在网上搜下看阅读全文

posted @ 2022-01-01 11:38 YXGust 阅读(1695) 评论(0) 推荐(0)

delphi7 安装 indy10.2.3

摘要：最近由于项目需要,得用到indy 10版本,然而delphi7自带的还是indy 9版本,于是需要更新.1、用delphi目录下的Borland Delphi 7.msi卸载掉老的indy9版本2、下载indy10，我这里在网上搜索下载的是（indy10.2.3 full 完全安装版 D7~2010 阅读全文

posted @ 2021-12-29 20:16 YXGust 阅读(530) 评论(0) 推荐(0)

把C盘的用户Users文件移动到D盘最简单的方法

摘要：网上有很多方法,比如装系统的时候要怎么操作,已经装好系统要怎么操作,太烦了. 步骤1：进PE(我这里用的老毛桃PE系统) 步骤2：robocopy "C:\Users" "D:\Users" /E /COPYALL /XJ （意思就是复制C盘的Users到D盘中,有的系统不支持robocopy,可以阅读全文

posted @ 2021-06-01 15:40 YXGust 阅读(17958) 评论(0) 推荐(0)

CnCommon单元之SameCharCounts、CharCounts【6】

摘要： // 两个字符串的前面的相同字符数 function SameCharCounts(s1, s2: string): Integer; var Str1, Str2: PChar; begin Result := 1; s1 := s1 + #0; s2 := s2 + #0; Str1 := PC 阅读全文

posted @ 2021-05-13 12:58 YXGust 阅读(129) 评论(0) 推荐(0)

CnCommon单元之GetDirectory、FormatPath【5】

摘要： function SelectDirCB(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall; begin if (uMsg = BFFM_INITIALIZED) and (lpData <> 0) then SendMe 阅读全文

posted @ 2021-05-09 23:41 YXGust 阅读(138) 评论(0) 推荐(0)

CnCommon单元之FileProperties、OpenDialog【4】

摘要： // 打开文件属性窗口procedure FileProperties(const FName: string); var SEI: SHELLEXECUTEINFO; begin with SEI do begin cbSize := SizeOf(SEI); fMask := SEE_MASK_ 阅读全文

posted @ 2021-05-09 23:22 YXGust 阅读(110) 评论(0) 推荐(0)

CnCommon单元之MoveFile、DeleteToRecycleBin【3】

摘要：今天要学习的是MoveFile函数，作用就是移动文件或者文件夹。其实在系统kernel32.dll的API中已经提供该函数。不过本着学习的精神还是分析下被重新打包的MoveFile函数 // 移动文件、目录 function MoveFile(const sName, dName: string) 阅读全文

posted @ 2021-05-01 22:30 YXGust 阅读(147) 评论(0) 推荐(0)

CnCommon单元之ForceDirectories【2】

摘要： // 递归创建多级子目录 function ForceDirectories(Dir: string): Boolean; begin Result := True; if Length(Dir) = 0 then begin Result := False; Exit; end; Dir := E 阅读全文

posted @ 2021-04-30 13:18 YXGust 阅读(103) 评论(0) 推荐(0)

CnCommon单元之ExploreFile【1】

摘要：感谢cnPack前辈们开源了如此优秀的源码，不学习下真的是浪费了。今天开始逐个分析，提升自己。 // 在资源管理器中打开指定文件夹或者文件，可设置选中状态 procedure ExploreFile(const AFile: string; isSelect: Boolean=False); var 阅读全文

posted @ 2021-04-30 12:03 YXGust 阅读(160) 评论(0) 推荐(0)