delphi7专用的superobject(Json)库和TRegExpr正则库

2024-04-10 作者：发哥 栏目：编程分享 评论（0）
delphi7专用的superobject(Json)库和TRegExpr正则库
superobject.zipTRegExpr_0952b_20040105.zipsuperobject组装json的一个demo：      var        JSON, item, ArrayObj: ISuperObject;   begin       JSON := SO('{}');  ...

硬盘格式化代码(delphi)-转载

2024-02-27 作者：发哥 栏目：编程分享 评论（0）
转载地址：https://www.cnblogs.com/sunzh/archive/2008/12/10/1351602.html 转载代码，未经测试，格式化为高危操作，请谨慎测试。以下是我用delphi写的硬盘分区代码Const   IOCTL_DISK_BASE = $00000007;   IOCTL_DISK_GET_DRIVE_GEOMETRY = $00070000;   IOCTL_DISK_GET_PARTITION_INFO = $0007...

delphi 程序删除自身方法（4种方法）

2022-07-07 作者：发哥 栏目：编程分享 评论（0）
多种方法，请自已测试吧procedure DeleteMe; var   BatchFile: TextFile;   BatchFileName: string;   ProcessInfo: TProcessInformation;   StartUpInfo: TStartupInfo; begin   BatchFileName := ExtractFilePath(ParamStr(0)) +...