procedure TForm1.Button1Click(Sender: TObject);const FName = 'about.txt'; // use a file larger than 2048 bytes to make it interesting.var F: File; MyData: array[1..2048] of byte; BytesRead: LongInt;begin AssignFile(F, FName); try Reset(
type TBMKey=record Length:Integer; Offsets:array[0..255] of Integer; ps:PAnsiChar; end;procedure InitKeyDistance(var AKey:TBMKey);var I:Integer;beginAKey.Length:=StrLen(AKey.ps);for I := 0 to 255 do AKey.Offsets[I]:=AKey.Length;for I := 0 to
Delphi 如何解决在DLL的入口函数中创建或结束线程时卡死先看一下使用Delphi开发DLL时如何使用MAIN函数，通常情况下并不会使用到DLL的MAIN函数，因为delphi的框架已经把Main函数隐藏起来而工程函数的 begin end 默认就是MAIN函数的DLL_PROCESS_ATTACH事件的处理代码，如需要完整的处理其他事件，如 DLL_PROCESS_DETACH，DLL_THREAD_ATTACH， DLL_THREAD_DETACH，可在工程文件中做如下处理：复制代码proce
//******************************************************************************//线程池//******************************************************************************//作者：Cai//日期：2011-3-10//*****************************************************************
Delphi 如何判断当前网卡是物理网卡（有线网卡，无线网卡）还是虚拟网卡MAC地址作为硬件唯一标识，在很多时候会被使用，如在软件授权方面，很多软件在产生机器码时会采用CPUID或MAC地址，或使用MAC地址来做一对一绑定。 相信很多人会碰到以下问题： 1）获取的是VMWare的网卡MAC地址 2）获取的是VPN的网卡MAC地址 VMWare或VPN软件的安装卸载都会导致获取的MAC地址变化，所以我们需要正确获取当前物理网卡的MAC地址。 下面是根据网卡实例ID判断是否为物理网卡的Delphi代码（
1.DPR: Delphi Project文件，包含了Pascal代码。应用系统的工程文件2.PAS: Pascal文件，Pascal单元的源代码，可以是与窗体有关的单元或是独立的单元。3.DFM：Delphi Form File,描述窗体或数据模块及其组件属性的二进制文件。窗体界面文件, 同PAS文件同名,而 且一一对应, 定义了窗体属性和构件的属性,4.BPG Borland Project Group 工程项目包, 多个工程文件DPR的集合5（）.DOF Delphi Option File 选
来源：https://blog.csdn.net/Linjingke32/article/details/80281149
uses Winapi.ShellAPI, Winapi.TlHelp32;function GetProcessFullPath(APid: Cardinal): string;var hModuleSnap: THandle; ModuleEntry: TModuleEntry32;begin Result := ''; hModuleSnap := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, APid); if (hModu