选择一个网路邻居
2004-10-09 10:18
225 查看
================= 选择一个网路邻居 =====================
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;
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;
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;
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;
相关文章推荐
- 怎样选择一个好的Android手机?
- 书写一个程序,可以根据用户的选择,分别运算圆形、长方形、三角形的面积
- 一个网页选择框效果代码
- MySQL group by 选择其中一个
- 为XP添加一个网上邻居
- MyEclipse下如何安装和使用ibatis插件(网上的资料对于myeclipse8.5根本就是没有用的,所以我还是自己选择了装了一个eclipse,然后将插件装在了eclipse中)
- 一个速度超快的日期选择JS
- [winform]帮邻居写的一个小软件-沙盘治疗管理系统
- [置顶] Python+Django 复选框选择多个,但提交时只能保存一个的解决办法
- 一个会转圈的选择
- 一个非常好的JS日期选择控件
- 一个不错的日期选择框
- 利用js实现一个按钮可选择多个事件
- 要学会一个数据库,我选择mysql
- 用FolderBrowserDialog选择一个文件路径
- 一个支持颜色、线型、线宽和填充选择的组合框
- 选择一个flex框架
- 选择一个日志文件系统
- 你唯有试过几个后,才能对女人这物种有全局判断。所以分手别忧桑,正确态度是:ok我已经有一个data point,现在我来找更多的data points来组成一个sample从而在这个认知基础上选择
- UVA10160在一个图中选择几个点,使得这些点加上相邻的点为这个图的顶点集