dephi编程经典实例

Delphi作为一门新起的Windows编程语言，由于其集众多的优秀特性于一身，因而越来越得　　　到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能够对Delphi的　　　爱好者有所裨益。

　　　　　1．类似于vb．中的doevents功能。

　　　　　大家或许发现，在Delphi中没有类似于vb．中的doevents
　　　函数，这样有的时候，我们将无法使Windows响应多
　　　个同时发生的事件。其实，在Delphi的application对象
　　　中包括类似的一个方法：ProcessMessage，你可以通过调
　　　用Application．ProcessMessage来完成象vb．中的doevents
　　　一样的功能。

　　　　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ιnetscape．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中
　　　显示带分节号的数字是相当简单的一件事，如下即可：xxxxx．
c　　　aption：ΚFormatFloat（′＃′，524667500）。

　　　　　4．在编译时获得提示。

　　　　　在Delphi2．0中，编译时，可以让编译器告诉你一些
　　　提示，比如哪些变量声明了，却从来没有使用过。我们知
　　　道，可以通过菜单中的选项来控制是否要Delphi这样做，
　　　但如果由于一些特殊需要，你只要在指定的代码段需要Delphi
　　　这样的提示，怎么办呢？请参考如下的程序。

　　　　　｛＄HINTON｝

　　　　　procedureTform1．Button1Click（Sender：TObject）；

　　　　　var

　　　　　X：integer；

　　　　　begin

　　　　　end；

　　　　　Reg．WriteString（′desktop′！洌?′）；

　　　　　Reg．Free；

　　　　　SystemParametersInfo（SPI—SETDESKWALLPAPER，0
，　　　nil，SPIF—SENDWININICHANGE）；

　　　　　end；

　　　　　6．获得最后使用文件的日期。

　　　　　在Win95中有一项新的功能，就是可以获得访问文件
　　　的最后日期。著名的CleanSweapforWin95软件中就是靠这
　　　一功能来作为判断某个文件是否被经常访问的依据之一。
　　　在Delphi中，我们可以通过下面的程序来达到此功能。

　　　　　functionGetFileLastAccessTime（sFileName：string）：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″find″

　　　　　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；同时设置只读属性为真：RichEdit1．
　　　ReadOnly：ΚTrue；然后，你利用write之类的
　　　软件制作好RichText格式的文本，通过以下语句就可以显
　　　示出来了：

　　　　　RichEdit1．PlainText：False；

　　　　　RichEdit1．Lines．LoadFromFile（′c：ιtest．rtf′）；

　　　　　8．如何防止Win95显示严重错误。

　　　　　不管你的程序如何反复调试，交给用户之后，总有可
　　　能发生你意想不到的错误，如何避免Win95显示出白色的
　　　窗口，告诉你的用户发生了难堪的意外错误呢？我们可以
　　　这样做：

　　　　　var

　　　　　wOldErrorMode：Word；

　　　　　begin

　　　　　／／tellwindowstoignorecriticalerrorsandsavecurrenterrormode

　　　　　wOldErrorMode：SetErrorMode（SEM—FAILCRITICALERRORS）；

　　　　　try

　　　　　／／codethatmightgenerateacriticalerrorgoeshere．．．

　　　　　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；