当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: 如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机
 

 

 ·delphi如何实现文件关联    »显示摘要«
    摘要:关联是windows的一个显著特性。比如安装了office后,后缀是.doc的文 件会和word关联在一起。如果我们想自己创建关联关系,就必须从注册表入手。下 面的代码会把后缀是.me的文件和notepad关联在一起,请参阅: procedure tform1.button1click(sender: tobject); var lphkey: hkey; skeyname: string;......
 ·远程程序运行状态的简单监控    »显示摘要«
    摘要:民航中南空管局气象中心数据库室 欧壮杰 我们知道,在unix操作系统中,远程主机命令行程序的运行和进程的关闭可通过telnet来实现,当客户机装有x-windows时,可以运行远程主机图形界面的程序且界面显示在客户机上,相当于延长了远程主机显示屏的距离。但windows产品在windows2000以前只有一个叫“八爪鱼”的不成熟第三方产品可实现该功能。随着windows2000的发布,终端服务......


动态取得网络邻居的工作组和计算机名
如何在程序中动态取得win95/98的网络邻居中的工作组及计算机名?  

可参考下面代码,或许有所帮助:   【程序编程相关:Delphi中高级DLL的编写和调用

【推荐阅读:用Delphi在客户端执行Unix主机命

procedure getdomainlist(tv:ttreeview);   【扩展信息:Delphi中实现让TListView接

var  

a : integer;  

errcode : integer;  

netres : array[0..1023] of tnetresource;  

enumhandle : thandle;  

enumentries : dword;  

buffersize : dword;  

s : string;  

itm : ttreenode;  

begin  

{ start here }  

try  

with netres[0] do begin  

dwscope :=resource_globalnet;  

dwtype :=resourcetype_any;  

dwdisplaytype :=resourcedisplaytype_domain;  

dwusage :=resourceusage_container;  

lplocalname :=nil;  

lpremotename :=nil;  

lpcomment :=nil;  

lpprovider :=nil;  

end;  

{ get net root }  

errcode:=wnetopenenum(  

resource_globalnet,  

resourcetype_any,  

resourceusage_container,  

@netres[0],  

enumhandle  

);  

if errcode=no_error then begin  

enumentries:=1;  

buffersize:=sizeof(netres);  

errcode:=wnetenumresource(  

enumhandle,  

enumentries,  

@netres[0],  

buffersize  

);  

wnetcloseenum(enumhandle);  

errcode:=wnetopenenum(  

resource_globalnet,  

resourcetype_any,  

resourceusage_container,  

@netres[0],  

enumhandle  

);  

enumentries:=1024;  

buffersize:=sizeof(netres);  

errcode:=wnetenumresource(  


...   下一页
 ·得到win9x里缓存中的密码    »显示摘要«
    摘要:program getpass; ........ type ... listbox: tlistbox; procedure getpasswords; ....... end; const count: integer = 0; function wnetenumcachedpasswords(lp: lpstr; w: word; b: byte; pc: pchar;......
» 本期热门文章:

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