- 博客(96)
- 资源 (14)
- 收藏
- 关注
RSS订阅原创 用DELPHI实现Bezier贝塞尔曲线
/t的范围在0-1之间,根据输入求出曲线上点的位置。TBezierRecord=packed Record//Bezier曲线数据结构。TPoint2=packed record//二维顶点数据结构。//控制曲线的X轴变化。p1:TPoint2;
2024-04-11 14:27:50
327
原创 X86 and X64 完全免费的Windows代码签名证书
完全免费的Windows代码签名证书本文目录完全免费的Windows代码签名证书代码签名有什么用？2.如何自己创建代码签名证书？2.1.需要准备的工具2.2.开始制作2.2.1.制作证书2.2.2.解决证书不受信任2.2.3.给 .exe .cab .dll .ocx等文件进行数字签名2.2.4.让程序在别的电脑上运行的时候，防止数字签名失效代码签名有什么用？对于我们来说，代码签名的作用也就是在UAC和运行程序时的界面稍微好看一点，看上去更高大上一点。对于Windows应
2021-12-19 09:05:42
1226
原创 自带的richedit控件显示图片文字（仿QQ聊天内容文字图片）
unit RichEx;interface{使用：RichEx.InsertBitmap(RichEdit1.Handle, ExtractFilePath(ParamStr(0)) + ‘e.bmp’);RichEx.InsertBitmap(RichEdit1.Handle, Image1.Picture.Bitmap);RichEx.InsertGif(RichEdit1.Handle, ExtractFilePath(ParamStr(0)) + ‘c.gif’);}usesWin
2021-04-08 12:28:23
513
原创 delphi的内存映射与映射数据获取
elphi的内存映射与映射数据获取1.定义数据结构type//外部接口结构 内外部结构需一至PBM_Interface = ^TBM_Interface;TBM_Interface = recordUserID:Integer; //登陆用户IDUserName: string; //登陆用户姓名 end;================================================================2.调用创建映射的函数
2021-04-01 14:20:56
618
原创 Delphi系列书籍118本
吐血整理 Delphi系列书籍 118本（全）Delphi 教程 系列书籍 网友（老帅）整理001_《Delhpi6数据库设计思想与实践》002_《Delphi6应用开发指南》003_《Delphi6开发人员指南》004_《Delphi6数据库开发典型实例》005_《Delphi6组件大全》006_《深入Delphi6 网络编程》007_《Delphi6数据库深入编程技术》008_《Delphi6程序设计教程》009_《Delphi6编程基础》010_《Delphi6最佳专辑》011
2021-03-06 21:33:35
698
原创 delphi sendmsessage 发送滚轮滚动消息
procedure SendMouseWheel(destHandle: THandle; goUp: Boolean);varmessage: TWMMouseWheel;delta: SmallInt;beginif goUp thendelta := WHEEL_DELTAelse delta := -WHEEL_DELTA;message.Msg := WM_MOUSEWHEEL;message.Keys := 0;message.XPos := 0;message.YPos
2021-01-02 20:59:58
549
原创 Delphi中SendMessage使用说明
Delphi中SendMessage使用说明SendMessage基础知识函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）；参数：hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST
2021-01-02 16:02:28
2703
原创 获取当前鼠标指针特征码值
varForm1: TForm1;OldCI:HICON;procedure TForm1.Timer1Timer(Sender: TObject);varCI: TCursorInfo;beginCI.cbSize := SizeOf(CI);GetCursorInfo(CI);if OldCI<>CI.hCursor thenbeginOldCI:=CI.hCursor;form1.Caption:=‘鼠标特征值’+IntToStr(oldcI);//form1.C
2020-11-29 09:46:58
1196
原创 DELPHI 键盘HOOK,DLL注入,带窗口DLL注入及释放
-----------DLL的创建退出过程----------新建的DLL内procedure DllEnterProc(reason:integer);begincase reason ofwindows.DLL_PROCESS_ATTACH: begin //DLL载入事件 end;windows.DLL_PROCESS_DETACH: begin //DLL释放销毁事件 end;end;end;exports //导出函数add,installKeyProc;begin
2020-11-25 14:39:22
1376
原创 DELPHI 内联汇编调用
procedure sitCall();stdcall;begin//// [[[[[95E800+1c]+24]+918]+14]+1c ]asmpush 1mov ecx,$95E800add ecx,$1C //add 即是地址偏移,ecx加上某个16进制偏移mov ecx,[ecx] // ecx=Pointer(ecx^)add ecx,$24 // ecx=ecx+$24mov ecx,[ecx]add ecx,$918mov ecx,[ecx]add ecx,$
2020-11-25 11:48:25
314
原创 Delphi 关键字详解大全
absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.varStr: string[32];StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.beginStr := ‘abc’;Edit1.Text := IntToStr(StrLen);end;abstract//它允许你创建抽象的方法, 包括有抽象方法的类称
2020-11-06 11:32:58
595
1
原创 外部进程内存创建线程执行,远程代码注入,进程内存CALL地址
1.远程注入代码，可以调用某个CALLHANDLE CreateRemoteThread(HANDLE hProcess, // 在指定的进程句柄里创建线程LPSECURITY_ATTRIBUTES lpThreadAttributes, //安全结构指针 nilDWORD dwStackSize, // 初始创建线程堆栈大小 0LPTHREAD_START_ROUTINE lpStartAddress, //CALL地址LPVOID lpParameter,
2020-11-06 10:50:13
352
原创 Delphi发送后台鼠标点击消息
打开SPY++，拦截游戏的 鼠标消息 WM_LBUTTONDOWN,WM_LBUTTONUPHWND FindWindow(LPCTSTR lpClassName, // 通过查找窗口类名 获取句柄 nilLPCTSTR lpWindowName // 通过查找窗口标题 获取句柄);LRESULT SendMessage(HWND hWnd, // 目标窗口句柄 在这里由FindWindow获取UINT Msg, // 发送消息类型 WM_LBUTTONDOWN WM
2020-11-01 09:31:25
1425
原创 内存读与写取数据，指定进程读与写内存地址数据
需要用到的函数3个 API函数1： GetWindowThreadProcessId :获取进程ID2：OpenProcess :获取进程句柄3： ReadProcessMemory :读出指定进程 指定位置 的数据到缓冲区DWORD GetWindowThreadProcessId(HWND hWnd, // 窗口句柄 由FindWindow获取LPDWORD lpdwProcessId // 存放进程ID的 变量);HA
2020-11-01 09:05:30
931
原创 Delphi版本下载合集更新至10.4.1
Delphi 的各位爱好者下载，此页面会持续更新同步最新官网发布下载地址。Rad Studio Delphi 10.4.1https://altd.embarcadero.com/download/radstudio/10.4/radstudio_10_4_101461a.isoSize: 6406551552 bytesMD5: 952F87F0001D5A5E2310CBC8B5D7FEBFSHA1: 38F887A9F9D41117D9F79E1C670E99CDD2FA7319CRC32
2020-10-13 10:57:04
6132
原创 delphi idhttp post和GET 提交数据解析返回json
uses提交数据引用IdGlobalProtocols, IdMultipartFormDatajson引用单元uses引用单元System.JSON.Serializers,REST.Json,System.Json,System.Types,System.Json.Types,System.Json.Writers,System.Json.Builders;//有字符串和文件 的提交postfunction getyzm(usname,uspw,yzmtype,yzm_minl
2020-08-08 05:07:41
3822
原创 delphi json 获取解析
uses引用单元System.JSON.Serializers,REST.Json,System.Json,System.Types,System.Json.Types,System.Json.Writers,System.Json.Builders;procedure TForm1.Button1Click(Sender: TObject);vars:string;begins:=’{“id”:2, “name”:“张三”, “age”:99}’;jsonob:=tjsonobj
2020-08-07 12:33:05
932
原创 delphi 域名解析IP 域名转为IP地址
function HostToIP(Name: string; var Ip: string): Boolean; //Delphi XE2 将域名转IPvarwsdata : TWSAData;hostName : array [0…255] of Ansichar;hostEnt : PHostEnt;addr : PAnsiChar;beginWSAStartup ($0101, wsdata);trygethostname(hostName,sizeof(hostName));
2020-08-05 20:25:58
657
原创 delphi 位运算 not and or xor shl shr
procedure TForm1.Button1Click(Sender: TObject);vara: Word;c: Integer;begina := 6; //0000 0000 0000 0000 0000 0000 0000 0110c := 12; //0000 0000 0000 0000 0000 0000 0000 1100 四字节 32 位ShowMessage(IntToStr( a and c));end;procedure TForm1
2020-08-01 18:40:19
334
原创 Delphi Base64 编解码
Delphi 自带了 Base64 编解码的单元，叫 EncdDecd这个单元提供两套四个公开函数：usesEncdDecd对流的编解码：procedure EncodeStream(Input, Output: TStream); // 编码procedure DecodeStream(Input, Output: TStream); // 解码// 对字符串的编解码：function EncodeString(const Input: string): string; // 编码fun
2020-07-19 09:37:44
1044
原创 THashedStringList哈嘻读写及ini文件项名,小节名,值 遍历的方法
uses inifiles; //哈嘻的引用. var Hashed:THashedStringList; ini:tinifile;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); beginHashed.Values[‘a’]:=‘111’; //写值Hashed.Values[‘b’]:=‘222’;memo1.Lines.Clear ;memo1.Lines:=hashed; //显示出来 end;..
2020-07-10 17:10:12
224
原创 delphi 组件对象传递,遍历容器内组件
varbox:TGroupBox;for i := 0 to box.ControlCount - 1 do //取容器子组件个数begincheckbox := TCheckBox(box.Controls[i]); //将其转换为某个特定组件end;组件对象传递procedure TForm1.CheckBox1Click(Sender: TObject);//var//check:TCheckBox;beginif cxclose thenbeginExit;e
2020-06-20 00:30:29
396
原创 Delphi 自带的字符串分割函数
下面介绍Delphi自带的字符串分割函数，根据你的需要来使用。1、ExtractStringsfunction ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;第一个参数是分隔符，可以是多个，例如 [’;’,’,’,’:’] 可以按分号、逗号、分号来同时分割。第二个参数是开头被忽略的字符，例如[’<’,’>’,’ ']，被分割出的字符，如果开头有
2020-06-20 00:17:01
1345
1
原创 Delphi 带KEY字符串加密解密(支持中文)
unit Unit2;interfaceuses Winapi.Windows, System.SysUtils , AnsiStrings; Function JiaMi(Src:String; Key:String):String;Function JieMi (Src:String; Key:String):String;implementationFunction JiaMi(Src:String; Key:String):String;var KeyLen :
2020-06-16 16:50:11
1728
4
原创 DELPHI 字符串加解密（自定义KEY）
unit CnDES;interfaceusesSysUtils;function EncrypStr(Src, Key: String): String;//字符串加密函数function UncrypStr(Src, Key: String): string;//字符串解密函数implementationfunction EncrypStr(Src, Key: String): String;//字符串加密函数//对字符串加密(Src:源 Key:密匙)var KeyLen :Inte
2020-06-16 16:23:07
643
原创 delphi 程序删除自身方法（4种方法）
多种方法，请自已测试吧procedure DeleteMe;varBatchFile: TextFile;BatchFileName: string;ProcessInfo: TProcessInformation;StartUpInfo: TStartupInfo;beginBatchFileName := ExtractFilePath(ParamStr(0)) + ‘_deleteme.bat’;AssignFile(BatchFile, BatchFileName);Rewrit
2020-06-14 17:01:11
782
原创 Delphi 程序自己删除自己 适用windows
程序自己删除自己，适用于任何windows版本(含源码)function Suicide: Boolean;varsei: TSHELLEXECUTEINFO;szModule: PChar;szComspec: PChar;szParams: PChar;beginszModule := AllocMem(MAX_PATH);szComspec := AllocMem(MAX_PATH);szParams := AllocMem(MAX_PATH);if ((GetModul
2020-06-14 16:54:03
280
原创 Delphi XE5 取Android网络状态
介绍Delphi XE5 获取Android手机网络状态，通过该代码可以得到Wift是否连接、手机网络是否连接，首先会实现一个类库Androidapi.JNI.Network，然后通过这类库来判断网络状况。在使用这个类库之前，需要配置手机的权限，否则无法得到信息。下面是这个判断类库的代码：unit Androidapi.JNI.Network;interfacefunction IsConnected: Boolean;function IsWiFiConnected: Boolean;fun
2020-06-14 10:16:59
371
原创 python 中文官方手册
Copyright © 1999-2020, CSDN.NET, All Rights Reserved搜索博文/帖子/用户2python常用库的官方手册 原创2019-04-094点赞_沥川往事码龄4年关注python 官方英文文档 https://docs.python.orgpython 官方中文文档 https://docs.python.org/zh-cn/python 3.5.2 第三方中文文档 https://yiyibooks.cn/xx/python_352/inde
2020-06-14 00:43:24
4536
原创 Delphi 强制结束一个进程（通过进程名称）
强制结束一个进程的 API 为 TerminateProcessBOOL TerminateProcess(HANDLE hProcess, // 进程句柄UINT uExitCode // 退出代码);你可以使用语句 invoke TerminateProcess,structProcInfo.hProcess,0 来结束进程，要注意的是如果可能的话，尽量不要在程序中强制结束别的进程，因为使用 TerminateProcess 结束的进程，它装载的 dll 不能被正确卸载。这样可能会引起系统资源
2020-06-13 22:01:05
1428
原创 delphi VMP加壳 自检保护和硬件ID获取
function pchwidmd5:string;//VMP硬件号，返回MD5varbuf: array [0…127] of AnsiChar;md5:TIdHashMessageDigest5;beginVMProtectBegin(‘hwid’);MD5 := TIdHashMessageDigest5.Create;FillChar(buf, 0, sizeof(buf));VMProtectGetCurrentHWID(buf, sizeof(buf));//ShowMess
2020-06-13 08:51:59
1446
原创 DELPHI 注册表取桌面、快速启动栏、公共桌面 路径
function TForm1.regeditname(i:integer):string;var AuToRun: TRegistry;begin //1快速启动栏位置 2当前用户桌面 3公共桌面位置 AuToRun := TRegistry.Create; try if (i = 0) or (i = 1) then begin AuToRun.RootKey := HKEY_CURRENT_USER; A
2020-06-13 07:46:16
288
原创 delphi 快捷方式的操作另一种方法，可以读写，实测有效
procedure TForm1.CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);varAnObj: IUnknown;ShellLink: IShellLink;AFile: IPersistFile;FileName: WideString;beginif UpperCase(ExtractFileExt(LinkPath)) <> ‘.LNK’ then //检查扩展名是否正确beginraise
2020-06-12 15:46:33
162
最新版winIO3.0已编译好lib库文件，win10 64验证Ok，所有均已亲测试。w10,w7等32位，64位已测。
2022-02-27
VFW.pas_Delphi版视频相头摄相头
2020-03-25
IOCP_SOCKET服务演示.rar
2020-02-28
delphi 安卓 xe10 xe8开发电子书有教程
2018-11-11
DELPHI INdy10 TCP2个示例XE可用.rar
2018-10-04
Delphi使用winio.dll驱动级读取键盘内容的简单示例
2015-06-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人