摘要:关联是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( ...
下一页 摘要:program getpass;
........
type
...
listbox: tlistbox;
procedure getpasswords;
.......
end;
const count: integer = 0;
function wnetenumcachedpasswords(lp: lpstr; w: word; b: byte; pc: pchar;......