***************== 選擇乙個網路鄰居 ********************=
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...