Delphi編程技巧十則

2019-11-18 18:57:31

字體：大中小

供稿：網(wǎng)友

Delphi作為一門新起的Windows編程語言，由于其集
眾多的優(yōu)秀特性于一身，因而越來越得到廣大編程人員和
發(fā)燒友的青睞。以下十則技巧涉及的面比較廣泛，希望能
夠?qū)elphi的愛好者有所裨益。

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

　　大家或許發(fā)現(xiàn)，在Delphi中沒有類似于vb．中的doev
ents函數(shù)，這樣有的時候，我們將無法使Windows響應多
個同時發(fā)生的事件。其實，在Delphi的applica??tion對象
中包括類似的一個方法：PRocessMessage，你可以通過調(diào)
用application．ProcessMessage來完成象vb．中的doeve
nts一樣的功能。

　　2．在Delphi中調(diào)用NetscapeNavigator。

　　隨著Internet的火爆，有沒有想過在你的Delphi程序
中啟動Netscape瀏覽器，顯示出你指定的WWW地址的主頁
。下面這個程序能夠完成這一功能。

　　programNetscape；

　　usesDDEMan；

　　procedureGo??toURL（sURL：string）；

　　var

　　dde：TDDEClientConv；

　　begin

　　dde：ΚTDDEClientConv．Create（nil）；

　　withddedo

　　begin

　?。痵pecifythelocationofnetscape．exe

　　ServiceApplication：Κ′c：ιns32ιprogramιne
tscape．exe′；

　?。痑ctivatetheNetscapeNavigator

　　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．格式化整數(shù)輸出。

　　比較大的數(shù)字在輸出時會顯得不易閱讀，在Delphi中
顯示帶分節(jié)號的數(shù)字是相當簡單的一件事，如下即可：xx
xxx．caption：ΚFormatFloat（′?！?，524667500）。

　　4．在編譯時獲得提示。

　　在Delphi2．0中，編譯時，可以讓編譯器告訴你一些
提示，比如哪些變量聲明了，卻從來沒有使用過。我們知
道，可以通過菜單中的選項來控制是否要Delphi這樣做，
但如果由于一些特殊需要，你只要在指定的代碼段需要De
lphi這樣的提示，怎么辦呢？請參考如下的程序。

　?。鏗INTON｝

　　procedureTform1．Button1Click（Sender：TObject
）；

　　var

　　X：integer；

　　begin

　　end；

　?。鏗INTOFF｝

　　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軟件中就是靠這
一功能來作為判斷某個文件是否被經(jīng)常訪問的依據(jù)之一。
在Delphi中，我們可以通過下面的程序來達到此功能。

　　functionGetFileLast accessTime（sFileName：stri
ng）：TDate??Time；

　　var

　　ffd：TWin32FindData；

　　dft：DWord；

　　lft：TFileTime；

　　h：THandle；

　　begin

　?。痝etfileinformation

　　h：ΚWindows．FindFirstFile（PChar（sFileName
），ffd）；

　　if（INVALID―HANDLE―VALUEΙΛh）then

　　begin

　?。痺e′relookingforjustonefile，socloSEOur″f
ind″

　　Windows．FindClose（h）；

　?。痗onverttheFILETIMEtolocalFILETIME

　　FileTimeToLocalFileTime（ffd．ftLastAccessTime
，lft）；

　　／／convertFILETIMEtoDOStime

　　FileTimeToDosDateTime（lft，LongRec（dft）．Hi
，LongRec（dft）．Lo）；

　?。痜inally，convertDOStimetoTDateTimeforusein
Delphi′snativedate／timefunctions

　　Result：ΚFileDateToDateTime（dft）；

　　end；

　　end；

　　GetFileLastAccessTime（）將會以Delphi的TdateTi
me格式返回你所指定的文件的最后訪問日期。

　　7．豐富多彩的標簽。

　　我們已經(jīng)不滿足于Delphi提供的簡單的標簽，能不能
在標簽中有不同的字體，有不同的顏色，以此來豐富我們
的表現(xiàn)能力。回答是肯定的，并且用不著第三方提供的控
件，我們只要巧妙的利用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顯示嚴重錯誤。

　　不管你的程序如何反復調(diào)試，交給用戶之后，總有可
能發(fā)生你意想不到的錯誤，如何避免Win95顯示出白色的
窗口，告訴你的用戶發(fā)生了難堪的意外錯誤呢？我們可以
這樣做：

　　var

　　wOldError??Mode：Word；

　　begin

　?。痶ellwin??dowstoignorecriticalerrorsandsave
cur??renterrormode

　　wOldError??Mode：ΚSetEr??rorMode（SEM―FAILCR
ITI??CALERRORS）；

　　try

　?。痗odethatmightgenerateacriticalerrorgoesher
e．．．

　　finally

　?。痝obacktopreviouserrormode

　　SetErrorMode（wOldErrorMode）；

　　end；

　　end；

　　主要是利用SetErrorMode（）來完成這一功能。

　　9．剛才用鼠標擊了哪一個對象。

　　在Win95中，鼠標的右鍵起到了很大的作用，但是，
由于歷史的原因，對于右鍵的使用即使在Delphi中，也還
不夠有效，下面的程序可以告訴你如何知道剛才鼠標右擊
的對象名稱。首先建立一個popmenu，然后以下的代碼就可
以告訴你剛才右擊的對象名稱：Popup??Menu1．PopupCom
ponent．ClassName。

　　

　　10．檢測CD－ROM或是其他磁盤是否有過變化。

　　

　　最簡單的檢查CD－ROM或是磁盤是否有過變化的方法
是檢查其volume號碼。你可以簡單地運用下面的函數(shù)來返
回磁盤的volume系列號碼GetDiskVolSerialID（′E′），
函數(shù)代碼如下：

　　functionGetDiskVolSerialID（cDriveName：char）
：DWord；

　　var

　　dwTemp1，dwTemp2：DWord；

　　begin

　　GetVolumeInformation（PChar（cDriveName＋′：
ι′），

　　Nil，

　　0，

　　ΝResult，

　　dwTemp2，

　　dwTemp2，

　　Nil，

　　0）；

　　end；

上一篇：在DELPHI2.0/3.0中直接操作端口

下一篇：Delphi程序使用資源的釋放

學習交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注