*** 加急 ***，如何用delphi 调出，浏览网络计算机的对话框，并得到返回值！（有点像， “网络邻居”）-CSDN论坛

* 加急 *，如何用delphi 调出，浏览网络计算机的对话框，并得到返回值！（有点像， “网络邻居”）

Delphi > 网络通信/分布式开发

收藏回复

[问题点数：0分]

⋅*** 加急 ***，如何用delphi 调出，浏览网络计算机的对话框，并得到返回值！（有点像， “网络邻居”）

⋅***想了解, Com 接口编程的请进来, 我做了一个COM范例,与大家分享!!!!!!

⋅*** 急需一个delphi编辑控件(能进行文字处理,插入图片的功能)?

更多帖子

关注私信空间博客

zh_Oracle

等级

本版专家分：200

结帖率 100%: *** 加急 ***，如何用delphi 调出，浏览网络计算机的对话框，并得到返回值！（有点像， “网络邻居”）

请指点！

不胜感激！

绝对给分！

2002-12-25 13:41:19

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅主从表更新主键数据! 急急急急急急急急急急急!!!!! ⋅关于TXMLTransformClient性能问题 ⋅我申请了一个域名.com, 请问如何把我的主页放上去???????? 更多帖子 关注私信空间博客 chutian 等级 本版专家分：2292: function ComputerName: String;
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  ComputerName: array[0..MAX_PATH] of Char;
  Title: string;
  WindowList: Pointer;
  R: Boolean;
begin
  if Failed(SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK, ItemIDList)) then
    raise Exception.Create('網絡出錯,請設置网絡!');
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  BrowseInfo.hwndOwner := Application.Handle;
  BrowseInfo.pidlRoot := ItemIDList;
  BrowseInfo.pszDisplayName := ComputerName;
  Title := '選擇計算機名稱:';
  BrowseInfo.lpszTitle := PChar(Pointer(Title));
  BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
  WindowList := DisableTaskWindows(0);
  try
    R := SHBrowseForFolder(BrowseInfo) <> nil;
  finally
    EnableTaskWindows(WindowList);
  end;
  if R then Result := ComputerName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := ComputerName;
end;

2002-12-25 13:48:46

点赞只看TA 引用举报 #1得分 0

⋅ActiveX 如何传递值给WEB ⋅高分求MFC ZIP方式压缩解压文件夹 ⋅为即将出生宝宝征名！ 更多帖子 关注私信空间博客 flinming 等级 本版专家分：952: function  BrowseForComputer(const  winhandle  :  THANDLE;  const  title  :  string)  :  string;      //浏览网络中的机子
var
  BrowseInfo  :  TBrowseInfo;
  IDRoot      :  PItemIDList;
  Path        :  array[0..MAX_PATH]  of  Char;
begin
     SHGetSpecialFolderLocation(winHandle,  CSIDL_NETWORK,  IDRoot);
     ZeroMemory(@BrowseInfo,  SizeOf(TBrowseInfo));
     ZeroMemory(@path,  MAX_PATH);
     BrowseInfo.hwndOwner  :=  winhandle;
     BrowseInfo.pidlRoot  :=  IDRoot;
     BrowseInfo.lpszTitle  :=  PChar(title);
     BrowseInfo.pszDisplayName  :=  @path;
     BrowseInfo.ulFlags  :=  BIF_BROWSEFORCOMPUTER;
     SHBrowseForFolder(BrowseInfo);
     result := strpas(path) ;
end;

procedure Tform.Button1Click(Sender: TObject);
begin
     ComboBox1.Text :=  BrowseForComputer(Form1.Handle,'Select a Computer') ;
     //Button2Click(Sender);
end;

2002-12-25 21:58:37

点赞只看TA 引用举报 #2得分 0

收起

收藏回复

zh_Oracle

等级：

关注私信 TA的帖子

构建一个函数接受列表并返回值 加急！求帮助: 编写一个last函数接受列表并返回列表最后一个元素的函数，如果是空列表，返回none

**ios提交应用加急审批**: 加急申请如果你的应用已经这个状态(waiting for review)7天以上了那么你可以考虑是否启用加急申请审核的速度。链接：https://developer.apple.com/appstore/contact/appreviewteam/index.html 提交完应用只有到...

加急！！关于点击页面按钮弹出文件选择对话框的问题: 页面有一个按钮，点击后能够弹出文件选择对话框，求各位大神帮忙！！最好能有代码！

软件测试面试题汇总: 转载自： ... 软件测试面试题汇总测试技术面试题 ...........................................................................................................

[网络安全自学篇] 二十四.基于机器学习的入侵检测和攻击识别——以KDD CUP99数据集为例: 这是作者的系列网络安全自学教程，主要是关于网安工具和实践操作的在线笔记，特分享出来与博友共勉，希望您们喜欢，一起进步。这篇文章将分享机器学习在安全领域的应用，并复现一个基于机器学习的入侵检测和攻击识别...

网站有漏洞被***该怎么解决和修复: 2019年1月14日消息，thinkphp又被爆出致命漏洞，可以直接远程代码执行，getshell提权写入网站***到网站根目录，甚至直接提权到服务器，该漏洞影响版本ThinkPHP 5.0、ThinkPHP 5.0.10、ThinkPHP5.0.12、ThinkPHP...

计算机网络【谢希仁第七版】第五章【运输层】: 5.1 运输层协议概述 5.1.1 进程之间的通信运输层向上面的应用层提供通信服务，它属于面向通信部分的最高层，也用户功能的最低层。...复用：发送方不同的应用进程同时使用同一个运输层协议传输数据分用：接收方运

计算机网络与无线通信系统学习12：电话、电报发明给予我们的启示: 一、来之不易的电话　在美国波士顿法院路109号门口钉着的一块青铜牌子上写着：“1875年6月2日，电话机在这里诞生。”世界上第一台电话机，就是由出生于苏格兰爱丁堡的美国发明家亚历山大·贝尔和他的助手沃特森在...

【我的第一个目标检测课题】3、Retinanet网络的学习与实现+扩展: 之前讲的都是课题分析，环境配置还有我们是怎么使用Google云盘链接Colaboratory用Google服务器端提供的16G显存进行训练，现在终于来到了最核心的部分了，也就是对于我们选定的入门网络Retinanet网络的学习和实现。...

计算机网络基础-tcp杂记: tcp加急数据包将psh(push)置为1，即将数据直接向上层传输关于tcp标志位注意 syn-send ：意味同步发送，syn为同步位，所以在建立连接时，都需要将syn位置为1 关于tcp三次握手由于tcp要实现全双工通信，所以要求...

【计算机网络】复习荟萃（五）: 【计算机网络】复习荟萃（五）端口用户数据报协议UDPUDP首部TCPTCP首部格式TCP的连接TCP可靠传输TCP的流量控制TCP拥塞运输层为相互通信的应用进程提供了逻辑通信复用：发送方不同的应用进程使用同一个运输层协议 ...

JQuery获取表格值问题，加急！！加急！！加急！！加急！！加急！！！！！！！！！

15、第四课：计算邮资: 根据邮件的重量和用户是否选择加急计算邮费。计算规则：重量在1000克以内（包含1000克），基本费8元。超过1000克的部分，每500克加收超重费4元，不足500克部分按500克计算；如果用户选择加急，多收5元。输入：...

2017年【某公司产品部】【**语】个人工作总结: 第一阶段：根据部门领导针对入职新员工产品开发思路、逻辑、关系的掌握进行任务落实，并形成框架式的产品概念。第二阶段：依照第一阶段的理解程度进行初步模拟产品开发，加强对项目逻辑关系的脑图强化。第...

ad放置网络标号_PCB工程师必备：AD常用快捷键总结，超级实用: 一、PCB中常用快捷键● R+L 输出PCB中所有网络的布线长度● Ctrl+左键点击对正在布的线完成自动布线连接● M+G 可更改铜的形状● 按P+T在布线状态下，按Shift+A可直接进行蛇线走线● T+R对已布完的线进行蛇线布线●...

加急！加急！两个JAVA题（求大佬帮助）: 一、设计一个学生抽象类，...再设计一个本科类学生和研究生类学生，...最后设计一个学生管理类，... 二、制作一个简单的企业信息调查表，其主要内容包括：...、员工数量、从事行业（...

用python计算邮费考虑是否加急_使用Python加速MSD计算: It's a call to the community to see if anyone has an idea to improve the speed of this MSD calculation implementation. It is largely based on the implementation from this blog post : ...

灵魂9问：网络世界有哪些不为人知的秘密？（网络面试必考）: 你比诸葛亮更厉害，你有庞大的情报网，无论走到哪都可以实时收到天下大事，并做出决策你有比皇帝更强大的八百里加急传书，1 秒之间就能和你的大臣聊骚、分享宫里生活、快乐、与悲伤全世界的人都在为...

理论：网络层协议介绍理论详解: 文章目录1.IP数据包格式2.0 ICMP协议介绍2.1 ICMP协议的封装2.2 Ping ...网络层的功能定义了基于IP协议的逻辑地址连接不同的媒介类型选择数据通过网络的最佳路径 1.IP数据包格式包头的格式结构: 版本(4...

Linux网络编程--广播: 【1】广播是一对多通信。主机地址全1是该网段的广播地址。...可以用下面的命令来显示所选用的广播地址。【2】关于setsockopt()函数功能： setsockopt()函数用于任意类型、任意状态套接口...

加急！ VC6 MFC 对话框程序：如何取得对话框背景颜色？

你连这些都不会，怎么过的网络面试？: 你比诸葛亮更厉害，你有庞大的情报网，无论走到哪都可以实时收到天下大事，并做出决策你有比皇帝更强大的八百里加急传书，1 秒之间就能和你的大臣聊骚、分享宫里生活、快乐、与悲伤全世界的人都在为你服务，你可以...

计算机网络 -（5）: 2服务是使用TCP和UDP的端口来侦听客户端的请求客户端使用IP地址来定位服务器，使用目标端口来定位服务 2可以在服务器的网卡上设置只开放必要的端口实现服务器的网络安全如何在windows上安装服务 SMTP的端口是25 ...

灵魂9问，光怪陆离的网络世界有哪些不为人知的秘密？（网络面试必考）: 你比诸葛亮更厉害，你有庞大的情报网，无论走到哪都可以实时收到天下大事，并做出决策你有比皇帝更强大的八百里加急传书，1 秒之间就能和你的大臣聊骚、分享宫里生活、快乐、与悲伤全世界的人都在为...

quickreport 加急！！！: quickreport 加急！！！ Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061219105310226.html 用quickreport 显示第一条记录时有标题，当显示下一条记录时，标题栏没有显示，为什么？...

用python计算邮费考虑是否加急_python多核计算的那些坑和计算效率考量: 最近从处理股票日频、分钟频转到处理tick级别数据，发现单核计算的能力已经跟不上现在的需求。转向在服务器上做并行计算。亲自捣鼓了一圈，总结一下碰到的各种坑，以及性能提升的一些关键点。大体上按照简单到复杂...

安装失败：求加急！！！: <div><p>您使用的西瓜播放器版本是多少？ What version of xglayer are you using? "xgplayer": "^2.9.5" "xgplayer-flv": "^2.3.9", "xgplayer-hls.js": "^...

2018最新的在AppStore上申请加急审核步骤: 1、首相登录iTunesconnect账号，选择问号-----》选择联系我们 2、选择App审核 3、选择加快App审核的要求 ...7、填写App的相关信息，要和自己发布的App信息保持一致，否则无效 ...App信息的查看：...

用python计算邮费考虑是否加急_NOI1.4-14计算邮资: 题目大意：邮费重量在1000克以内收费8元，超过部分没500克加收4元，如果加急总费用再加5元，已知重量求邮资。题目描述根据邮件的重量和用户是否选择加急计算邮费。计算规则：重量在1000克以内(包括1000克), 基本费8...

python网络编程自学_python网络编程学习笔记（1）: 学习用书：《python 网络编程基础》作者John Goerzen第一部分底层网络学习Python提供了访问底层操作系统Socket接口的全部方法，需要的时候这些接口可以提供灵活而强有力的功能。(1)基本客户端操作在《python 网络...

相关热词 c# 无法打开设计 c# 时间转换成int c#批量读取ini信息 c# 打包msi c# eval绑定 c#字母开头 uuid c#创建html文件 c# 逻辑练习 c#调用dll后释放 c# 扫描串口

*** 加急 ***， 如何用delphi 调出， 浏览网络计算机的对话框， 并得到返回值！（有点像， “网络邻居”）

* 加急 *，如何用delphi 调出，浏览网络计算机的对话框，并得到返回值！（有点像， “网络邻居”）