选择一个网路邻居

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

================= 选择一个网路邻居 =====================

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航