选择一个网路邻居

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有