Delphi
MuteG
资深码农
展开
-
IdSMTP发送邮件简例
首先要往窗口上放两个组件:IdSMTP(在Indy Clients标签下),IdMessage(在Indy Misc标签下)var body : TStringList;begin body := TStringList.Create; body.Add(test); //正文 IdMessage1.Body := body; IdMessage1.From.Address :原创 2007-03-12 11:27:00 · 5511 阅读 · 2 评论 -
CreateProcess函数详解
CreateProcess说明:WIN32API函数CreateProcess用来创建一个新的进程和它的主线程,这个新进程运行指定的可执行文件。函数原型:BOOL CreateProcess( LPCTSTR lpApplicationName, LPTSTR lpCommandLine, LPSECURITY_ATTRIBUTES lpPro转载 2007-09-05 11:48:00 · 12592 阅读 · 2 评论 -
Delphi中TXMLDocument控件的用法
Delphi中对XML文件的解析做的很好,比直接使用MS的MSXML2_TLB中的接口要方便很多,现称述于下面。 在讲之前先给出一个XML实例,在讲某些部分是要结合实例比较容易理解。1 2 3 4 5 6 78 9 Hello! I am yaya! 10 11 TXMLDocument控件提供了我们两种常用做法:一、直接用这个类封装的属性和转载 2007-10-19 08:49:00 · 952 阅读 · 0 评论 -
delphi如何获得当前操作系统语言环境
function GetWindowsLanguage: string; var WinLanguage: array [0..50] of char; begin VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50); Result := StrPas(WinLanguage); end;转载 2007-10-24 16:39:00 · 3505 阅读 · 0 评论 -
Delphi下常用转换
作者:lyboy99 e-mail:lyboy99@sina.com url: http://hnh.126.com给大家提供几个常用的转换方法和其转换函数希望可以对你有帮助1.HEX -> Integer2.2.Dec To HEX3.ASCII to HEX / math4.Binary to decimal=====================================转载 2007-10-30 14:53:00 · 1080 阅读 · 0 评论 -
Delphi常见图象格式转换技术
作者:lyboy99 e-mail:lyboy99@sina.com url: http://hnh.126.com给大家提供几个常用的图象格式转换方法和其转换函数希望可以对你有帮助1. ICO图标转换BMP格式2. 32x32 BMP格式图象转换为 ICO格式3.转换BMP->JPEG文件格式4.JPEG 转换为BMP函数5.Bmp转换为JPEG文件格式函数---------------转载 2007-10-30 14:55:00 · 904 阅读 · 0 评论 -
24bits bitmap 文件到256色bitmap 的转换
{**********************************************************}{ }{ 图象转换处理单元转载 2007-10-30 14:57:00 · 1171 阅读 · 0 评论 -
DELPHI下API简述
DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 auxOutMessage API 向输出设备发送消息 auxSetVolume API 设置附属设备卷 AbortDoc AP转载 2007-10-16 10:52:00 · 2757 阅读 · 0 评论 -
Delphi常见图象格式转换技术(二)
作者:lyboy99 e-mail:lyboy99@sina.com url: http://hnh.126.com给大家提供几个常用的图象格式转换方法和其转换函数希望可以对你有帮助1.TxT 转换为 GIF2.WMF格式转换为BMP格式3.BMP格式转换为WMF格式4.TBitmaps to Windows Regions-------------------------------转载 2007-10-30 14:56:00 · 3305 阅读 · 0 评论 -
Delphi中的消息钩子函数和Windows子类处理 入门篇
首先感谢各位老鸟这么久以来对小弟那么多的指导,给小弟提供N多的帮助,所以才能让我的第一篇技术文章可以这么快和大家见面!也趁今天是小弟20岁生日呵呵,没人给我庆祝,所以写篇文章做个纪念,也祝我自己生日快乐! ^o^ 小弟我学习Delphi算起来也有半年时间,看到网上很多朋友对HOOK非常的感兴趣。所以即兴写了一篇文章,在CSDN里小弟曾经发过一篇《Delphi的MU窗口代码》转载 2007-10-16 10:05:00 · 1518 阅读 · 0 评论 -
带鼠标图形的截屏源码
http://www.codesky.net/article/doc/200308/2003081880503855.htm试试这个吧,不过鼠标位置可能会有几个像素的偏差unit MyGraph;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,jpeg ,Regi转载 2007-12-11 17:19:00 · 1255 阅读 · 0 评论 -
Delphi代码优化
撰文/杜嵩 转载自程序员杂志第四期局部变量 与C不同的是Delphi没有类似register的指示字,无法显式地定义一个寄存器变量,因为Delphi编译器已将这一步智能化了。有些局部变量会 被自动化为寄存器变量,当然到底是哪些变量,Delphi内部是有自己的标准的,一般来说,被引用的较多的变量总是能被优化。而全局变量则无此好处。当然 也有例外,以简单变量为元素的数组,作为全局变量转载 2008-01-21 09:44:00 · 937 阅读 · 0 评论 -
Delphi 的RTTI机制浅探(续)
http://www.delphibbs.com/delphibbs/dispq.asp?LID=2421470 本文是《Delphi 的RTTI机制浅探》的续篇,上篇地址在: http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610本文上篇基本上是 RTTI 入门介绍,续篇介绍了所有 TypInfo.pas转载 2009-12-01 10:44:00 · 1053 阅读 · 0 评论 -
IncludeTrailingPathDelimiter和ExcludeTrailingPathDelimiter
IncludeTrailingPathDelimiter(const S:String):String和IncludeTrailingBackslash是同样功能,不过根据delphi的帮助,我们现在应该使用IncludeTrailingPathDelimiter才对,前者只是为了向前兼容才保留的这个函数是将参数S提供的一个表示路径的末尾加上“/”符(如果是unix系统,则加上“/”)Excl原创 2007-08-31 17:43:00 · 6515 阅读 · 0 评论 -
delphi开发WebService简例
本文介绍的是如何用Delphi6开发Web Service程序,并把服务程序放在IIS Web服务器上提供给各种客户程序调用。一编写服务程序第一步:File----->New----->Other------>WebServices----->Soap Server Application选择ISAPI/NSAPI Dynamic Link Library然后确定。生成一个框架。后面的大部分原代码转载 2007-05-29 13:18:00 · 9614 阅读 · 0 评论 -
获得系统语种等信息
function TForm1.GetLocaleInformation(Flag: Integer): String; var pcLCA: Array[0..20] of Char; begin if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19)转载 2007-05-21 10:16:00 · 978 阅读 · 0 评论 -
利用Indy组件进行MD5验证简例
需要引用的单元:IdHashMessageDigest 和 IdHash (不知道对应那个组件,我是直接在uses里引用的)代码简例:var md5 : TIdHashMessageDigest5; longWordRec : T4x4LongWordRecord;begin md5 := TIdHashMessageDigest5.Create; longWordRec:=md5.Has原创 2007-03-13 15:43:00 · 1732 阅读 · 0 评论 -
ShellExecute函数简单说明
平时在delphi写代码的过程中总是能遇到ShellExecute函数,于是索性将它的用法整理一下,因为我在微软的网站上也没能查到个详细解释(当然我查的中文版,俺菜嘛)ShellExecute函数原型及参数含义如下: function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; Show原创 2007-03-21 17:06:00 · 3237 阅读 · 0 评论 -
程序间利用ParamStr函数传递数据
最近在看代码的过程中,发现了一个让两个应用程序间传值的方法,就是利用ParamStr函数。用法很简单,就是在源程序使用ShellExecute函数调用目标程序,并在ShellEcecute函数的Parameters参数写入想传递的的值(这个参数就是命令行参数,如果有多个值的话,每个值之间用空格隔开)然后在目标程序中用ParamStr函数获取命令行参数,比如想获得第一个参数,就用ParamStr(1原创 2007-03-27 09:54:00 · 1698 阅读 · 0 评论 -
保证系统中只运行当前程序的一个进程
在学习代码的过程中,遇到了这样一个问题:一个程序,在需求上只允许产生一个进程,即不可重复运行,于是就产生了如何保证系统中只有一个进程存在的问题。这个问题网上的代码很多,不过都是一个解决办法,就是当程序二次运行的时候,如果发现系统中已经存在进程,则退出运行。不过我做的练习想实现另一种保持单例的方法,就是每次运行都杀掉那个老的进程,让新进程生成,虽然这个做法似乎通用性不好,不过在一些特殊情况还是有用的原创 2007-03-27 18:09:00 · 2262 阅读 · 0 评论 -
在Delphi中获取和修改文件的时间
首先注明,这篇文章是我在CSDN查找相关资料的时候,在一个帖子里面看到的,因此无法获知原出处了,希望原作者不要怪罪。。。 本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文转载 2007-07-05 16:27:00 · 4915 阅读 · 1 评论 -
WINDOWS编程技巧之DELPHI篇
WINDOWS编程技巧之DELPHI篇 本文由lanyus收集整理,文中技术来源网络,部分摘自《奇思异想编程之DELPHI篇》,转载请注明此处。 ///* lanyus QQ:231221 greathjw@163.com *///一、隐藏任务栏在WINDOWS中,系统的任务栏本质上也是一个窗口,其窗口类名为“Shell_TrayWnd"。要实现对它的操作,可通过AP转载 2007-07-05 16:43:00 · 2078 阅读 · 0 评论 -
DBGridEh列宽自动适应内容的简单方法
最近遇到了一个问题,就是使用DBGridEh的时候,查询出的信息总是不能很完美的显示(完美……)主要现象就是 DBGridEh属性中提供的选项有AutoFitColWidths这个属性设置成true的话,整个表格会根据你的程序窗口大小来分配每个列的宽度,从而不会出现横向滚动条,看似很漂亮,不过我要的可不是这个……如果设置成false,整个表格难看到让人想吃掉显示器!(夸张了)表格的列宽是按照数据库原创 2007-07-10 14:58:00 · 10916 阅读 · 0 评论 -
Delphi中怎么将实数取整?
floor 和 ceil 是 math unit 里的函数,使用前要先 Uses Math。 trunc 和 round 是 system unit 里的函数,缺省就可以用。 floor 直接往小的取,比如 floor(-123.55)=-124,floor(123.55)=123 trunc 直接切下整数,比如 trunc(-123.55)=-123, floor(123.转载 2007-04-16 14:52:00 · 2336 阅读 · 0 评论 -
代码页对照表
Charset Win32 Codepage Comment us-ascii 1252 is转载 2007-04-26 15:06:00 · 2630 阅读 · 0 评论 -
文本编码格式转换问题[整理帖]
这几天正好遇到这个问题,需要看日文文档,但是在中文环境下是乱码,总是切换语言环境也太麻烦了,干脆想了这个办法,自己写一个转换编码格式的小软件,当然很多技术难点是在csdn找到的,我只是照葫芦画瓢罢了代码作者:linzhengqun(风。我回来了)下面是相关源码:1.实现任意多字节语言与Unicode的转换: function UnicodeEncode(Str: str转载 2007-04-26 15:38:00 · 3055 阅读 · 0 评论 -
Delphi format的用法
Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译 ,让它有一个完整的概貌,以供大家查询之用:首先看它的声明: function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它转载 2007-04-30 15:08:00 · 2681 阅读 · 0 评论 -
先人的DELPHI基础开发技巧
先人的DELPHI基础开发技巧整理:房客 来源:大富翁论坛◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现转载 2007-04-30 16:26:00 · 1392 阅读 · 0 评论 -
Delphi 的RTTI机制浅探
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610 目录===============================================================================⊙ RTTI 简介⊙ 类(class) 和 VMT 的关系⊙ 类(class)、类的类(cl转载 2009-12-01 10:42:00 · 797 阅读 · 0 评论