如何獲得NetBios的地址！(300分)

查了很多書都沒有結果！哪裡又資料，分不夠可以加

小意思!

implementation
uses SysUtils, Windows, NB30;


function GetNetBIOSAddress : string;
var ;ncb ;: TNCB;
; status ;: TAdapterStatus;
; lanenum : TLanaEnum;

; procedure ResetAdapter (num : char);
; begin
; ; fillchar(ncb,sizeof(ncb),0);
; ; ncb.ncb_command:=char(NCBRESET);
; ; ncb.ncb_lana_num:=num;
; ; Netbios(@ncb);
; end;

var
; lanNum ;: char;
; address : record
; ; ; ; ; ; ;part1 : Longint;
; ; ; ; ; ; ;part2 : Word;//Smallint;
; ; ; ; ; ; end absolute status;
begin
; Result:='';

; fillchar(ncb,sizeof(ncb),0);
; ; ncb.ncb_command:=char(NCBENUM);
; ; ncb.ncb_buffer:=@lanenum;
; ; ncb.ncb_length:=sizeof(lanenum);
; Netbios(@ncb);

; if lanenum.length=#0 then exit;
; lanNum:=lanenum.lana[0];

; ResetAdapter(lanNum);

; fillchar(ncb,sizeof(ncb),0);
; ; ncb.ncb_command:=char(NCBASTAT);
; ; ncb.ncb_lana_num:=lanNum;
; ; ncb.ncb_callname[0]:='*';
; ; ncb.ncb_buffer:=@status;
; ; ncb.ncb_length:=sizeof(status);
; Netbios(@ncb);
; ResetAdapter(lanNum);

; Result:=Format('%x%x',[address.part1,address.part2]);
end;

同意newsweep

同意!!!

多人接受答案了。

NBLib32.zip

[]