獲取本機的MAC地址:
uses
NB30;
(lana: Char): ;
var
: ;
NCB: TNCB;
begin
(NCB,(NCB),0);
NCB. := Char();
NCB. := Lana;
if (@NCB) Char() then
begin
:= 'mac not found';
exit;
end;
(NCB,(NCB),0);
NCB. := Char();
NCB. := Lana;
NCB. := '*';
(無法正常取得本機的mac地址,(),0);
NCB. := @;
NCB. := ();
if (@NCB) Char() then
begin
:='mac not found';
Exit;
end;
:=
(Byte(.[0]), 2) + '_'+
(Byte(.[1]), 2) + '_'+
(Byte(.[2]), 2) + '_'+
(Byte(.[3]),2) + '_'+
(Byte(.[4])無法正常取得本機的mac地址, 2) + '_'+
(Byte(.[5]), 2) ;
end;
: ;
var
: ;
NCB: TNCB;
begin
(NCB,(NCB),0);
NCB. := Char();
NCB. := @;
NCB. := ();
(@NCB);
if Byte(.) > 0 then
:= (.lana[0])
else
:= 'mac not found';
end;
調用: s:=;