开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 系统编程 > 查看源码
rtl.inc
资源名称：shell.rar　[点击查看]
上传用户：xhy777
上传日期：2007-02-14
资源大小：24088k
文件大小：3k
源码类别：

系统编程

开发平台：

Visual C++

rtl.inc：源码内容
  1. externFP   GetProcAddress
  2.         externFP   LoadLibrary
  3.         externFP   GetModuleHandle
  4.         externFP   FatalAppExit
  6. ifndef CodeSeg
  7.         CodeSeg equ <Code>
  8. endif
  10. ;------------------------------------------------------------------------------
  11. ;
  12. ; MACRO RTL_PROC
  13. ;
  14. ; USAGE:
  15. ;   RTL_PROC ProcName, ModuleName, Ordinal, loadds?
  16. ;
  17. ;   ProcName    - api name to stub
  18. ;   ModuleName  - module to run-time-link to.
  19. ;   Ordinal     - export ordinal
  20. ;   loadds?     - should we loadds
  21. ;
  22. ; EXAMPLE:
  23. ;
  24. ;   RTL_PROC    ShellAbout, SHELL, 1
  25. ;
  26. ;------------------------------------------------------------------------------
  27. RTL_PROC macro ProcName, ModuleName, Ordinal, LoadProc, loadds?
  29. sBegin Data
  31. ;;public ModuleName&ProcName&
  32. ModuleName&ProcName& label dword
  33.         dw offset Load&ModuleName&ProcName&
  34.         dw seg    Load&ModuleName&ProcName&
  35. ifdef DEBUG
  36.         db  "&ProcName&", 0
  37. endif
  39. sEnd    Data
  41. sBegin CodeSeg
  42.         assumes cs,CodeSeg
  43.         assumes ds,nothing
  44.         assumes es,nothing
  46. public &ProcName&
  47. &ProcName& proc far
  48.         call    LoadProc
  50. ifnb <loadds?>
  51. mov bx,DataBASE
  52.         mov     es,bx
  53.         assumes es,Data
  54. else
  55.         assumes ds,Data
  56. endif
  57.         jmp     dword ptr [ModuleName&ProcName&]
  59. &ProcName& endp
  61. ;;public Load&ModuleName&ProcName&
  62. Load&ModuleName&ProcName& proc near
  63. ifdef DEBUG
  64.         mov     cx,Ordinal
  65.         lea     bx,ModuleName&ProcName&+4
  66.         call    rtl_debug
  67. endif
  68. ifnb <loadds?>
  69.         Save    <es>
  70. endif
  71.         cCall   GetProcAddress,<ax,0,Ordinal>
  72.         mov     word ptr [ModuleName&ProcName&][0],ax
  73.         mov     word ptr [ModuleName&ProcName&][2],dx
  74.         jmp     short &ProcName&
  75. Load&ModuleName&ProcName& endp
  77. sEnd    CodeSeg
  79.         endm
  81. sBegin CodeSeg
  82.         assumes cs,CodeSeg
  83. assumes ds,nothing
  84. assumes es,nothing
  86. ;---------------------------------------------------------------------------;
  87. ;       cx --> Ordinal
  88. ;       es:bx --> szProc
  89. ;---------------------------------------------------------------------------;
  91. ifdef DEBUG
  92. externFP   OutputDebugString
  93. externFP   _wsprintf
  95. format_string:
  96.         db      "SHELL: RTL: %ls@%d",13,10,0
  98. rtl_debug proc near
  100.         push    ds
  101.         push    es
  102. pusha
  103. sub sp,128
  104. mov si,sp
  106.         push    cx                      ; %d
  107.         push    es                      ; %ls
  108.         push    bx
  110.         lea     ax,format_string        ; format string
  111. push cs
  112.         push    ax
  114.         push    ss                      ; buffer
  115. push si
  116. call _wsprintf
  117.         add     sp,7*2                  ; clear 9 words
  119.         cCall   OutputDebugString,<ss,si>
  121.         add     sp,128
  122.         popa
  123.         pop     es
  124.         pop     ds
  125.         ret
  127. rtl_debug endp
  129. endif
  131. sEnd CodeSeg