当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: 作者: 周勇 如果您是一位局域网的系统管理员的话,肯定要经常对连接在局域网中的各个工作组进行管理和维修,并对每一台工作组建立相关的信息档案,以后只要根据这些档案信息就知道对应的工作组的运行情况,从而可以大大提高管理的效率了。
 

 

    摘要:何章梅 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);//执行失败

//获取整个网络中的网络类型信息


...   下一页
 ·自制thyperlink组件    »显示摘要«
    摘要:成都市八二信箱 王乐   很多软件在其about窗口或help菜单中,可让用户通过单击一段文字就能方便地访问某个网页。比如,delphi的help中就有可直接访问该公司主页的菜单项。下面介绍的thyperlink组件是用delphi3.0编制的,可方便地实现上述功能。 thyperlink是基于tcustomlabel组件的,它有以下特性: 属性:   普通label组件的所有特性,......
» 本期热门文章:

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