Delphi编程技巧实例

原创 2001年08月03日 22:26:00

Delphi编程技巧实例
倪天
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.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格式返回你所指定的文件的最后访问日期。

7.丰富多彩的标签。

  我们已经不满足于Delphi提供的简单的标签,能不能在标签中有不同的字体,有不同的颜色,以此来丰富我们的表现能力。回答是肯定的,并且用不着第三方提供的控件,我们只要巧妙的利用Delphi自己提供的TRichEdit就可以了。首先将TRichEdit控件的边框去除:RichEdit1.BorderStyle:ΚbsNone;同时设置只读属性为真:RichEdit1.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;
 

Delphi编程技巧

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.t...
  • crystal521
  • crystal521
  • 2005年07月28日 13:50
  • 869

Delphi 编程技巧汇集

 (出处:www.delphibbs.com)
  • gojob_2005
  • gojob_2005
  • 2006年09月05日 20:56
  • 928

071_《Delphi7编程技巧与实例精解》

本书汇编了Delphi中比较经典的60个实便,包括8大部分,即基础知识、图形国像文件系统及Rave报表、开发数据库应用程序、建立跨平台应用程序、建立XML应用程序、高级应用、开发游戏应用程序、综合应用...
  • shuaihj
  • shuaihj
  • 2010年12月12日 17:32
  • 2983

Delphi 编程技巧常见实例问答

1. delphi怎样调用外部EXE文件?   uses WinProcs;   .   begin   WinExec(……);   .   end.     和调用Pascal库函数没什么两样。 ...
  • broker_chengchaoji
  • broker_chengchaoji
  • 2007年03月25日 22:37
  • 441

用Delphi编写CGI程序(三)

用Delphi编写CGI程序(三)   也 许 各 位 读 者 感 到 CGI 程 序 有 一 种 神 秘 感, 在 这 一 部 分 将 讲 述 一 些 关 于 CGI 程 序 的 基 本 编 程 过...
  • zou5655
  • zou5655
  • 2001年07月30日 19:31
  • 633

delphi编程技巧

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.t...
  • g_min
  • g_min
  • 2008年04月29日 11:01
  • 679

深入理解C#:编程技巧总结(一)

深入理解C#:编程技巧总结(一) 1.实现多态性的两种方式:继承抽象类、实现接口其实就是协变的应用,通过把对象向上转型为基类或接口类型,对它调用成员,可实现多态性,即运行时调用的是对应对象的实现版本成...
  • srf4200
  • srf4200
  • 2017年01月09日 22:25
  • 143

DELPHI编程技巧集锦

  • shaoguangleo
  • shaoguangleo
  • 2010年09月07日 08:16
  • 1916

Delphi编程技巧集锦 摘抄

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.t...
  • 2004v2004
  • 2004v2004
  • 2007年07月30日 16:12
  • 619

Delphi数据库编程技巧

  我原来在万千的新闻组(news://news.webking.com.cn/)Delphi版上闲逛那段时间,发现经常有人提出一些数据库方面的技巧性问题,问题其实不难,但是要一个简单的解决方案,可能...
  • y0617
  • y0617
  • 2005年03月04日 21:18
  • 609
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi编程技巧实例
举报原因:
原因补充:

(最多只允许输入30个字)