当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: function GetAppVersion:String;
 

 

 ·自制thyperlink组件    »显示摘要«
    摘要:成都市八二信箱 王乐   很多软件在其about窗口或help菜单中,可让用户通过单击一段文字就能方便地访问某个网页。比如,delphi的help中就有可直接访问该公司主页的菜单项。下面介绍的thyperlink组件是用delphi3.0编制的,可方便地实现上述功能。 thyperlink是基于tcustomlabel组件的,它有以下特性: 属性:   普通label组件的所有特性,......
    摘要:在dbgrid的ondrawdatacell事件下写: procedure tform1.dbgrid1drawdatacell(sender: tobject; const rect: trect; field: tfield; state: tgriddrawstate); begin if table1.fieldbyname(partno).asfloat > 2500 ......


取应用程式的版本号
function getappversion:string;

{取应用程式的版本号程式,如有版本号,返回值为版本号的值,否则返回值为空 【程序编程相关:修改记录字段值时错误Row cannot

【推荐阅读:支持自绘画的属性编辑器

返回值的格式为如1.0.0.0 【扩展信息:如何制作照片底片效果的图像(即反色)

胡国荣 2000/11/04 }

  function getfileversion(filename: string): string;

  type

    pverinfo = ^tvs_fixedfileinfo;

    tvs_fixedfileinfo = record

      dwsignature: longint;

      dwstrucversion: longint;

      dwfileversionms: longint;

      dwfileversionls: longint;

      dwfileflagsmask: longint;

      dwfileflags: longint;

      dwfileos: longint;

      dwfiletype: longint;

      dwfilesubtype: longint;

      dwfiledatems: longint;

      dwfiledatels: longint;

    end;

  var


...   下一页
 ·用delphi制作录音程序    »显示摘要«
    摘要:delphi是inprise(前borland)公司的优秀的可视化编程工具,它自带的mediaplayer控件是开发多媒体的利器。用它几分钟就可以做出一个象解霸一样可以播放多媒体文件的程序来。但可能很少人知道,用它也可以做一个录音程序。 运行delphi,在system页拖一个mediaplayer控件到窗体上,默认名为mediaplayer1。由于我们的程序是采用自己的按钮,所以将media......
» 本期热门文章:

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