引言: 作者: 周勇
如果您是一位局域网的系统管理员的话,肯定要经常对连接在局域网中的各个工作组进行管理和维修,并对每一台工作组建立相关的信息档案,以后只要根据这些档案信息就知道对应的工作组的运行情况,从而可以大大提高管理的效率了。
摘要:何章梅
delphi作为快速开发windows95/nt下应用程序的工具,已经为越来越多的开发者采用。但是,如果要开发出专业的windows应用软件,还需要使用大量的windows api函数,以下是笔者开发管理软件中的几个应用实例。
一、判定windows版本
众所周知,windows95/nt某些地方有些差别,为了使应用程序避免出现因为系统不符合而导致的错误,有必要自动判定系统版......
摘要:function getappversion:string;
{取应用程式的版本号程式,如有版本号,返回值为版本号的值,否则返回值为空
返回值的格式为如1.0.0.0
胡国荣 2000/11/04 }
function getfileversion(filename: string): string;
type
pverinfo = ^tvs_fixedfileinfo;
t......
DELPHI在局域网中的一则应用作者: 周勇
【程序编程相关:
Fastreport3.14的中文PDF】 【推荐阅读:
揭开Outlook Express编辑器】
如果您是一位局域网的系统管理员的话,肯定要经常对连接在局域网中的各个工作组进行管理与维修,并对每一台工作组建立相关的信息档案,以后只要根据这些档案信息就知道对应的工作组的运行情况,从而可以大大提高管理的效率了.此时,可能有人说,要查看这些工作组的信息,不是还要一台一台地打开.一台一台地查看吗?的确,如果还是这样操作的话,工作效率肯定还是不会提高,那么我们有没有办法同时获取局域网中的每一台工作组的信息呢?答案当然是肯定的,我们可以使用delphi中的win api来获取局域网中的每一台工作组的信息,下面是获取工作组信息的源代码: 【扩展信息:
[函数]procedure SortDB】
function getserverlist( var list : tstringlist ) : boolean;
var //显示所有工作组的名称
netresource : tnetresource;
buf : pointer;
count,bufsize,res : dword;
lphenum : thandle;
p : tnetresourcearray;
i,j : smallint;
networktypelist : tlist; //返回局域网中的工作组名称
begin
result := false;
networktypelist := tlist.create;
list.clear;
//获取整个网络中的文件资源的句柄,lphenum为返回名柄
res := wnetopenenum( resource_globalnet, resourcetype_disk, resourceusage_container, nil,lphenum);
if res <> no_error then exit;//raise exception(res);//执行失败
//获取整个网络中的网络类型信息 ...
下一页 摘要:成都市八二信箱 王乐
很多软件在其about窗口或help菜单中,可让用户通过单击一段文字就能方便地访问某个网页。比如,delphi的help中就有可直接访问该公司主页的菜单项。下面介绍的thyperlink组件是用delphi3.0编制的,可方便地实现上述功能。
thyperlink是基于tcustomlabel组件的,它有以下特性:
属性:
普通label组件的所有特性,......