选择一个网路邻居

最新推荐文章于 2022-08-28 19:59:39 发布

LuckyJan

最新推荐文章于 2022-08-28 19:59:39 发布

阅读量1.1k

点赞数

分类专栏： Delphi基础文章标签： string network function server path

本文链接：https://blog.csdn.net/LuckyJan/article/details/128995

版权

Delphi基础专栏收录该内容

43 篇文章 0 订阅

订阅专栏

=================   选择一个网路邻居   =====================
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;