选择一个网路邻居

十月战心丶

十月战心丶

2016-02-19 13:20

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的选择一个网路邻居,过去的都会过去,迎接崭新的开始,释放更美好的自己。

  =================   选择一个网路邻居   =====================
  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.hwndOwner := Handle;
    BrowseInfo.pidlRoot := ItemIDList;
    BrowseInfo.pszDisplayName := cName;
    Title := '选择计算机名(Remote Server):';
    BrowseInfo.lpszTitle := PChar(Pointer(Title));
    BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
    WindowList := DisableTaskWindows(0);
    try
      Result := SHBrowseForFolder(BrowseInfo) nil;
    finally
      EnableTaskWindows(WindowList);
    end;
    ComputerName := cName;
  end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  procedure Tfrm_Login.bt_ComputerSetClick(Sender: TObject);
  var A_Computer:string;
  begin
    if SelectComputerName(handle,A_Computer) then begin
      showMessage( 'the computer's name is :'+ A_Computer ) ;
  end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
展开更多 3%)
分享
qqQQ
qzoneQQ空间
weibo微博

猜你喜欢

选择一个网路邻居

编程语言 网络编程
选择一个网路邻居

如何选择一个好保姆

婴儿 幼儿 保姆
如何选择一个好保姆

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

选择一个微软SOAP Toolkit

编程语言 网络编程
选择一个微软SOAP Toolkit

JavaScript 一个日期选择函数

Web开发
JavaScript 一个日期选择函数

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

偶写的第一个控件,一个用选择代替输入的Edit控件

编程语言 网络编程
偶写的第一个控件,一个用选择代替输入的Edit控件

承诺只是一个疯子说给一个傻子听得-

电脑入门
承诺只是一个疯子说给一个傻子听得-

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

优化大师软件智能卸载

优化大师软件智能卸载

在MSSQL版参与问题有所感触

在MSSQL版参与问题有所感触
下拉加载更多内容 ↓