可以使用以下代码在Delphi中显示一个MessageBox对话框，其中包含"确定"和"取消"按钮： var ButtonSelected: Integer; begin ButtonSelected := MessageDlg('确定要执行此操作吗？', mtConfirmation, [mbYes, mbNo], 0);

Delphi 前天 21:03  8

本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下： const WM_MouseEnter = $B013; WM_MouseLeave = $B014; type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Tim

Delphi 2024年02月05日  112

在有些破解程序时，不能暴力修改程序，修改后，程序就不能正常运行，因为很多程序启动时有自我的校验，但是当程序加载到内存后，在内存中修改相应的地方就可以达到破解的效果。那么怎样在不破坏程序的前提下，达到修改程序呢？ 当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行模块的输入表，并设法找出任何需要的DLL，并将它们映射到进程的地址空间中。由于输入表中只包含

Delphi 2024年01月29日  128

1， 怪异现象：字符串相加操作不正常！ 以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！ 采用showMessage进行输出，看看结果如何？ 结果仍是不显示字符串后缀，但可以看到字符串偏左显示，似乎后面还有很多不可见字符。 2，怪异原因：字符串中含有\0，即字符串终止符 以上现象已经看出，字符串加法失效的原因可能是含

Delphi 2024年01月23日  111

本文实例讲述了Delphi远程连接Mysql的实现方法，是Delphi数据库程序设计中非常重要的技巧。分享给大家供大家参考之用。具体方法如下： Delphi 通过ADOConnection链接远程Mysql数据库，要在安装软件的电脑上安装Mysql 驱动，没有的在百度下载，搜索mysql ODBC驱动就出来了 主要的链接代码如下： var srstring:string; sr

Mysql / Delphi 2024年01月08日  155

本文实例讲述了Delphi7中群发Email邮件的方法。分享给大家供大家参考。具体分析如下： 这段时间需要对所有参加考试的考生将考生信息及考试信息通过电子邮件群发，经过多次调试，算是成功了，发来给大家参考一下： 总的思路是： 1、安装局域网版的邮件服务器，并通过设置DNS使得给服务器能给网外用户发送电邮，这方面的软件比较多，例如WinWebMail就不错，可以从官网下载； 2、需要使

Delphi 2023年11月26日  121

本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下： 首先引用jpeg 1.显示图片： if OpenPictureDialog.Execute then begin img1.Picture.LoadFromFile(OpenPictureDialog.FileName); btnPicture.Text

Delphi 2023年10月21日  143

Java、Php等语言中都有成熟的框架来解析Json数据，可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性，同时delphi中也有这样的组件来实现此功能，即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。 下面先说一下ISuperObject中几个常用的函数 function SO(const s: SOSt

JS脚本 / Delphi 2023年10月04日  117

在看代码之前先给大家附上效果图： 废话不多说了，直接给大家贴代码了。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList; type TForm1

Delphi 2023年09月25日  116

Delphi 实现软件自动升级的功能 原理简单，在FTP上维护一个Update.ini文件，里面记录着要更新文件的版本号，本地也有一个Update.ini文件，每次启动更新程序时，先从FTP上下载Update.ini文件到本地名字为Update_new.ini，然后比较这两个文件，如果新的版本号大于旧的，或者新的文件在就ini中没有，这些就表示要更新的文件，然后逐一下载。 本程序名字为

Delphi 2023年09月05日  124

代码一 //正则版 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日  147

代码一 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日  143

本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下： 这里delphi用waveIn...函数制作wav文件 具体代码如下： //使用窗口接受音频设备发出的消息: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont

Delphi 2023年08月15日  127

本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下： 查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄 查找子窗体： childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API

Delphi 2023年08月04日  141

Delphi 中内存映射对于大文件的使用 平时很少使用大文件的内存映射，碰巧遇到了这样的要求，所以把过程记录下来，当给各位一个引子吧，因为应用不算复杂，可能有考虑不到的地方，欢迎交流。 对于一些小文件，用普通的文件流就可以很好的解决，可是对于超大文件，比如2G或者更多，文件流就不行了，所以要使用API的内存映射的相关方法，即使是内存映射，也不能一次映射全部文件的大小，所以必须采取分块映射，每次

Delphi 2023年07月12日  118

Delphi 根据字符串找到函数并执行的实例 关键字：MethodAddress：取得方法的地址，这个方法需要是published的。 实例代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms

Delphi 2023年07月12日  118

Delphi 2023年07月12日  128

本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机，枚举出这些打印机，主要功能代码非常简单，便于大家阅读与理解。 主要功能代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D

Delphi 2023年07月12日  115

本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下： 复制代码 代码如下: procedure ConvertBMPtoJPG(SFileName,DFileName:string); Var J:TJpegImage; I:TBitmap; S,D:String; begin s:=SFileN

Delphi 2023年07月12日  99

Delphi 在窗体上创建自己光标的实例 我们知道在文本框等可以接收输入的组件中，我们可以看到闪烁的光标，并可以输入文字，如果我们在，比如窗体上时，因为不支持输入，也无法显示闪烁的光标，那我们 有办法做自己的输入吗？当然可以，下面我们演示在Form上来输入文字。 用到的API函数如下 GetTextMetrics：获取程序当前的字体信息，存放到TEXTMETRIC结构中

Delphi 2023年07月12日  139