客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
1．类似于vb．中的doevents功能。 大家或许发现，在Delphi中没有类似于vb．中的doevents函数，这样有的时候，我们将无法使Windows响应多个同时发生的事件。其实，在Delphi的application对象中包括类似的一个方法：ProcessMessage，你可以通过调用Application．ProcessMessage来完成象vb．中的doevents一样的功能。 2．在Delphi中调用NetscapeNavigator。 随着Internet的火爆，有没有想过在你的Delphi程序中启动Netscape浏览器，显示出你指定的WWW地址的主页。下面这个程序能够完成这一功能。 programNetscape； usesDDEMan； procedureGotoURL（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）：TDateTime； 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格式返回你所指定的文件的最后访问日期。 7．丰富多彩的标签。 我们已经不满足于Delphi提供的简单的标签，能不能在标签中有不同的字体，有不同的颜色，以此来丰富我们的表现能力。回答是肯定的，并且用不着第三方提供的控件，我们只要巧妙的利用Delphi自己提供的TRichEdit就可以了。首先将TRichEdit控件的边框去除：RichEdit1．BorderStyle：ΚbsNone；同时设置只读属性为真：RichEdit1．ReadOnly：ΚTrue；然后，你利用write之类的软件制作好RichText格式的文本，通过以下语句就可以显示出来了： RichEdit1．PlainText：ΚFalse； RichEdit1．Lines．LoadFromFile（′c：\test．rtf′）； 8．如何防止Win95显示严重错误。 不管你的程序如何反复调试，交给用户之后，总有可能发生你意想不到的错误，如何避免Win95显示出白色的窗口，告诉你的用户发生了难堪的意外错误呢？我们可以这样做： var wOldErrorMode：Word； begin ／／tellwindowstoignorecriticalerrorsandsavecurrenterrormode wOldErrorMode：ΚSetErrorMode（SEM—FAILCRITICALERRORS）； try ／／codethatmightgenerateacriticalerrorgoeshere．．． finally ／／gobacktopreviouserrormode SetErrorMode（wOldErrorMode）； end； end； 主要是利用SetErrorMode（）来完成这一功能。 9．刚才用鼠标击了哪一个对象。 在Win95中，鼠标的右键起到了很大的作用，但是，由于历史的原因，对于右键的使用即使在Delphi中，也还不够有效，下面的程序可以告诉你如何知道刚才鼠标右击的对象名称。首先建立一个popmenu，然后以下的代码就可以告诉你刚才右击的对象名称：PopupMenu1．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； 摘自《软件世界》 倪天/文 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论