在程式中要如何抓取 NT/WIN2000 的「工作群組」及「網域」？ |
|
缺席
|
|
Dalman
一般會員   發表：27 回覆：22 積分：24 註冊：2002-08-21 發送簡訊給我 |
|
|
jackkcg
站務副站長  發表：891 回覆：1050 積分：848 註冊：2002-03-23 發送簡訊給我 |
http://www.tech521.com/show_data.asp?tid=437 如何取得局域網內的電腦名？ Function GetNameByIP(MIP:string; var Name:string):boolean;
var
PHt:PHostEnt;
WSData: TWSAData;
i:Word;
j:integer;
k:u_long;
begin
result:=false;
i:=MAKEWORD(1,1);
if WSAStartup(i,WSData)<>0 then exit;
k:=inet_addr(PChar(MIP));
PHt:=gethostbyaddr(@k,4,PF_INET);
if PHt=nil then begin
j:=WSAGetLastError;
Name:='Error:' inttostr(j-WSABASEERR);
end else begin
Name:=PHt.h_name;
result:=true;
end;
WSACleanup;
end;
試看看是否是你要的 本網站好像有範例 有時自己可以先找看看有無文章使用( 搜尋文章 )功能
hagar
版主 回應
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19639 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=7366
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
|
chfamy
中階會員 發表：87 回覆：161 積分：54 註冊：2002-05-03 發送簡訊給我 |
發表時間：2002-10-06 00:57:17
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-04-20 7:48:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |