摘要：function getappversion:string;
{取应用程式的版本号程式，如有版本号，返回值为版本号的值，否则返回值为空
返回值的格式为如1.0.0.0
胡国荣 2000/11/04 }
function getfileversion(filename: string): string;
type
pverinfo = ^tvs_fixedfileinfo;
t......
摘要：成都市八二信箱 王乐
很多软件在其about窗口或help菜单中，可让用户通过单击一段文字就能方便地访问某个网页。比如，delphi的help中就有可直接访问该公司主页的菜单项。下面介绍的thyperlink组件是用delphi3.0编制的，可方便地实现上述功能。
thyperlink是基于tcustomlabel组件的，它有以下特性：
属性：
普通label组件的所有特性，......
Delphi开发中Windows API函数的应用何章梅
【程序编程相关:
安装程序打包interbase的方法
】 【推荐阅读:
[函数]procedure SortDB】
delphi作为快速开发windows95／nt下应用程序的工具,已经为越来越多的开发者采用.但是,如果要开发出专业的windows应用软件,还需要使用大量的windows api函数,以下是笔者开发管理软件中的几个应用实例. 【扩展信息:
支持自绘画的属性编辑器
】
一.判定windows版本
众所周知,windows95／nt某些地方有些差别,为了使应用程序避免出现因为系统不符合而导致的错误,有必要自动判定系统版本.这可以通过api函数getversion实现.
tform1.formcreate(sender:tobject);
var ver:integer;／／版本号 major:integer;／／主版本号 minor:integer;／／次版本号
begin
ver:=getversion();／／获得版本号
major:=ver and 255;／／获得主版本号
minor:=(ver and 255＊256)div 256;
／／获得次版本号
showmessage(‘系统版本号是:’＋inttostr(ver));
／／显示版本号
showmessage(‘系统主版本号是:＋inttostr(major));／／显示主版本号
...
下一页 摘要：在dbgrid的ondrawdatacell事件下写：
procedure tform1.dbgrid1drawdatacell(sender: tobject; const rect: trect;
field: tfield; state: tgriddrawstate);
begin
if table1.fieldbyname(partno).asfloat > 2500 ......
