Delphi编程技巧十则

作者：裔隽来源：未知添加时间：2006-5-21 11:17:52

　　Delphi作为一门新起的Windows编程语言，由于其集众多的优秀特性于一身，因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能够对Delphi的爱好者有所裨益。
　　1．类似于vb．中的doevents功能。
　　大家或许发现，在Delphi中没有类似于vb．中的doev
　　ents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括类似的一个方法：ProcessMessage，你可以通过调用Application．ProcessMessage来完成象vb．中的doeve
　　nts一样的功能。
　　2．在Delphi中调用NetscapeNavigator。
　　随着Internet的火爆，有没有想过在你的Delphi程序中启动Netscape浏览器，显示出你指定的WWW地址的主页。下面这个程序能够完成这一功能。
　　programNetscape；
　　usesDDEMan；
　　procedureGotoURL（sURL：string）；
　　var
　　dde：TDDEClientConv；
　　begin
　　dde：ΚTDDEClientConv．Create（nil）；
　　withddedo
　　begin
　　／／specifythelocationofnetscape．exe
　　ServiceApplication：Κ′c：ιns32ιprogramιne
tscape．exe′；
　　／／activatetheNetscapeNavigator
　　SetLink（′Netscape′，′WWW—Activate′）；
　　RequestData（′0xFFFFFFFF′）；
　　／／gotothespecifiedURL
　　SetLink（′Netscape′，′WWW—OpenURL′）；
　　RequestData（sURL＋′，，0xFFFFFFFF，0x3，，，
′）；
　　CloseLink；
　　end；
　　dde．Free；
　　end；
　　begin
　　GotoURL（′http：／／www．yahoo．com／′）；
　　end．
　　3．格式化整数输出。
　　比较大的数字在输出时会显得不易阅读，在Delphi中显示带分节号的数字是相当简单的一件事，如下即可：xx
　　xxx．caption：ΚFormatFloat（′＃′，524667500）。
　　4．在编译时获得提示。
　　在Delphi2．0中，编译时，可以让编译器告诉你一些提示，比如哪些变量声明了，却从来没有使用过。我们知道，可以通过菜单中的选项来控制是否要Delphi这样做，但如果由于一些特殊需要，你只要在指定的代码段需要De
　　lphi这样的提示，怎么办呢？请参考如下的程序。
　　｛＄HINTON｝
　　procedureTform1．Button1Click（Sender：TObject）；
　　var
　　X：integer；
　　begin
　　end；
　　｛＄HINTOFF｝
　　5．更改Windows95的墙纸。
　　在Delphi中你可以很方便地更改墙纸，请参考以下的程序。
　　procedureChangeIt；
　　var
　　Reg：TregIniFile；
　　begin
　　Reg：ΚTRegIniFile．Create（′ControlPanel′）；
　　Reg．WriteString（′desktop′，′Wallpaper′，
′c：ιpwin95ιforest．bmp′）；
　　Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；
　　Reg．Free；
　　SystemParametersInfo（SPI—SETDESKWALLPAPER，0
，nil，SPIF—SENDWININICHANGE）；
　　end；
　　6．获得最后使用文件的日期。
　　在Win95中有一项新的功能，就是可以获得访问文件的最后日期。著名的CleanSweapforWin95软件中就是靠这
一功能来作为判断某个文件是否被经常访问的依据之一。在Delphi中，我们可以通过下面的程序来达到此功能。
　　functionGetFileLastAccessTime（sFileName：stri
ng）：TDateTime；
　　var
　　ffd：TWin32FindData；
　　dft：DWord；
　　lft：TFileTime；
　　h：THandle；
　　begin
　　／／getfileinformation
　　h：ΚWindows．FindFirstFile（PChar（sFileName
），ffd）；
　　if（INVALID—HANDLE—VALUEΙΛh）then
　　begin
　　／／we′relookingforjustonefile，socloseour″f
ind″
　　Windows．FindClose（h）；
　　／／converttheFILETIMEtolocalFILETIME
　　FileTimeToLocalFileTime（ffd．ftLastAccessTime
，lft）；
　　／／convertFILETIMEtoDOStime
　　FileTimeToDosDateTime（lft，LongRec（dft）．Hi
，LongRec（dft）．Lo）；
　　／／finally，convertDOStimetoTDateTimeforusein
Delphi′snativedate／timefunctions
　　Result：ΚFileDateToDateTime（dft）；
　　end；
　　end；
　　GetFileLastAccessTime（）将会以Delphi的TdateTime格式返回你所指定的文件的最后访问日期。
　　7．丰富多彩的标签。
　　我们已经不满足于Delphi提供的简单的标签，能不能在标签中有不同的字体，有不同的颜色，以此来丰富我们
的表现能力。回答是肯定的，并且用不着第三方提供的控件，我们只要巧妙的利用Delphi自己提供的TRichEdit就
可以了。首先将TRichEdit控件的边框去除：RichEdit1．BorderStyle：ΚbsNone；同时设置只读属性为真：Rich
Edit1．ReadOnly：ΚTrue；然后，你利用write之类的软件制作好RichText格式的文本，通过以下语句就可以显
示出来了：
　　RichEdit1．PlainText：ΚFalse；
　　RichEdit1．Lines．LoadFromFile（′c：ιtest．r
tf′）；
　　8．如何防止Win95显示严重错误。
　　不管你的程序如何反复调试，交给用户之后，总有可能发生你意想不到的错误，如何避免Win95显示出白色的
窗口，告诉你的用户发生了难堪的意外错误呢？我们可以这样做：
　　var
　　wOldErrorMode：Word；
　　begin
　　／／tellwindowstoignorecriticalerrorsandsave
currenterrormode
　　wOldErrorMode：ΚSetErrorMode（SEM—FAILCR
ITICALERRORS）；
　　try
　　／／codethatmightgenerateacriticalerrorgoesher
e．．．
　　finally
　　／／gobacktopreviouserrormode
　　SetErrorMode（wOldErrorMode）；
　　end；
　　end；
　　主要是利用SetErrorMode（）来完成这一功能。
　　9．刚才用鼠标击了哪一个对象。
　　在Win95中，鼠标的右键起到了很大的作用，但是，由于历史的原因，对于右键的使用即使在Delphi中，也还
不够有效，下面的程序可以告诉你如何知道刚才鼠标右击的对象名称。首先建立一个popmenu，然后以下的代码就可
以告诉你刚才右击的对象名称：PopupMenu1．PopupComponent．ClassName。
　　10．检测CD－ROM或是其他磁盘是否有过变化。
　　最简单的检查CD－ROM或是磁盘是否有过变化的方法是检查其volume号码。你可以简单地运用下面的函数来返
回磁盘的volume系列号码GetDiskVolSerialID（′E′），函数代码如下：
　　functionGetDiskVolSerialID（cDriveName：char）
：DWord；
　　var
　　dwTemp1，dwTemp2：DWord；
　　begin
　　GetVolumeInformation（PChar（cDriveName＋′：
ι′），
　　Nil，
　　0，
　　ΝResult，
　　dwTemp2，
　　dwTemp2，
　　Nil，
　　0）；
　　end；
作者：

上一篇：Delphi中的图形显示技巧
下一篇：Delphi3.0中复活节彩蛋及实现

站内搜索