Delphi编程技巧十则(2)

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．PopupCom
ponent．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；

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有