nb30.imp

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· IMP 代码 · 共 21 行

{$IFDEF MSWINDOWS}

{$IFNDEF CLR}

var
  _Netbios: Pointer;

function Netbios;
begin
  GetProcedureAddress(_Netbios, 'netapi32.dll', 'Netbios');
  asm
    mov esp, ebp
    pop ebp
    jmp [_Netbios]
  end;
end;

{$ENDIF ~CLR}

{$ENDIF MSWINDOWS}