技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[DELPHI]安装程序如何添加到Uninstall列表

　　操作注册表,如下:

　　1.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall键下建立一个主键,名称任意。

　　例HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUninstall

　　2.在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyUnistall下键两个串值,

　　这两个串值的名称是特定的:DisplayName和UninstallString。

　　3.给串DisplayName赋值为显示在“删除应用程序列表”中的名称,如''Aiming Uninstall one'';

　　给串UninstallString赋值为执行的删除命令,如 C:\WIN97\uninst.exe -f"C:\TestPro\aimTest.isu"

　　◇[DELPHI]截获WM_QUERYENDSESSION关机消息

　　type

　　TForm1 = class(TForm)

　　procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

　　procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;

　　private

　　{ Private declarations }

　　public

　　{ Public declarations }

　　end;

　　procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);

　　begin

　　Showmessage(''computer is about to shut down'');

　　end;

　　◇[DELPHI]获取网上邻居

　　procedure getnethood();//NT做服务器,WIN98上调试通过。

　　var

　　a,i:integer;

　　errcode:integer;

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

　　enumhandle:thandle;

　　enumentries:dword;

　　buffersize:dword;

　　s:string;

　　mylistitems:tlistitems;

　　mylistitem:tlistitem;

　　alldomain:tstrings;

　　begin //listcomputer is a listview to list all computers;controlcenter is a form.

　　alldomain:=tstringlist.Create ;

　　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; // 获取所有的域

　　errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);

　　if errcode=NO_ERROR then begin

　　enumentries:=1024;

　　buffersize:=sizeof(netres);

　　errcode:=wnetenumresource(enumhandle,enumentries,@netres[0],buffersize);

　　end;

　　a:=0;

　　mylistitems :=controlcenter.lstcomputer.Items ;

　　mylistitems.Clear ;

　　while (string(netres[a].lpprovider)<>'''') and (errcode=NO_ERROR) do

　　begin

　　alldomain.Add (netres[a].lpremotename);

　　a:=a+1;

　　end;

　　wnetcloseenum(enumhandle);

　　// 获取所有的计算机

　　mylistitems :=controlcenter.lstcomputer.Items ;

　　mylistitems.Clear ;

　　for i:=0 to alldomain.Count-1 do

　　begin

　　with netres[0] do begin

　　dwscope :=RESOURCE_GLOBALNET;

　　dwtype :=RESOURCETYPE_ANY;

　　dwdisplaytype :=RESOURCEDISPLAYTYPE_SERVER;

　　dwusage :=RESOURCEUSAGE_CONTAINER;

　　lplocalname :=nil;

　　lpremotename :=pchar(alldomain[i]);

　　lpcomment :=nil;

　　lpprovider :=nil;

　　end;

　　ErrCode:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],EnumHandle);

　　if errcode=NO_ERROR then

　　begin

　　EnumEntries:=1024;

　　BufferSize:=SizeOf(NetRes);

　　ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);

　　end;

　　a:=0;

　　while (string(netres[a].lpprovider)<>'''') and (errcode=NO_ERROR) do

　　begin

　　mylistitem :=mylistitems.Add ;

　　mylistitem.ImageIndex :=0;

　　mylistitem.Caption :=uppercase(stringreplace(string(NetRes[a].lpremotename),''\\'','''',[rfReplaceAll]));

　　a:=a+1;

　　end;

　　wnetcloseenum(enumhandle);

　　end;

　　end;