◇[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;