lmapibuf.imp

East make Tray Icon in delphi

{$IFDEF MSWINDOWS}

var
  _NetApiBufferFree: Pointer;

function NetApiBufferFree;
begin
  GetProcedureAddress(_NetApiBufferFree, netapi32, 'NetApiBufferFree');
  asm
    mov esp, ebp
    pop ebp
    jmp [_NetApiBufferFree]
  end;
end;

{$ENDIF MSWINDOWS}