Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下： const WM_MouseEnter = $B013; WM_MouseLeave = $B014; type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Tim
Delphi 2024年02月05日 89
TAGS:Delphi
使用Delphi编写DLL劫持内存补丁
在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？ 当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行模块的输入表，并设法找出任何需要的DLL，并将它们映射到进程的地址空间中。由于输入表中只包含
Delphi 2024年01月29日 107
delphi 字符串处理中的怪异现象与处理方式
1， 怪异现象：字符串相加操作不正常！ 以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！ 采用showMessage进行输出，看看结果如何？ 结果仍是不显示字符串后缀，但可以看到字符串偏左显示，似乎后面还有很多不可见字符。 2，怪异原因：字符串中含有\0，即字符串终止符 以上现象已经看出，字符串加法失效的原因可能是含
Delphi 2024年01月23日 90
Delphi远程连接Mysql的实现方法
本文实例讲述了Delphi远程连接Mysql的实现方法，是Delphi数据库程序设计中非常重要的技巧。分享给大家供大家参考之用。具体方法如下： Delphi 通过ADOConnection链接远程Mysql数据库，要在安装软件的电脑上安装Mysql 驱动，没有的在百度下载，搜索mysql ODBC驱动就出来了 主要的链接代码如下： var srstring:string; sr
Delphi7中群发Email邮件的方法
本文实例讲述了Delphi7中群发Email邮件的方法。分享给大家供大家参考。具体分析如下： 这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来给大家参考一下： 总的思路是： 1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以从官网下载； 2、需要使
Delphi 2023年11月26日 99
delphi实现保存和读取图片的方法
本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下： 首先引用jpeg 1.显示图片： if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text
Delphi 2023年10月21日 111
Delphi中使用ISuperObject解析Json数据的实现代码
Java、Php等语言中都有成熟的框架来解析Json数据，可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性，同时delphi中也有这样的组件来实现此功能，即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。 下面先说一下ISuperObject中几个常用的函数 function SO(const s: SOSt
ListView 百分比进度条(delphi版）
在看代码之前先给大家附上效果图： 废话不多说了，直接给大家贴代码了。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList; type TForm1
Delphi 2023年09月25日 95
Delphi 实现软件自动升级的功能
Delphi 实现软件自动升级的功能 原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件，然后逐一下载。 本程序名字为
Delphi 2023年09月05日 92
delphi 判断字符串是否包含汉字，正则版与非正则版实现
代码一 //正则版 uses RegularExpressions; //相关单元 function IsChineseStr(s: String): Boolean; const pattern ='[\x{4E00}-\x{9FA5}]'; //测试用的表达式 begin Result:=false; if TRegEx.IsMatch(s, pattern) th
Delphi 2023年09月01日 115
delphi 判断字符串是否为纯字母组合的函数
代码一 function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合 var i:integer; begin Vaule:=trim(Vaule); //去空格知 for i:=1 to length(Vaule) do //准备循环 begin if ( Vaule[i] in ['A'..'Z']) or ( Vaule[i
Delphi 2023年08月16日 111
delphi制作wav文件的方法
本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下： 这里delphi用waveIn...函数制作wav文件 具体代码如下： //使用窗口接受音频设备发出的消息: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont
Delphi 2023年08月15日 104
Delphi实现获取句柄并发送消息的方法
本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下： 查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄 查找子窗体： childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API
Delphi 2023年08月04日 112
Delphi 中内存映射对于大文件的使用
Delphi 中内存映射对于大文件的使用 平时很少使用大文件的内存映射，碰巧遇到了这样的要求，所以把过程记录下来，当给各位一个引子吧，因为应用不算复杂，可能有考虑不到的地方，欢迎交流。 对于一些小文件，用普通的文件流就可以很好的解决，可是对于超大文件，比如2G或者更多，文件流就不行了，所以要使用API的内存映射的相关方法，即使是内存映射，也不能一次映射全部文件的大小，所以必须采取分块映射，每次
Delphi 2023年07月12日 97
Delphi 根据字符串找到函数并执行的实例
Delphi 根据字符串找到函数并执行的实例 关键字：MethodAddress：取得方法的地址，这个方法需要是published的。 实例代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Delphi 2023年07月12日 87
Delphi提取PDF文本实例
Delphi 2023年07月12日 97
Delphi实现检测并枚举系统安装的打印机的方法
本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机，枚举出这些打印机，主要功能代码非常简单，便于大家阅读与理解。 主要功能代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D
Delphi 2023年07月12日 88
delphi实现将BMP格式图形转化为JPG格式图形的方法
本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下： 复制代码 代码如下: procedure ConvertBMPtoJPG(SFileName,DFileName:string); Var J:TJpegImage; I:TBitmap; S,D:String; begin s:=SFileN
Delphi 2023年07月12日 93
Delphi 在窗体上创建自己光标的实例
Delphi 在窗体上创建自己光标的实例 我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。 用到的API函数如下 GetTextMetrics：获取程序当前的字体信息，存放到TEXTMETRIC结构中
Delphi 2023年07月12日 105
Delphi 调用外部程序并阻塞到外部程序中
背景说明： 前段时间开发一个数据转换的系统，业务逻辑中说明数据需要压缩成.tar.gz格式。 我在Windows系统下采用，先生成批处理文件，然后调用WinExec执行批处理文件，休眠等待一段时间，完成数据的自动压缩。 后来发现，待压缩文件的大小不确定，单纯的执行WinExec时Sleep固定时间，可能导致压缩失败、文件不全或损坏。 优化方案： 取代WinExe用CreateProces
Delphi 2023年07月11日 66
