Question

DELPHI编程

输入两个正整数M和N(M<N),按计算键按钮后，程序求M-N之间所有能被3整除的数，并将它在memo窗口中显示

Answer 1

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．caption：ΚFormatFloat（′＃′，524667500）。

4．在编译时获得提示。

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

　　｛＄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\forest．bmp′）；

　　Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；

　　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，convertDOStimetoTDateTimeforuseinDelphi′snativedate／timefunctions

　　Result：ΚFileDateToDateTime（dft）；

　　end；

　　end；

　　GetFileLastAccessTime（）将会以Delphi的TdateTime格式返回你所指定的文件的最后访问日期。