nb30.imp

来自「East make Tray Icon in delphi」· IMP 代码 · 共 17 行

{$IFDEF MSWINDOWS}

var
  _Netbios: Pointer;

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

{$ENDIF MSWINDOWS}