单元共65篇

delphi 遍历文件单元文件

unit FindFileUnt;interfaceuses SysUtils,TntClasses,TntSysUtils;procedure FindFile(const filespec: WideString;TmpList:TTntStringList;bSubDirectory:boolean);implementationprocedure F...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04211

delphi BufferedFileStream单元

unit BufferedFileStream;interfaceuses  SysUtils, Math, Classes, Windows;type  TBaseCachedFileStream = class(TStream)  pr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0479

delphi 常用函数库

unit JrCommon; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI, CommDlg, MMSystem, StdCtrls, Registry, JrConsts, Winsock;&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04311

delphi GUID单元

unit uGUID;{采用的开源算法 https://github.com/martinusso/ulid 加已改造成32位有序GUID}interfaceuses  DateUtils, SysUtils, Windows;  //有序的32位id  function GetULID(Q...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04810

Delphi 进程程序多开调用单元

unit fun;interfaceuses  Windows,Forms,SysUtils,TlHelp32,ActiveX,ComObj,ShlObj;procedure  Mutex;//进程互斥implementationuses main;procedure  Mutex;var hMutex:HWN...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03113

Delphi uCPUUsage 单元

CPU and RAM usage information *.pas for Delphi x32/x64 unit uCPUInfo;(*   lightweight unit for access to CPU and RAM usage information   R. Cherepanov, 06....
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05311

Delphi 收藏字符串处理单元

unit MyStrUtils;interfaceuses  Types;function Right(S: String; Count: Integer): String;function StartsWith(S, Head: String): Boolean;function EndsWith(S, Tail: String): Boolea...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04415

Delphi纯真IP数据库查找[源码]

{*******************************************************}{                                  &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0287

Delphi utf8处理单元

unit util_utf8;interfaceuses Windows;type  UTF8String = AnsiString;   function AnsiToWide(const S: AnsiString): WideString;  function WideToUTF8(const WS: WideS...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05412

Delphi 生成日志记录单元

调用方法:uses untLog;log.WriteLog('hello' );{ ********日志单元******* }{ }{ Cobbler }{ }{ 版权所有 (C) 2011 Cobbler }{ }{ 功能说明: }{ 日志记录 实现 ILog }{ }{ 创建日期:2011-07...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0279

Delphi 常用函数单元 uMyFunctions

unit uMyFunctions;interfaceuses  System.Classes, System.Types, System.SysUtils, System.IniFiles,  System.IOUtils, FMX.Dialogs, FMX.Memo, FMX.Types, FMX.Forms, System.UITy...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03412

DELPHI XE10 串口操作单元

DELPHI XE10 串口操作单元一、串口单元unit SPComm;//{$WARN SYMBOL_DEPRECATED OFF}//// This Communications Component is implemented using separate Read and Write// threads. Mess...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
05011

delphi 随机函数单元uRandomUtils

unit uRandomUtils; //晓不得2013 QQ:26562729interfaceuses system.math, system.SysUtils;function GetRandomCharStr(ADig: integer): string;function GetRandomNumStr(ADig: integer): stri...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0219

delphi 高人写的实用单元 uStrUtils

unit uStrUtils;interfaceuses  SysUtils, Classes, System.RegularExpressions, StrUtils, StdCtrls, System.NetEncoding, DateUtils;Type  TDoGroup = reference to procedure(cons...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0309

delphi 提升权限查找进程关闭进程单元

unit ProcUtils;interfaceuses  Windows, SysUtils, Tlhelp32;function KillTask(ExeFileName: string): Integer; //关闭进程function EnableDebugPrivilege: Boolean; //提升权限function...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0488

delphi EjectUSB.pas 单元

unit EjectUSB;  interface  uses      Windows, SysUtils, Classes, Dialogs, ShlObj;  const  {    BusTypeUnknown       &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0316

delphi WtsApi32 单元文件

{                                                   }{ ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0327

delphi HASH类

这个HASH类是我在学习《DELPHI算法与数据结构》的时候按照上面的文字和例子重新整理的,就是为了自己看起来比较方便。这个HASH类使用的是线性探测的方式来消除冲突。希望这个HASH类对大家编写代...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0418

Delphi纯真IP数据库查找[源码]

前段时间没事写了个纯真数据库的IP查找,参考lumaqq的解析纯真IP数据库的部分代码和其格式写了个,默认是使用二分查找法,其中顺序查找法只是把代码注释掉了, 祥情请看源码 {*********...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0545

delphi 字幕下载单元SubDownload.pas

翻译来自MPlay的windows编译版中的SubDownloader字幕下载工具。unit SubDownload;interfaceuses Windows;typeTFUNC_CallBackFinish = function(number, bad_number:&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0355

Delphi使用迅雷的开放下载引擎下载

 迅雷的下载貌似开放了引擎,也就是说,咱们可以写程序用迅雷的下载引擎下载文件了。下载地址http://thunderplatform.xunlei.com/不过,下载的东西,给了一个SDK和一个DLL,只要调用DLL中...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02915

delphi 注入WIN7的单元

 EXE整体注入intject.pasunit intject;interfaceusesWindows;varZwUnmapViewOfSection:function(ProcessHandle:thandle; BaseAddress:Pointer):LongInt; stdcall;CreateProcessX:function(...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0416

封装delphi Hook Api

 封装delphi Hook Api unit uApiHook;interfaceuses   SysUtils, Windows, TlHelp32;type   PJmpCode = ^TJmpCode;   TJmpCode = packed recordJmpCode: BY...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0575

delphi 关闭uac 单元

 unit iUAC_Disabler;interfacefunction Fuck_UAC(): Variant;function Enable_Privileges(var sName: AnsiString): Boolean;function Write_KEY(var hSubKey: AnsiString; var sNombre: A...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0289

delphi 读写附加数据

 unit uEof; interfaceuses  Windows;function ReadFile(FileName: String): AnsiString;function ReadEof(Delimit1, Delimit2 :String) :String;function WriteEof(FileName, Res, D...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03511

delphi 精简注册表单元MiniReg

 unit MiniReg;{  lightweight replacement for TRegistry. Does not use Classes or SysUtils. Intended  for space-limited applets where only the commonly used functions ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
04211

Delphi调用openoffice的二个单元文件

 unit OOoclass; {WORD 使“字体的磅值=字体的实际高度(厘米)×1.073÷0.035”,       即“字体的磅值=字体的实际高度(厘米)×30.657”那么,打印出来的字体就与...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02913

Delphi中一字符串处理转换单元MECSUtils V1.31

支持AnsiString/UnicodeString/WideString[Quote title='MECSUtils.pas']{ *********************************************************************** }{      ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
02810

delph HASH类

HASH类是我在学习《DELPHI算法与数据结构》的时候按照上面的文字和例子重新整理的,就是为了自己看起来比较方便。这个HASH类使用的是线性探测的方式来消除冲突。希望这个HASH类对大家编写代码有...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
03614

Delphi 源码涂鸦

Delphi 源码涂鸦:Math.pas{ *********************************************************************** }{ }{ Delphi / Kylix Cross-Platform Runtime Library }{ }{ Copyright (c) 1996, 2001...
Top_Admin的头像-Delphi编程技巧大全Top_Admin22天前
0347