Delphi实现图像文本旋转特效完整实例代码

2016年07月29日 62 阅读

本文以实例讲述了Delphi实现图像文本旋转特效的解决方法，在本程序中利用的控件主要是Panel 控件、Image 控件、Edit 控件、Label 控件和Button 控件。本程序的关键是利用Delphi 的bmp_rotate（）函数来实现旋转图像的功能。并巧妙地调用相关Windows API 函数来实现对文本的旋转特效。完整的实例代码如下：unit Unit1;interfaceusesWindows, Messages, SysUtils, Cla...

Delphi实现限定软件使用时间的方法

2016年07月29日 86 阅读

我们经常看到很多网上下载的试用版软件，都有使用时间的限制，就其商业角度而言也是处于软件效益保护的一种措施，可以让用户免费试用一段时间，若满意就可以购买商业软件。本文所述实例代码功能就是如何为Delphi所编写的程序添加使用时间的限制功能，这里默认的时限为30天。主要代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Re...

Delphi实现获取磁盘空间大小的方法

2016年07月29日 78 阅读

本文所述Delphi实例用以获取指定的磁盘空间容量大小，检测磁盘大小，从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮，就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。读者可根据需求添加对应的Button与label控件。主要程序代码如下所示：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dial...

Delphi实现窗口文字淡入淡出渐变效果的方法

2016年07月29日 81 阅读

本文所述实例为Dlephi实现的窗口渐变文字效果，文字可以不停的变化，颜色由浅入深，由清淅变模糊，文字渐变的时间可在代码中自己调整。主要实现代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class（TForm）T...

Delphi实现木马自我拷贝方法

2016年07月29日 68 阅读

木马实现自我拷贝的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,继而退出旧程序.本例即以Delphi实现木马的自我拷贝。首先打开Delphi,新建一个工程,在窗口的Create事件中写入如下代码:procedure TForm1.FormCreate（Sender: TObject）;var myname: string;beginmyname := ExtractFilename（App...

Delphi实现木马文件传输代码实例

2016年07月29日 78 阅读

本文以实例形式讲述了Delphi下木马的文件传输方法的实现过程，具体步骤如下：服务器端代码:unit ServerFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls,WinSock;type TfrmMain = class（TForm）Panel1...

Delphi实现获取句柄并发送消息的方法

2016年07月29日 128 阅读

本文以实例形式详细说明了Delphi获取句柄并发送消息的方法，具体用法说明如下：查找另外一个窗口的句柄：handle := FindWindow（nil,PChar（"窗口的标题"））;//查到窗体句柄查找子窗体：childHandle := FindWindowEx（handle,0,"子窗体类","子窗体标题"）; 另外有个枚举子窗体的API，EnumChildWindows（主创体句柄,@回调函数,用户参数）;用这个函数需要自己写一个回调的函数，比如...

Delphi编程常用快捷键大全

2016年07月29日 91 阅读

快捷键对于提高编程速度有着很重要的影响，本文汇总整理了Delphi常用的快捷键，供大家参考之用：Ctrl+PageUp将光标移至本屏的第一行，屏幕不滚动。Ctrl+PageDown将光标移至本屏的最后一行，屏幕不滚动。Ctrl+↓向下滚动屏幕，光标跟随滚动不出本屏。Ctrl+↑向上滚动屏幕，光标跟随滚动不出本屏。Ctrl+Shift+NUM在光标行设置最多九个临时标志号，对临时切换非常有用。行的左边将出现一本书，封面有NUM，再按一次取消设置。Ctrl+N...

Delphi创建开机启动项的方法示例

2016年07月29日 98 阅读

Delphi可以通过创建开机启动项键值的方法，将程序添加到开机启动项中。通过本实例代码就可以为您的程序添加到快速启动中，随着Windows一起启动，开机即运行的程序。该实例代码简单，主要是通过添加注册表键值来实现。具体的功能代码如下所示：unit dy97;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,regi...

Delphi实现检测并枚举系统安装的打印机的方法

2016年07月29日 70 阅读

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

Delphi2007编译的程序在Win7下图标模糊的解决办法

2016年07月29日 70 阅读

使用Delphi2007编译GUI程序的时候会发现在Win7的状态栏中显示的程序图标非常模糊，如果原始的图标清晰度怎么样。造成这样结果的原因是因为Delphi2007生成的icon图标只符合XP等系统的要求，没有对Win7进行优化处理。网上有很多处理的方式，后来找到一个最简单有效的方法，就是只设置项目的图标而不要设置Form窗口的图标。参考资料：Blurred Delphi Form Icon in Windows 7 TaskbarDelphi form...

Delphi远程连接Mysql的实现方法

2016年07月29日 81 阅读

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

delphi实现保存和读取图片的方法

2016年07月29日 192 阅读

本文实例讲述了delphi实现保存和读取图片的方法，是非常实用的技巧。分享给大家供大家参考。具体实现方法如下：首先引用jpeg1.显示图片：ifOpenPictureDialog.Execute thenbegin img1.Picture.LoadFromFile（OpenPictureDialog.FileName）; btnPicture.Text:=OpenPictureDialog.FileName;end;2.保存图片：varStream:TM...

Delphi7中群发Email邮件的方法

2016年07月29日 161 阅读

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

delphi字符串分隔函数用法实例

2016年07月29日 78 阅读

本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下：该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串，存入rs字符串列表中，具体代码如下：复制代码 代码如下:procedure SeparateTerms2（s:string;Separator:string;var rs:TStringList）;var AStr: string; idx: Integer; ASubStr: string;be...

delphi实现将BMP格式图形转化为JPG格式图形的方法

2016年07月29日 110 阅读

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

Delphi解析FTP地址的方法

2016年07月29日 62 阅读

本文实例讲述了Delphi解析FTP地址的方法。分享给大家供大家参考。具体实现方法如下：procedure TForm1.FTPAnalysis（S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList）;var i,j:integer; strAuthorization,strAddr,strDirFile:string; //授权信息begin UserName:...

Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法

2016年07月29日 80 阅读

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

Delphi实现截屏存盘的方法

2016年07月29日 66 阅读

本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下：该实例可实现截取屏幕，并保存为JPEG文件格式的功能。procedure TForm1.ScreenCap（LeftPos,TopPos,RightPos,BottomPos:integer）;var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; Bitmap:TBitmap; MyJpeg: T...

Delphi基本图像处理方法汇总

2016年07月29日 104 阅读

本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下：//浮雕procedure Emboss（SrcBmp,DestBmp:TBitmap;AzimuthChange:integer）;overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin for i := 0 to ...