◇[DELPHI]獲取某一計算機上的共享目錄

　　procedure getsharefolder(const computername:string);

　　var

　　errcode,a:integer;

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

　　enumhandle:thandle;

　　enumentries,buffersize:dword;

　　s:string;

　　mylistitems:tlistitems;

　　mylistitem:tlistitem;

　　mystrings:tstringlist;

　　begin

　　with netres[0] do begin

　　dwscope :=RESOURCE_GLOBALNET;

　　dwtype :=RESOURCETYPE_DISK;

　　dwdisplaytype :=RESOURCEDISPLAYTYPE_SHARE;

　　dwusage :=RESOURCEUSAGE_CONTAINER;

　　lplocalname :=nil;

　　lpremotename :=pchar(computername);

　　lpcomment :=nil;

　　lpprovider :=nil;

　　end; // 獲取根結點

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

　　if errcode=NO_ERROR then

　　begin

　　EnumEntries:=1024;

　　BufferSize:=SizeOf(NetRes);

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

　　end;

　　wnetcloseenum(enumhandle);

　　a:=0;

　　mylistitems:=controlcenter.lstfile.Items ;

　　mylistitems.Clear ;

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

　　begin

　　with mylistitems do

　　begin

　　mylistitem:=add;

　　mylistitem.ImageIndex :=4;

　　mylistitem.Caption :=extractfilename(netres[a].lpremotename);

　　end;

　　a:=a+1;

　　end;

　　end;

　　◇[DELPHI]得到硬盤序列號

　　var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;

　　begin

　　if GetVolumeInformation(''c:\'', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum^);

　　end;

　　◇[DELPHI]MEMO的自動翻頁

　　Procedure ScrollMemo(Memo : TMemo; Direction : char);

　　begin

　　case direction of

　　''d'': begin

　　SendMessage(Memo.Handle, { HWND of the Memo Control }

　　WM_VSCROLL, { Windows Message }

　　SB_PAGEDOWN, { Scroll Command }

　　0) { Not Used }

　　end;

　　''u'' : begin

　　SendMessage(Memo.Handle, { HWND of the Memo Control }

　　WM_VSCROLL, { Windows Message }

　　SB_PAGEUP, { Scroll Command }

　　0); { Not Used }

　　end;

　　end;

　　end;

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　ScrollMemo(Memo1,''d''); //上翻頁

　　end;

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　ScrollMemo(Memo1,''u''); //下翻頁

　　end;