首页 相关文章 选择一个网路邻居

选择一个网路邻居

  ================= 选择一个网路邻居 =====================
  function SelectComputerName(handle: hwnd; var ComputerName: string): boolean;
  var
   BrowseInfo: TBrowseInfo;
   ItemIDList: PItemIDList;
   cName: array[0..MAX_PATH] of Char;
   Title: string;
   WindowList: Pointer;
  begin
   if Failed(SHGetSpecialFolderLocation(Handle, CSIDL_NETWORK, ItemIDList)) then
   raise Exception.CreateRes(@SComputerNameDialogNotSupported);
   FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
   BrowseInfo.hwndOwne...[ 查看全文 ]

2016-02-19 标签:

选择一个网路邻居的相关文章

手机页面
收藏网站 回到头部