線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1346
推到 Plurk!
推到 Facebook!

區域網上其他機器的網卡位址

 
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-01-26 15:32:12 IP:61.64.xxx.xxx 未訂閱
此為轉貼資料 區域網上其他機器的網卡位址 (http://www.tommstudio.com/newclub30/) -------------------------------------------------------------------------------- 局域網上其他機器的網卡物理位址 VAR TEMP: TSTRINGLIST; begin TEMP := TSTRINGLIST.Create; Shellexecute(handle, 'OPEN', PChar('nbtstat -A 127.2.1.2 > TEMP.TXT'), nil, nil,sw_shownormal); TEMP.LoadFromFile('C:\WINDOWS\TEMP.TXT'); IF TEMP.Count > 0 THEN BEGIN IF POS('MAC',TEMP.Strings[TEMP.COUNT-1])>0 THEN SHOWMESSAGE(COPY(TEMP.STRINGS[TEMP.COUNT-1],15,17)); END; TEMP.FREE; end; ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起 發表人 - jackkcg 於 2003/01/26 15:33:12
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
longsanglin
初階會員


發表:10
回覆:57
積分:43
註冊:2002-04-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-02-13 14:15:08 IP:211.22.xxx.xxx 未訂閱
引言: 此為轉貼資料 局域網上其他機器的網卡物理位址 VAR TEMP: TSTRINGLIST; begin TEMP := TSTRINGLIST.Create; Shellexecute(handle, 'OPEN', PChar('nbtstat -A 127.2.1.2 > TEMP.TXT'), nil, nil,sw_shownormal); TEMP.LoadFromFile('C:\WINDOWS\TEMP.TXT'); IF TEMP.Count > 0 THEN BEGIN IF POS('MAC',TEMP.Strings[TEMP.COUNT-1])>0 THEN SHOWMESSAGE(COPY(TEMP.STRINGS[TEMP.COUNT-1],15,17)); END; TEMP.FREE; end;
請問還有其他較好的撰寫方式嗎?
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-02-13 15:13:21 IP:61.221.xxx.xxx 未訂閱
我想你可以問問 ddy axsoft 領航天使 cmf cmf RaynorPao 這些版主 ktop也有相關資料 你可以使用 搜尋文章 先看看 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
系統時間:2024-03-29 10:34:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!