当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: function GetVersion(sFile: strin
 

 

 ·delphi编程实现ping操作     »显示摘要«
    摘要:在delphi中使用tidicmpclient控件可以非常简单的实现图形界面的ping!新建一个工程,命名为pinggui.dpr,窗口命名为“frmping”,加入如下组件: lstreplies: tlistbox; icmp: tidicmpclient; panel1: tpanel; btnping: tbutton; edthost: tedit; spnpin......
    摘要:三层数据库与应用程序服务器的小型介绍(delphi&bcb) 作者:曾牧暗鲨 2002年 本鲨花了10元买了两张电子书数据库类,和100元三本c++builder5高级编程技术 <<database与midas编程>><<ide与opp编程>><<com,corba与internet编程>>徐新华 人民邮电出版社学......


function GetVersion(sFile: string; bIncludeBuild: boolean): string;
function getversion(sfile: string; bincludebuild: boolean): string;

var 【程序编程相关:在Delphi中利用CreateRemo

【推荐阅读:在Delphi中使用CreateOleO

  dwfvw, dwzero, dwvsf: dword; 【扩展信息:Delphi中编写OwnerDraw方式

  major, minor, release, build: dword;

  pfvw: pchar;

  pvsf: pvsfixedfileinfo;

  s: string;

begin

  result := ;

  // attempt to read version info size

  dwfvw := getfileversioninfosize(pchar(sfile), dwzero); // exit on error

  if dwfvw <> 0 then begin

    getmem(pfvw, dwfvw);

    try // exit if unable to retrieve version info

      if (getfileversioninfo(pchar(sfile), dwzero, dwfvw, pfvw)) then begin // get the build value

        if (verqueryvalue(pfvw, \, pointer(pvsf), dwvsf)) then begin

          if ((pvsf^.dwfileflags and vs_ff_prerelease) > 0) then begin


...   下一页
    摘要:以下内容转自:http://www.drbob42.com/examines/examin55.htm delphi 8 for .net assemblies; packages and librariesin this article, bob swart will explain what .net assemblies are, how we can use them in delphi......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE