選擇乙個網路鄰居

2021-03-31 08:56:30 字數 1245 閱讀 6818

***************==   選擇乙個網路鄰居   ********************=

function select***putername(handle: hwnd; var ***putername: string): boolean;

varbrowseinfo: tbrowseinfo;

itemidlist: pitemidlist;

**ame: array[0..max_path] of char;

title: string;

windowlist: pointer;

begin

if failed(shgetspecialfolderlocation(handle, csidl_***work, itemidlist)) then

raise exception.createres(@s***puternamedialognotsupported);

fillchar(browseinfo, sizeof(browseinfo), 0);

browseinfo.hwndowner := handle;

browseinfo.pidlroot := itemidlist;

browseinfo.pszdisplayname := **ame;

title := '選擇計算機名(remote server):';

browseinfo.lpsztitle := pchar(pointer(title));

browseinfo.ulflags := bif_browsefor***puter;

windowlist := disabletaskwindows(0);

tryresult := shbrowseforfolder(browseinfo) <> nil;

finally

enabletaskwindows(windowlist);

end;

***putername := **ame;

end;

procedure tfrm_login.bt_***putersetclick(sender: tobject);

var a_***puter:string;

begin

if select***putername(handle,a_***puter) then begin

showmessage( 'the ***puter's name is :'+ a_***puter ) ;

end;

Linux下的網路鄰居

二 別人訪問我的機器 1 安裝samba服務 用root許可權執行apt get install samba或者是rpm ivh samba rpm。2 設定samba server dpkg reconfigure samba。注意,第乙個選項是啟動方式,推薦選擇daemon 最後乙個選項大意上說...

在windows的網路鄰居中訪問Ubuntu

最近在做cas單點登入,因為要用到ssl,所以做了證書。因為還在開發階段,還沒有網域名稱,所以證書中使用了我ubuntu的主機名eric desktop 應用部署在ubuntu上 接著遇到的問題是我在ubuntu中可以訪問,但是如果從另一台電腦訪問應用,登入成功後會報錯,沒有辦法正確導向原來的應用。...

XP無法訪問網路鄰居原因總結

windows與ntfs檔案系統 ntfs即new technology file system,是windows nt 200 xp 和server2003 專用的檔案系統 server用的是ntfs5.2版。ntfs特性如下 1。容錯性 ntfs可以自動的修復磁碟錯誤而不顯示任何出錯資訊,win...