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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaPsApi.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：27k
源码类别：

Windows编程

开发平台：

Delphi

JwaPsApi.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Process Status API interface Unit for Object Pascal                          }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: psapi.h, released June 2000. The original Pascal       }
  9. { code is: PsApi.pas, released December 2000. The initial developer of the     }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaPsApi;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include <psapi.h>'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType;
  59. function EnumProcesses(lpidProcess: LPDWORD; cb: DWORD; var cbNeeded: DWORD): BOOL; stdcall;
  60. {$EXTERNALSYM EnumProcesses}
  62. function EnumProcessModules(hProcess: HANDLE; lphModule: PHMODULE; cb: DWORD;
  63.   var lpcbNeeded: DWORD): BOOL; stdcall;
  64. {$EXTERNALSYM EnumProcessModules}
  66. function GetModuleBaseNameA(hProcess: HANDLE; hModule: HMODULE; lpBaseName: LPSTR;
  67.   nSize: DWORD): DWORD; stdcall;
  68. {$EXTERNALSYM GetModuleBaseNameA}
  69. function GetModuleBaseNameW(hProcess: HANDLE; hModule: HMODULE; lpBaseName: LPWSTR;
  70.   nSize: DWORD): DWORD; stdcall;
  71. {$EXTERNALSYM GetModuleBaseNameW}
  73. {$IFDEF UNICODE}
  74. function GetModuleBaseName(hProcess: HANDLE; hModule: HMODULE; lpBaseName: LPWSTR;
  75.   nSize: DWORD): DWORD; stdcall;
  76. {$EXTERNALSYM GetModuleBaseName}
  77. {$ELSE}
  78. function GetModuleBaseName(hProcess: HANDLE; hModule: HMODULE; lpBaseName: LPSTR;
  79.   nSize: DWORD): DWORD; stdcall;
  80. {$EXTERNALSYM GetModuleBaseName}
  81. {$ENDIF}
  83. function GetModuleFileNameExA(hProcess: HANDLE; hModule: HMODULE; lpFilename: LPSTR;
  84.   nSize: DWORD): DWORD; stdcall;
  85. {$EXTERNALSYM GetModuleFileNameExA}
  86. function GetModuleFileNameExW(hProcess: HANDLE; hModule: HMODULE; lpFilename: LPWSTR;
  87.   nSize: DWORD): DWORD; stdcall;
  88. {$EXTERNALSYM GetModuleFileNameExW}
  90. {$IFDEF UNICODE}
  91. function GetModuleFileNameEx(hProcess: HANDLE; hModule: HMODULE; lpFilename: LPWSTR;
  92.   nSize: DWORD): DWORD; stdcall;
  93. {$EXTERNALSYM GetModuleFileNameEx}
  94. {$ELSE}
  95. function GetModuleFileNameEx(hProcess: HANDLE; hModule: HMODULE; lpFilename: LPSTR;
  96.   nSize: DWORD): DWORD; stdcall;
  97. {$EXTERNALSYM GetModuleFileNameEx}
  98. {$ENDIF}
  100. type
  101.   LPMODULEINFO = ^MODULEINFO;
  102.   {$EXTERNALSYM LPMODULEINFO}
  103.   _MODULEINFO = packed record
  104.     lpBaseOfDll: LPVOID;
  105.     SizeOfImage: DWORD;
  106.     EntryPoint: LPVOID;
  107.   end;
  108.   {$EXTERNALSYM _MODULEINFO}
  109.   MODULEINFO = _MODULEINFO;
  110.   {$EXTERNALSYM MODULEINFO}
  111.   TModuleInfo = MODULEINFO;
  112.   PModuleInfo = LPMODULEINFO;
  114. function GetModuleInformation(hProcess: HANDLE; hModule: HMODULE;
  115.   var lpmodinfo: MODULEINFO; cb: DWORD): BOOL; stdcall;
  116. {$EXTERNALSYM GetModuleInformation}
  118. function EmptyWorkingSet(hProcess: HANDLE): BOOL; stdcall;
  119. {$EXTERNALSYM EmptyWorkingSet}
  121. function QueryWorkingSet(hProcess: HANDLE; pv: PVOID; cb: DWORD): BOOL; stdcall;
  122. {$EXTERNALSYM QueryWorkingSet}
  124. function InitializeProcessForWsWatch(hProcess: HANDLE): BOOL; stdcall;
  125. {$EXTERNALSYM InitializeProcessForWsWatch}
  127. type
  128.   PPSAPI_WS_WATCH_INFORMATION = ^PSAPI_WS_WATCH_INFORMATION;
  129.   {$EXTERNALSYM PPSAPI_WS_WATCH_INFORMATION}
  130.   _PSAPI_WS_WATCH_INFORMATION = packed record
  131.     FaultingPc: LPVOID;
  132.     FaultingVa: LPVOID;
  133.   end;
  134.   {$EXTERNALSYM _PSAPI_WS_WATCH_INFORMATION}
  135.   PSAPI_WS_WATCH_INFORMATION = _PSAPI_WS_WATCH_INFORMATION;
  136.   {$EXTERNALSYM PSAPI_WS_WATCH_INFORMATION}
  137.   TPsApiWsWatchInformation = PSAPI_WS_WATCH_INFORMATION;
  138.   PPsApiWsWatchInformation = PPSAPI_WS_WATCH_INFORMATION;
  140. function GetWsChanges(hProcess: HANDLE; var lpWatchInfo: PSAPI_WS_WATCH_INFORMATION;
  141.   cb: DWORD): BOOL; stdcall;
  142. {$EXTERNALSYM GetWsChanges}
  144. function GetMappedFileNameW(hProcess: HANDLE; lpv: LPVOID; lpFilename: LPWSTR;
  145.   nSize: DWORD): DWORD; stdcall;
  146. {$EXTERNALSYM GetMappedFileNameW}
  147. function GetMappedFileNameA(hProcess: HANDLE; lpv: LPVOID; lpFilename: LPSTR;
  148.   nSize: DWORD): DWORD; stdcall;
  149. {$EXTERNALSYM GetMappedFileNameA}
  151. {$IFDEF UNICODE}
  152. function GetMappedFileName(hProcess: HANDLE; lpv: LPVOID; lpFilename: LPWSTR;
  153.   nSize: DWORD): DWORD; stdcall;
  154. {$EXTERNALSYM GetMappedFileName}
  155. {$ELSE}
  156. function GetMappedFileName(hProcess: HANDLE; lpv: LPVOID; lpFilename: LPSTR;
  157.   nSize: DWORD): DWORD; stdcall;
  158. {$EXTERNALSYM GetMappedFileName}
  159. {$ENDIF}
  161. function EnumDeviceDrivers(lpImageBase: LPLPVOID; cb: DWORD; var lpcbNeeded: DWORD): BOOL; stdcall;
  162. {$EXTERNALSYM EnumDeviceDrivers}
  164. function GetDeviceDriverBaseNameA(ImageBase: LPVOID; lpBaseName: LPSTR;
  165.   nSize: DWORD): DWORD; stdcall;
  166. {$EXTERNALSYM GetDeviceDriverBaseNameA}
  167. function GetDeviceDriverBaseNameW(ImageBase: LPVOID; lpBaseName: LPWSTR;
  168.   nSize: DWORD): DWORD; stdcall;
  169. {$EXTERNALSYM GetDeviceDriverBaseNameW}
  171. {$IFDEF UNICODE}
  172. function GetDeviceDriverBaseName(ImageBase: LPVOID; lpBaseName: LPWSTR;
  173.   nSize: DWORD): DWORD; stdcall;
  174. {$EXTERNALSYM GetDeviceDriverBaseName}
  175. {$ELSE}
  176. function GetDeviceDriverBaseName(ImageBase: LPVOID; lpBaseName: LPSTR;
  177.   nSize: DWORD): DWORD; stdcall;
  178. {$EXTERNALSYM GetDeviceDriverBaseName}
  179. {$ENDIF}
  181. function GetDeviceDriverFileNameA(ImageBase: LPVOID; lpFilename: LPSTR;
  182.   nSize: DWORD): DWORD; stdcall;
  183. {$EXTERNALSYM GetDeviceDriverFileNameA}
  184. function GetDeviceDriverFileNameW(ImageBase: LPVOID; lpFilename: LPWSTR;
  185.   nSize: DWORD): DWORD; stdcall;
  186. {$EXTERNALSYM GetDeviceDriverFileNameW}
  188. {$IFDEF UNICODE}
  189. function GetDeviceDriverFileName(ImageBase: LPVOID; lpFilename: LPWSTR;
  190.   nSize: DWORD): DWORD; stdcall;
  191. {$EXTERNALSYM GetDeviceDriverFileName}
  192. {$ELSE}
  193. function GetDeviceDriverFileName(ImageBase: LPVOID; lpFilename: LPSTR;
  194.   nSize: DWORD): DWORD; stdcall;
  195. {$EXTERNALSYM GetDeviceDriverFileName}
  196. {$ENDIF}
  198. // Structure for GetProcessMemoryInfo()
  200. type
  201.   PPROCESS_MEMORY_COUNTERS = ^PROCESS_MEMORY_COUNTERS;
  202.   {$EXTERNALSYM PPROCESS_MEMORY_COUNTERS}
  203.   _PROCESS_MEMORY_COUNTERS = packed record
  204.     cb: DWORD;
  205.     PageFaultCount: DWORD;
  206.     PeakWorkingSetSize: SIZE_T;
  207.     WorkingSetSize: SIZE_T;
  208.     QuotaPeakPagedPoolUsage: SIZE_T;
  209.     QuotaPagedPoolUsage: SIZE_T;
  210.     QuotaPeakNonPagedPoolUsage: SIZE_T;
  211.     QuotaNonPagedPoolUsage: SIZE_T;
  212.     PagefileUsage: SIZE_T;
  213.     PeakPagefileUsage: SIZE_T;
  214.   end;
  215.   {$EXTERNALSYM _PROCESS_MEMORY_COUNTERS}
  216.   PROCESS_MEMORY_COUNTERS = _PROCESS_MEMORY_COUNTERS;
  217.   {$EXTERNALSYM PROCESS_MEMORY_COUNTERS}
  218.   TProcessMemoryCounters = PROCESS_MEMORY_COUNTERS;
  219.   PProcessMemoryCounters = PPROCESS_MEMORY_COUNTERS;
  221. function GetProcessMemoryInfo(Process: HANDLE;
  222.   var ppsmemCounters: PROCESS_MEMORY_COUNTERS; cb: DWORD): BOOL; stdcall;
  223. {$EXTERNALSYM GetProcessMemoryInfo}
  225. type
  226.   _PERFORMANCE_INFORMATION = record
  227.     cb: DWORD;
  228.     CommitTotal: SIZE_T;
  229.     CommitLimit: SIZE_T;
  230.     CommitPeak: SIZE_T;
  231.     PhysicalTotal: SIZE_T;
  232.     PhysicalAvailable: SIZE_T;
  233.     SystemCache: SIZE_T;
  234.     KernelTotal: SIZE_T;
  235.     KernelPaged: SIZE_T;
  236.     KernelNonpaged: SIZE_T;
  237.     PageSize: SIZE_T;
  238.     HandleCount: DWORD;
  239.     ProcessCount: DWORD;
  240.     ThreadCount: DWORD;
  241.   end;
  242.   {$EXTERNALSYM _PERFORMANCE_INFORMATION}
  243.   PERFORMANCE_INFORMATION = _PERFORMANCE_INFORMATION;
  244.   {$EXTERNALSYM PERFORMANCE_INFORMATION}
  245.   PPERFORMANCE_INFORMATION = ^PERFORMANCE_INFORMATION;
  246.   {$EXTERNALSYM PPERFORMANCE_INFORMATION}
  247.   TPerformanceInformation = PERFORMANCE_INFORMATION;
  248.   PPerformanceInformation = PPERFORMANCE_INFORMATION;
  250. { MVB:
  252.   Please note that this function, unlike what the Platform SDK documents, is _not_ available for Windows 2000!!!
  253.   It is available starting with Windows XP and Windows.NET Server.
  254.   If needed, you can relatively easily clone the functionality of this function by using the performance monitor
  255.   API (either through the HKEY_PERFORMANCE_DATA registry interface or using the Performance Data Helper API)
  256. }
  258. function GetPerformanceInfo(pPerformanceInformation: PPERFORMANCE_INFORMATION;
  259.   cb: DWORD): BOOL; stdcall;
  260. {$EXTERNALSYM GetPerformanceInfo}
  262. type
  263.   _ENUM_PAGE_FILE_INFORMATION = record
  264.     cb: DWORD;
  265.     Reserved: DWORD;
  266.     TotalSize: SIZE_T;
  267.     TotalInUse: SIZE_T;
  268.     PeakUsage: SIZE_T;
  269.   end;
  270.   {$EXTERNALSYM _ENUM_PAGE_FILE_INFORMATION}
  271.   ENUM_PAGE_FILE_INFORMATION = _ENUM_PAGE_FILE_INFORMATION;
  272.   {$EXTERNALSYM ENUM_PAGE_FILE_INFORMATION}
  273.   PENUM_PAGE_FILE_INFORMATION = ^ENUM_PAGE_FILE_INFORMATION;
  274.   TEnumPageFileInformation = ENUM_PAGE_FILE_INFORMATION;
  275.   PEnumPageFileInformation = PENUM_PAGE_FILE_INFORMATION;
  277. type
  278.   PENUM_PAGE_FILE_CALLBACKW = function (pContext: LPVOID;
  279.     pPageFileInfo: PENUM_PAGE_FILE_INFORMATION; lpFilename: LPCWSTR): BOOL; stdcall;
  280.   {$EXTERNALSYM PENUM_PAGE_FILE_CALLBACKW}
  281.   PENUM_PAGE_FILE_CALLBACKA = function (pContext: LPVOID;
  282.     pPageFileInfo: PENUM_PAGE_FILE_INFORMATION; lpFilename: LPCSTR): BOOL; stdcall;
  283.   {$EXTERNALSYM PENUM_PAGE_FILE_CALLBACKA}
  285. function EnumPageFilesW(pCallBackRoutine: PENUM_PAGE_FILE_CALLBACKW; pContext: LPVOID): BOOL; stdcall;
  286. {$EXTERNALSYM EnumPageFilesW}
  287. function EnumPageFilesA(pCallBackRoutine: PENUM_PAGE_FILE_CALLBACKA; pContext: LPVOID): BOOL; stdcall;
  288. {$EXTERNALSYM EnumPageFilesA}
  290. {$IFDEF UNICODE}
  291. type
  292.   PENUM_PAGE_FILE_CALLBACK = PENUM_PAGE_FILE_CALLBACKW;
  293.   {$EXTERNALSYM PENUM_PAGE_FILE_CALLBACK}
  294. function EnumPageFiles(pCallBackRoutine: PENUM_PAGE_FILE_CALLBACKW; pContext: LPVOID): BOOL; stdcall;
  295. {$EXTERNALSYM EnumPageFiles}
  296. {$ELSE}
  297. type
  298.   PENUM_PAGE_FILE_CALLBACK = PENUM_PAGE_FILE_CALLBACKA;
  299.   {$EXTERNALSYM PENUM_PAGE_FILE_CALLBACK}
  300. function EnumPageFiles(pCallBackRoutine: PENUM_PAGE_FILE_CALLBACKA; pContext: LPVOID): BOOL; stdcall;
  301. {$EXTERNALSYM EnumPageFiles}
  302. {$ENDIF}
  304. function GetProcessImageFileNameA(hProcess: HANDLE; lpImageFileName: LPSTR;
  305.   nSize: DWORD): DWORD; stdcall;
  306. {$EXTERNALSYM GetProcessImageFileNameA}
  307. function GetProcessImageFileNameW(hProcess: HANDLE; lpImageFileName: LPWSTR;
  308.   nSize: DWORD): DWORD; stdcall;
  309. {$EXTERNALSYM GetProcessImageFileNameW}
  311. {$IFDEF UNICODE}
  312. function GetProcessImageFileName(hProcess: HANDLE; lpImageFileName: LPWSTR;
  313.   nSize: DWORD): DWORD; stdcall;
  314. {$EXTERNALSYM GetProcessImageFileName}
  315. {$ELSE}
  316. function GetProcessImageFileName(hProcess: HANDLE; lpImageFileName: LPSTR;
  317.   nSize: DWORD): DWORD; stdcall;
  318. {$EXTERNALSYM GetProcessImageFileName}
  319. {$ENDIF}
  321. implementation
  323. const
  324.   PsapiLib = 'psapi.dll';
  327. {$IFDEF DYNAMIC_LINK}
  328. var
  329.   _EnumProcesses: Pointer;
  331. function EnumProcesses;
  332. begin
  333.   GetProcedureAddress(_EnumProcesses, PsapiLib, 'EnumProcesses');
  334.   asm
  335.     mov esp, ebp
  336.     pop ebp
  337.     jmp [_EnumProcesses]
  338.   end;
  339. end;
  340. {$ELSE}
  341. function EnumProcesses; external PsapiLib name 'EnumProcesses';
  342. {$ENDIF DYNAMIC_LINK}
  344. {$IFDEF DYNAMIC_LINK}
  345. var
  346.   _EnumProcessModules: Pointer;
  348. function EnumProcessModules;
  349. begin
  350.   GetProcedureAddress(_EnumProcessModules, PsapiLib, 'EnumProcessModules');
  351.   asm
  352.     mov esp, ebp
  353.     pop ebp
  354.     jmp [_EnumProcessModules]
  355.   end;
  356. end;
  357. {$ELSE}
  358. function EnumProcessModules; external PsapiLib name 'EnumProcessModules';
  359. {$ENDIF DYNAMIC_LINK}
  361. {$IFDEF DYNAMIC_LINK}
  362. var
  363.   _GetModuleBaseNameA: Pointer;
  365. function GetModuleBaseNameA;
  366. begin
  367.   GetProcedureAddress(_GetModuleBaseNameA, PsapiLib, 'GetModuleBaseNameA');
  368.   asm
  369.     mov esp, ebp
  370.     pop ebp
  371.     jmp [_GetModuleBaseNameA]
  372.   end;
  373. end;
  374. {$ELSE}
  375. function GetModuleBaseNameA; external PsapiLib name 'GetModuleBaseNameA';
  376. {$ENDIF DYNAMIC_LINK}
  378. {$IFDEF DYNAMIC_LINK}
  379. var
  380.   _GetModuleBaseNameW: Pointer;
  382. function GetModuleBaseNameW;
  383. begin
  384.   GetProcedureAddress(_GetModuleBaseNameW, PsapiLib, 'GetModuleBaseNameW');
  385.   asm
  386.     mov esp, ebp
  387.     pop ebp
  388.     jmp [_GetModuleBaseNameW]
  389.   end;
  390. end;
  391. {$ELSE}
  392. function GetModuleBaseNameW; external PsapiLib name 'GetModuleBaseNameW';
  393. {$ENDIF DYNAMIC_LINK}
  394. {$IFDEF UNICODE}
  396. {$IFDEF DYNAMIC_LINK}
  397. var
  398.   _GetModuleBaseName: Pointer;
  400. function GetModuleBaseName;
  401. begin
  402.   GetProcedureAddress(_GetModuleBaseName, PsapiLib, 'GetModuleBaseNameW');
  403.   asm
  404.     mov esp, ebp
  405.     pop ebp
  406.     jmp [_GetModuleBaseName]
  407.   end;
  408. end;
  409. {$ELSE}
  410. function GetModuleBaseName; external PsapiLib name 'GetModuleBaseNameW';
  411. {$ENDIF DYNAMIC_LINK}
  412. {$ELSE}
  414. {$IFDEF DYNAMIC_LINK}
  415. var
  416.   _GetModuleBaseName: Pointer;
  418. function GetModuleBaseName;
  419. begin
  420.   GetProcedureAddress(_GetModuleBaseName, PsapiLib, 'GetModuleBaseNameA');
  421.   asm
  422.     mov esp, ebp
  423.     pop ebp
  424.     jmp [_GetModuleBaseName]
  425.   end;
  426. end;
  427. {$ELSE}
  428. function GetModuleBaseName; external PsapiLib name 'GetModuleBaseNameA';
  429. {$ENDIF DYNAMIC_LINK}
  430. {$ENDIF}
  432. {$IFDEF DYNAMIC_LINK}
  433. var
  434.   _GetModuleFileNameExA: Pointer;
  436. function GetModuleFileNameExA;
  437. begin
  438.   GetProcedureAddress(_GetModuleFileNameExA, PsapiLib, 'GetModuleFileNameExA');
  439.   asm
  440.     mov esp, ebp
  441.     pop ebp
  442.     jmp [_GetModuleFileNameExA]
  443.   end;
  444. end;
  445. {$ELSE}
  446. function GetModuleFileNameExA; external PsapiLib name 'GetModuleFileNameExA';
  447. {$ENDIF DYNAMIC_LINK}
  449. {$IFDEF DYNAMIC_LINK}
  450. var
  451.   _GetModuleFileNameExW: Pointer;
  453. function GetModuleFileNameExW;
  454. begin
  455.   GetProcedureAddress(_GetModuleFileNameExW, PsapiLib, 'GetModuleFileNameExW');
  456.   asm
  457.     mov esp, ebp
  458.     pop ebp
  459.     jmp [_GetModuleFileNameExW]
  460.   end;
  461. end;
  462. {$ELSE}
  463. function GetModuleFileNameExW; external PsapiLib name 'GetModuleFileNameExW';
  464. {$ENDIF DYNAMIC_LINK}
  465. {$IFDEF UNICODE}
  467. {$IFDEF DYNAMIC_LINK}
  468. var
  469.   _GetModuleFileNameEx: Pointer;
  471. function GetModuleFileNameEx;
  472. begin
  473.   GetProcedureAddress(_GetModuleFileNameEx, PsapiLib, 'GetModuleFileNameExW');
  474.   asm
  475.     mov esp, ebp
  476.     pop ebp
  477.     jmp [_GetModuleFileNameEx]
  478.   end;
  479. end;
  480. {$ELSE}
  481. function GetModuleFileNameEx; external PsapiLib name 'GetModuleFileNameExW';
  482. {$ENDIF DYNAMIC_LINK}
  483. {$ELSE}
  485. {$IFDEF DYNAMIC_LINK}
  486. var
  487.   _GetModuleFileNameEx: Pointer;
  489. function GetModuleFileNameEx;
  490. begin
  491.   GetProcedureAddress(_GetModuleFileNameEx, PsapiLib, 'GetModuleFileNameExA');
  492.   asm
  493.     mov esp, ebp
  494.     pop ebp
  495.     jmp [_GetModuleFileNameEx]
  496.   end;
  497. end;
  498. {$ELSE}
  499. function GetModuleFileNameEx; external PsapiLib name 'GetModuleFileNameExA';
  500. {$ENDIF DYNAMIC_LINK}
  501. {$ENDIF}
  503. {$IFDEF DYNAMIC_LINK}
  504. var
  505.   _GetModuleInformation: Pointer;
  507. function GetModuleInformation;
  508. begin
  509.   GetProcedureAddress(_GetModuleInformation, PsapiLib, 'GetModuleInformation');
  510.   asm
  511.     mov esp, ebp
  512.     pop ebp
  513.     jmp [_GetModuleInformation]
  514.   end;
  515. end;
  516. {$ELSE}
  517. function GetModuleInformation; external PsapiLib name 'GetModuleInformation';
  518. {$ENDIF DYNAMIC_LINK}
  520. {$IFDEF DYNAMIC_LINK}
  521. var
  522.   _EmptyWorkingSet: Pointer;
  524. function EmptyWorkingSet;
  525. begin
  526.   GetProcedureAddress(_EmptyWorkingSet, PsapiLib, 'EmptyWorkingSet');
  527.   asm
  528.     mov esp, ebp
  529.     pop ebp
  530.     jmp [_EmptyWorkingSet]
  531.   end;
  532. end;
  533. {$ELSE}
  534. function EmptyWorkingSet; external PsapiLib name 'EmptyWorkingSet';
  535. {$ENDIF DYNAMIC_LINK}
  537. {$IFDEF DYNAMIC_LINK}
  538. var
  539.   _QueryWorkingSet: Pointer;
  541. function QueryWorkingSet;
  542. begin
  543.   GetProcedureAddress(_QueryWorkingSet, PsapiLib, 'QueryWorkingSet');
  544.   asm
  545.     mov esp, ebp
  546.     pop ebp
  547.     jmp [_QueryWorkingSet]
  548.   end;
  549. end;
  550. {$ELSE}
  551. function QueryWorkingSet; external PsapiLib name 'QueryWorkingSet';
  552. {$ENDIF DYNAMIC_LINK}
  554. {$IFDEF DYNAMIC_LINK}
  555. var
  556.   _InitializeProcessForWsWatch: Pointer;
  558. function InitializeProcessForWsWatch;
  559. begin
  560.   GetProcedureAddress(_InitializeProcessForWsWatch, PsapiLib, 'InitializeProcessForWsWatch');
  561.   asm
  562.     mov esp, ebp
  563.     pop ebp
  564.     jmp [_InitializeProcessForWsWatch]
  565.   end;
  566. end;
  567. {$ELSE}
  568. function InitializeProcessForWsWatch; external PsapiLib name 'InitializeProcessForWsWatch';
  569. {$ENDIF DYNAMIC_LINK}
  571. {$IFDEF DYNAMIC_LINK}
  572. var
  573.   _GetWsChanges: Pointer;
  575. function GetWsChanges;
  576. begin
  577.   GetProcedureAddress(_GetWsChanges, PsapiLib, 'GetWsChanges');
  578.   asm
  579.     mov esp, ebp
  580.     pop ebp
  581.     jmp [_GetWsChanges]
  582.   end;
  583. end;
  584. {$ELSE}
  585. function GetWsChanges; external PsapiLib name 'GetWsChanges';
  586. {$ENDIF DYNAMIC_LINK}
  588. {$IFDEF DYNAMIC_LINK}
  589. var
  590.   _GetMappedFileNameW: Pointer;
  592. function GetMappedFileNameW;
  593. begin
  594.   GetProcedureAddress(_GetMappedFileNameW, PsapiLib, 'GetMappedFileNameW');
  595.   asm
  596.     mov esp, ebp
  597.     pop ebp
  598.     jmp [_GetMappedFileNameW]
  599.   end;
  600. end;
  601. {$ELSE}
  602. function GetMappedFileNameW; external PsapiLib name 'GetMappedFileNameW';
  603. {$ENDIF DYNAMIC_LINK}
  605. {$IFDEF DYNAMIC_LINK}
  606. var
  607.   _GetMappedFileNameA: Pointer;
  609. function GetMappedFileNameA;
  610. begin
  611.   GetProcedureAddress(_GetMappedFileNameA, PsapiLib, 'GetMappedFileNameA');
  612.   asm
  613.     mov esp, ebp
  614.     pop ebp
  615.     jmp [_GetMappedFileNameA]
  616.   end;
  617. end;
  618. {$ELSE}
  619. function GetMappedFileNameA; external PsapiLib name 'GetMappedFileNameA';
  620. {$ENDIF DYNAMIC_LINK}
  621. {$IFDEF UNICODE}
  623. {$IFDEF DYNAMIC_LINK}
  624. var
  625.   _GetMappedFileName: Pointer;
  627. function GetMappedFileName;
  628. begin
  629.   GetProcedureAddress(_GetMappedFileName, PsapiLib, 'GetMappedFileNameW');
  630.   asm
  631.     mov esp, ebp
  632.     pop ebp
  633.     jmp [_GetMappedFileName]
  634.   end;
  635. end;
  636. {$ELSE}
  637. function GetMappedFileName; external PsapiLib name 'GetMappedFileNameW';
  638. {$ENDIF DYNAMIC_LINK}
  639. {$ELSE}
  641. {$IFDEF DYNAMIC_LINK}
  642. var
  643.   _GetMappedFileName: Pointer;
  645. function GetMappedFileName;
  646. begin
  647.   GetProcedureAddress(_GetMappedFileName, PsapiLib, 'GetMappedFileNameA');
  648.   asm
  649.     mov esp, ebp
  650.     pop ebp
  651.     jmp [_GetMappedFileName]
  652.   end;
  653. end;
  654. {$ELSE}
  655. function GetMappedFileName; external PsapiLib name 'GetMappedFileNameA';
  656. {$ENDIF DYNAMIC_LINK}
  657. {$ENDIF}
  659. {$IFDEF DYNAMIC_LINK}
  660. var
  661.   _EnumDeviceDrivers: Pointer;
  663. function EnumDeviceDrivers;
  664. begin
  665.   GetProcedureAddress(_EnumDeviceDrivers, PsapiLib, 'EnumDeviceDrivers');
  666.   asm
  667.     mov esp, ebp
  668.     pop ebp
  669.     jmp [_EnumDeviceDrivers]
  670.   end;
  671. end;
  672. {$ELSE}
  673. function EnumDeviceDrivers; external PsapiLib name 'EnumDeviceDrivers';
  674. {$ENDIF DYNAMIC_LINK}
  676. {$IFDEF DYNAMIC_LINK}
  677. var
  678.   _GetDeviceDriverBaseNameA: Pointer;
  680. function GetDeviceDriverBaseNameA;
  681. begin
  682.   GetProcedureAddress(_GetDeviceDriverBaseNameA, PsapiLib, 'GetDeviceDriverBaseNameA');
  683.   asm
  684.     mov esp, ebp
  685.     pop ebp
  686.     jmp [_GetDeviceDriverBaseNameA]
  687.   end;
  688. end;
  689. {$ELSE}
  690. function GetDeviceDriverBaseNameA; external PsapiLib name 'GetDeviceDriverBaseNameA';
  691. {$ENDIF DYNAMIC_LINK}
  693. {$IFDEF DYNAMIC_LINK}
  694. var
  695.   _GetDeviceDriverBaseNameW: Pointer;
  697. function GetDeviceDriverBaseNameW;
  698. begin
  699.   GetProcedureAddress(_GetDeviceDriverBaseNameW, PsapiLib, 'GetDeviceDriverBaseNameW');
  700.   asm
  701.     mov esp, ebp
  702.     pop ebp
  703.     jmp [_GetDeviceDriverBaseNameW]
  704.   end;
  705. end;
  706. {$ELSE}
  707. function GetDeviceDriverBaseNameW; external PsapiLib name 'GetDeviceDriverBaseNameW';
  708. {$ENDIF DYNAMIC_LINK}
  709. {$IFDEF UNICODE}
  711. {$IFDEF DYNAMIC_LINK}
  712. var
  713.   _GetDeviceDriverBaseName: Pointer;
  715. function GetDeviceDriverBaseName;
  716. begin
  717.   GetProcedureAddress(_GetDeviceDriverBaseName, PsapiLib, 'GetDeviceDriverBaseNameW');
  718.   asm
  719.     mov esp, ebp
  720.     pop ebp
  721.     jmp [_GetDeviceDriverBaseName]
  722.   end;
  723. end;
  724. {$ELSE}
  725. function GetDeviceDriverBaseName; external PsapiLib name 'GetDeviceDriverBaseNameW';
  726. {$ENDIF DYNAMIC_LINK}
  727. {$ELSE}
  729. {$IFDEF DYNAMIC_LINK}
  730. var
  731.   _GetDeviceDriverBaseName: Pointer;
  733. function GetDeviceDriverBaseName;
  734. begin
  735.   GetProcedureAddress(_GetDeviceDriverBaseName, PsapiLib, 'GetDeviceDriverBaseNameA');
  736.   asm
  737.     mov esp, ebp
  738.     pop ebp
  739.     jmp [_GetDeviceDriverBaseName]
  740.   end;
  741. end;
  742. {$ELSE}
  743. function GetDeviceDriverBaseName; external PsapiLib name 'GetDeviceDriverBaseNameA';
  744. {$ENDIF DYNAMIC_LINK}
  745. {$ENDIF}
  747. {$IFDEF DYNAMIC_LINK}
  748. var
  749.   _GetDeviceDriverFileNameA: Pointer;
  751. function GetDeviceDriverFileNameA;
  752. begin
  753.   GetProcedureAddress(_GetDeviceDriverFileNameA, PsapiLib, 'GetDeviceDriverFileNameA');
  754.   asm
  755.     mov esp, ebp
  756.     pop ebp
  757.     jmp [_GetDeviceDriverFileNameA]
  758.   end;
  759. end;
  760. {$ELSE}
  761. function GetDeviceDriverFileNameA; external PsapiLib name 'GetDeviceDriverFileNameA';
  762. {$ENDIF DYNAMIC_LINK}
  764. {$IFDEF DYNAMIC_LINK}
  765. var
  766.   _GetDeviceDriverFileNameW: Pointer;
  768. function GetDeviceDriverFileNameW;
  769. begin
  770.   GetProcedureAddress(_GetDeviceDriverFileNameW, PsapiLib, 'GetDeviceDriverFileNameW');
  771.   asm
  772.     mov esp, ebp
  773.     pop ebp
  774.     jmp [_GetDeviceDriverFileNameW]
  775.   end;
  776. end;
  777. {$ELSE}
  778. function GetDeviceDriverFileNameW; external PsapiLib name 'GetDeviceDriverFileNameW';
  779. {$ENDIF DYNAMIC_LINK}
  780. {$IFDEF UNICODE}
  782. {$IFDEF DYNAMIC_LINK}
  783. var
  784.   _GetDeviceDriverFileName: Pointer;
  786. function GetDeviceDriverFileName;
  787. begin
  788.   GetProcedureAddress(_GetDeviceDriverFileName, PsapiLib, 'GetDeviceDriverFileNameW');
  789.   asm
  790.     mov esp, ebp
  791.     pop ebp
  792.     jmp [_GetDeviceDriverFileName]
  793.   end;
  794. end;
  795. {$ELSE}
  796. function GetDeviceDriverFileName; external PsapiLib name 'GetDeviceDriverFileNameW';
  797. {$ENDIF DYNAMIC_LINK}
  798. {$ELSE}
  800. {$IFDEF DYNAMIC_LINK}
  801. var
  802.   _GetDeviceDriverFileName: Pointer;
  804. function GetDeviceDriverFileName;
  805. begin
  806.   GetProcedureAddress(_GetDeviceDriverFileName, PsapiLib, 'GetDeviceDriverFileNameA');
  807.   asm
  808.     mov esp, ebp
  809.     pop ebp
  810.     jmp [_GetDeviceDriverFileName]
  811.   end;
  812. end;
  813. {$ELSE}
  814. function GetDeviceDriverFileName; external PsapiLib name 'GetDeviceDriverFileNameA';
  815. {$ENDIF DYNAMIC_LINK}
  816. {$ENDIF}
  818. {$IFDEF DYNAMIC_LINK}
  819. var
  820.   _GetProcessMemoryInfo: Pointer;
  822. function GetProcessMemoryInfo;
  823. begin
  824.   GetProcedureAddress(_GetProcessMemoryInfo, PsapiLib, 'GetProcessMemoryInfo');
  825.   asm
  826.     mov esp, ebp
  827.     pop ebp
  828.     jmp [_GetProcessMemoryInfo]
  829.   end;
  830. end;
  831. {$ELSE}
  832. function GetProcessMemoryInfo; external PsapiLib name 'GetProcessMemoryInfo';
  833. {$ENDIF DYNAMIC_LINK}
  835. {$IFDEF DYNAMIC_LINK}
  836. var
  837.   _GetPerformanceInfo: Pointer;
  839. function GetPerformanceInfo;
  840. begin
  841.   GetProcedureAddress(_GetPerformanceInfo, PsapiLib, 'GetPerformanceInfo');
  842.   asm
  843.     mov esp, ebp
  844.     pop ebp
  845.     jmp [_GetPerformanceInfo]
  846.   end;
  847. end;
  848. {$ELSE}
  849. function GetPerformanceInfo; external PsapiLib name 'GetPerformanceInfo';
  850. {$ENDIF DYNAMIC_LINK}
  852. {$IFDEF DYNAMIC_LINK}
  853. var
  854.   _EnumPageFilesW: Pointer;
  856. function EnumPageFilesW;
  857. begin
  858.   GetProcedureAddress(_EnumPageFilesW, PsapiLib, 'EnumPageFilesA');
  859.   asm
  860.     mov esp, ebp
  861.     pop ebp
  862.     jmp [_EnumPageFilesW]
  863.   end;
  864. end;
  865. {$ELSE}
  866. function EnumPageFilesW; external PsapiLib name 'EnumPageFilesA';
  867. {$ENDIF DYNAMIC_LINK}
  869. {$IFDEF DYNAMIC_LINK}
  870. var
  871.   _EnumPageFilesA: Pointer;
  873. function EnumPageFilesA;
  874. begin
  875.   GetProcedureAddress(_EnumPageFilesA, PsapiLib, 'EnumPageFilesW');
  876.   asm
  877.     mov esp, ebp
  878.     pop ebp
  879.     jmp [_EnumPageFilesA]
  880.   end;
  881. end;
  882. {$ELSE}
  883. function EnumPageFilesA; external PsapiLib name 'EnumPageFilesW';
  884. {$ENDIF DYNAMIC_LINK}
  885. {$IFDEF UNICODE}
  887. {$IFDEF DYNAMIC_LINK}
  888. var
  889.   _EnumPageFiles: Pointer;
  891. function EnumPageFiles;
  892. begin
  893.   GetProcedureAddress(_EnumPageFiles, PsapiLib, 'EnumPageFilesW');
  894.   asm
  895.     mov esp, ebp
  896.     pop ebp
  897.     jmp [_EnumPageFiles]
  898.   end;
  899. end;
  900. {$ELSE}
  901. function EnumPageFiles; external PsapiLib name 'EnumPageFilesW';
  902. {$ENDIF DYNAMIC_LINK}
  903. {$ELSE}
  905. {$IFDEF DYNAMIC_LINK}
  906. var
  907.   _EnumPageFiles: Pointer;
  909. function EnumPageFiles;
  910. begin
  911.   GetProcedureAddress(_EnumPageFiles, PsapiLib, 'EnumPageFilesA');
  912.   asm
  913.     mov esp, ebp
  914.     pop ebp
  915.     jmp [_EnumPageFiles]
  916.   end;
  917. end;
  918. {$ELSE}
  919. function EnumPageFiles; external PsapiLib name 'EnumPageFilesA';
  920. {$ENDIF DYNAMIC_LINK}
  921. {$ENDIF}
  923. {$IFDEF DYNAMIC_LINK}
  924. var
  925.   _GetProcessImageFileNameA: Pointer;
  927. function GetProcessImageFileNameA;
  928. begin
  929.   GetProcedureAddress(_GetProcessImageFileNameA, PsapiLib, 'GetProcessImageFileNameA');
  930.   asm
  931.     mov esp, ebp
  932.     pop ebp
  933.     jmp [_GetProcessImageFileNameA]
  934.   end;
  935. end;
  936. {$ELSE}
  937. function GetProcessImageFileNameA; external PsapiLib name 'GetProcessImageFileNameA';
  938. {$ENDIF DYNAMIC_LINK}
  940. {$IFDEF DYNAMIC_LINK}
  941. var
  942.   _GetProcessImageFileNameW: Pointer;
  944. function GetProcessImageFileNameW;
  945. begin
  946.   GetProcedureAddress(_GetProcessImageFileNameW, PsapiLib, 'GetProcessImageFileNameW');
  947.   asm
  948.     mov esp, ebp
  949.     pop ebp
  950.     jmp [_GetProcessImageFileNameW]
  951.   end;
  952. end;
  953. {$ELSE}
  954. function GetProcessImageFileNameW; external PsapiLib name 'GetProcessImageFileNameW';
  955. {$ENDIF DYNAMIC_LINK}
  956. {$IFDEF UNICODE}
  958. {$IFDEF DYNAMIC_LINK}
  959. var
  960.   _GetProcessImageFileName: Pointer;
  962. function GetProcessImageFileName;
  963. begin
  964.   GetProcedureAddress(_GetProcessImageFileName, PsapiLib, 'GetProcessImageFileNameW');
  965.   asm
  966.     mov esp, ebp
  967.     pop ebp
  968.     jmp [_GetProcessImageFileName]
  969.   end;
  970. end;
  971. {$ELSE}
  972. function GetProcessImageFileName; external PsapiLib name 'GetProcessImageFileNameW';
  973. {$ENDIF DYNAMIC_LINK}
  974. {$ELSE}
  976. {$IFDEF DYNAMIC_LINK}
  977. var
  978.   _GetProcessImageFileName: Pointer;
  980. function GetProcessImageFileName;
  981. begin
  982.   GetProcedureAddress(_GetProcessImageFileName, PsapiLib, 'GetProcessImageFileNameA');
  983.   asm
  984.     mov esp, ebp
  985.     pop ebp
  986.     jmp [_GetProcessImageFileName]
  987.   end;
  988. end;
  989. {$ELSE}
  990. function GetProcessImageFileName; external PsapiLib name 'GetProcessImageFileNameA';
  991. {$ENDIF DYNAMIC_LINK}
  992. {$ENDIF}
  994. end.