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

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

Windows编程

开发平台：

Delphi

JwaWinVer.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Windows Version 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: winver.h, released June 2000. The original Pascal      }
  9. { code is: WinVer.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 JwaWinVer;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "WinVer.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinUser, JwaWinType; 
  59. const
  61. //  RT_VERSION = MAKEINTRESOURCE(16);
  63. // ----- Symbols -----
  65.   VS_FILE_INFO    = RT_VERSION;
  66.   {$EXTERNALSYM VS_FILE_INFO}
  67.   VS_VERSION_INFO = 1;
  68.   {$EXTERNALSYM VS_VERSION_INFO}
  69.   VS_USER_DEFINED = 100;
  70.   {$EXTERNALSYM VS_USER_DEFINED}
  72. // ----- VS_VERSION.dwFileFlags -----
  74.   VS_FFI_SIGNATURE     = $FEEF04BD;
  75.   {$EXTERNALSYM VS_FFI_SIGNATURE}
  76.   VS_FFI_STRUCVERSION  = $00010000;
  77.   {$EXTERNALSYM VS_FFI_STRUCVERSION}
  78.   VS_FFI_FILEFLAGSMASK = $0000003F;
  79.   {$EXTERNALSYM VS_FFI_FILEFLAGSMASK}
  81. // ----- VS_VERSION.dwFileFlags -----
  83.   VS_FF_DEBUG        = $00000001;
  84.   {$EXTERNALSYM VS_FF_DEBUG}
  85.   VS_FF_PRERELEASE   = $00000002;
  86.   {$EXTERNALSYM VS_FF_PRERELEASE}
  87.   VS_FF_PATCHED      = $00000004;
  88.   {$EXTERNALSYM VS_FF_PATCHED}
  89.   VS_FF_PRIVATEBUILD = $00000008;
  90.   {$EXTERNALSYM VS_FF_PRIVATEBUILD}
  91.   VS_FF_INFOINFERRED = $00000010;
  92.   {$EXTERNALSYM VS_FF_INFOINFERRED}
  93.   VS_FF_SPECIALBUILD = $00000020;
  94.   {$EXTERNALSYM VS_FF_SPECIALBUILD}
  96. // ----- VS_VERSION.dwFileOS -----
  98.   VOS_UNKNOWN = $00000000;
  99.   {$EXTERNALSYM VOS_UNKNOWN}
  100.   VOS_DOS     = $00010000;
  101.   {$EXTERNALSYM VOS_DOS}
  102.   VOS_OS216   = $00020000;
  103.   {$EXTERNALSYM VOS_OS216}
  104.   VOS_OS232   = $00030000;
  105.   {$EXTERNALSYM VOS_OS232}
  106.   VOS_NT      = $00040000;
  107.   {$EXTERNALSYM VOS_NT}
  108.   VOS_WINCE   = $00050000;
  109.   {$EXTERNALSYM VOS_WINCE}
  111.   VOS__BASE      = $00000000;
  112.   {$EXTERNALSYM VOS__BASE}
  113.   VOS__WINDOWS16 = $00000001;
  114.   {$EXTERNALSYM VOS__WINDOWS16}
  115.   VOS__PM16      = $00000002;
  116.   {$EXTERNALSYM VOS__PM16}
  117.   VOS__PM32      = $00000003;
  118.   {$EXTERNALSYM VOS__PM32}
  119.   VOS__WINDOWS32 = $00000004;
  120.   {$EXTERNALSYM VOS__WINDOWS32}
  122.   VOS_DOS_WINDOWS16 = $00010001;
  123.   {$EXTERNALSYM VOS_DOS_WINDOWS16}
  124.   VOS_DOS_WINDOWS32 = $00010004;
  125.   {$EXTERNALSYM VOS_DOS_WINDOWS32}
  126.   VOS_OS216_PM16    = $00020002;
  127.   {$EXTERNALSYM VOS_OS216_PM16}
  128.   VOS_OS232_PM32    = $00030003;
  129.   {$EXTERNALSYM VOS_OS232_PM32}
  130.   VOS_NT_WINDOWS32  = $00040004;
  131.   {$EXTERNALSYM VOS_NT_WINDOWS32}
  133. // ----- VS_VERSION.dwFileType -----
  135.   VFT_UNKNOWN    = $00000000;
  136.   {$EXTERNALSYM VFT_UNKNOWN}
  137.   VFT_APP        = $00000001;
  138.   {$EXTERNALSYM VFT_APP}
  139.   VFT_DLL        = $00000002;
  140.   {$EXTERNALSYM VFT_DLL}
  141.   VFT_DRV        = $00000003;
  142.   {$EXTERNALSYM VFT_DRV}
  143.   VFT_FONT       = $00000004;
  144.   {$EXTERNALSYM VFT_FONT}
  145.   VFT_VXD        = $00000005;
  146.   {$EXTERNALSYM VFT_VXD}
  147.   VFT_STATIC_LIB = $00000007;
  148.   {$EXTERNALSYM VFT_STATIC_LIB}
  150. // ----- VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV -----
  152.   VFT2_UNKNOWN         = $00000000;
  153.   {$EXTERNALSYM VFT2_UNKNOWN}
  154.   VFT2_DRV_PRINTER     = $00000001;
  155.   {$EXTERNALSYM VFT2_DRV_PRINTER}
  156.   VFT2_DRV_KEYBOARD    = $00000002;
  157.   {$EXTERNALSYM VFT2_DRV_KEYBOARD}
  158.   VFT2_DRV_LANGUAGE    = $00000003;
  159.   {$EXTERNALSYM VFT2_DRV_LANGUAGE}
  160.   VFT2_DRV_DISPLAY     = $00000004;
  161.   {$EXTERNALSYM VFT2_DRV_DISPLAY}
  162.   VFT2_DRV_MOUSE       = $00000005;
  163.   {$EXTERNALSYM VFT2_DRV_MOUSE}
  164.   VFT2_DRV_NETWORK     = $00000006;
  165.   {$EXTERNALSYM VFT2_DRV_NETWORK}
  166.   VFT2_DRV_SYSTEM      = $00000007;
  167.   {$EXTERNALSYM VFT2_DRV_SYSTEM}
  168.   VFT2_DRV_INSTALLABLE = $00000008;
  169.   {$EXTERNALSYM VFT2_DRV_INSTALLABLE}
  170.   VFT2_DRV_SOUND       = $00000009;
  171.   {$EXTERNALSYM VFT2_DRV_SOUND}
  172.   VFT2_DRV_COMM        = $0000000A;
  173.   {$EXTERNALSYM VFT2_DRV_COMM}
  174.   VFT2_DRV_INPUTMETHOD = $0000000B;
  175.   {$EXTERNALSYM VFT2_DRV_INPUTMETHOD}
  176.   VFT2_DRV_VERSIONED_PRINTER = $0000000C;
  177.   {$EXTERNALSYM VFT2_DRV_VERSIONED_PRINTER}
  179. // ----- VS_VERSION.dwFileSubtype for VFT_WINDOWS_FONT -----
  181.   VFT2_FONT_RASTER   = $00000001;
  182.   {$EXTERNALSYM VFT2_FONT_RASTER}
  183.   VFT2_FONT_VECTOR   = $00000002;
  184.   {$EXTERNALSYM VFT2_FONT_VECTOR}
  185.   VFT2_FONT_TRUETYPE = $00000003;
  186.   {$EXTERNALSYM VFT2_FONT_TRUETYPE}
  188. // ----- VerFindFile() flags -----
  190.   VFFF_ISSHAREDFILE = $0001;
  191.   {$EXTERNALSYM VFFF_ISSHAREDFILE}
  193.   VFF_CURNEDEST     = $0001;
  194.   {$EXTERNALSYM VFF_CURNEDEST}
  195.   VFF_FILEINUSE     = $0002;
  196.   {$EXTERNALSYM VFF_FILEINUSE}
  197.   VFF_BUFFTOOSMALL  = $0004;
  198.   {$EXTERNALSYM VFF_BUFFTOOSMALL}
  200. // ----- VerInstallFile() flags -----
  202.   VIFF_FORCEINSTALL  = $0001;
  203.   {$EXTERNALSYM VIFF_FORCEINSTALL}
  204.   VIFF_DONTDELETEOLD = $0002;
  205.   {$EXTERNALSYM VIFF_DONTDELETEOLD}
  207.   VIF_TEMPFILE = $00000001;
  208.   {$EXTERNALSYM VIF_TEMPFILE}
  209.   VIF_MISMATCH = $00000002;
  210.   {$EXTERNALSYM VIF_MISMATCH}
  211.   VIF_SRCOLD   = $00000004;
  212.   {$EXTERNALSYM VIF_SRCOLD}
  214.   VIF_DIFFLANG   = $00000008;
  215.   {$EXTERNALSYM VIF_DIFFLANG}
  216.   VIF_DIFFCODEPG = $00000010;
  217.   {$EXTERNALSYM VIF_DIFFCODEPG}
  218.   VIF_DIFFTYPE   = $00000020;
  219.   {$EXTERNALSYM VIF_DIFFTYPE}
  221.   VIF_WRITEPROT        = $00000040;
  222.   {$EXTERNALSYM VIF_WRITEPROT}
  223.   VIF_FILEINUSE        = $00000080;
  224.   {$EXTERNALSYM VIF_FILEINUSE}
  225.   VIF_OUTOFSPACE       = $00000100;
  226.   {$EXTERNALSYM VIF_OUTOFSPACE}
  227.   VIF_ACCESSVIOLATION  = $00000200;
  228.   {$EXTERNALSYM VIF_ACCESSVIOLATION}
  229.   VIF_SHARINGVIOLATION = $00000400;
  230.   {$EXTERNALSYM VIF_SHARINGVIOLATION}
  231.   VIF_CANNOTCREATE     = $00000800;
  232.   {$EXTERNALSYM VIF_CANNOTCREATE}
  233.   VIF_CANNOTDELETE     = $00001000;
  234.   {$EXTERNALSYM VIF_CANNOTDELETE}
  235.   VIF_CANNOTRENAME     = $00002000;
  236.   {$EXTERNALSYM VIF_CANNOTRENAME}
  237.   VIF_CANNOTDELETECUR  = $00004000;
  238.   {$EXTERNALSYM VIF_CANNOTDELETECUR}
  239.   VIF_OUTOFMEMORY      = $00008000;
  240.   {$EXTERNALSYM VIF_OUTOFMEMORY}
  242.   VIF_CANNOTREADSRC = $00010000;
  243.   {$EXTERNALSYM VIF_CANNOTREADSRC}
  244.   VIF_CANNOTREADDST = $00020000;
  245.   {$EXTERNALSYM VIF_CANNOTREADDST}
  247.   VIF_BUFFTOOSMALL      = $00040000;
  248.   {$EXTERNALSYM VIF_BUFFTOOSMALL}
  249.   VIF_CANNOTLOADLZ32    = $00080000;
  250.   {$EXTERNALSYM VIF_CANNOTLOADLZ32}
  251.   VIF_CANNOTLOADCABINET = $00100000;
  252.   {$EXTERNALSYM VIF_CANNOTLOADCABINET}
  254. // ----- Types and structures -----
  256. type
  257. {$IFDEF USEDELPHI5}
  258.   PVSFixedFileInfo = Windows.PVSFixedFileInfo;
  259.   tagVS_FIXEDFILEINFO = Windows.tagVS_FIXEDFILEINFO;
  260.   VS_FIXEDFILEINFO = Windows.VS_FIXEDFILEINFO;
  261.   TVSFixedFileInfo = Windows.TVSFixedFileInfo;
  262. {$ELSE}
  263.   PVSFixedFileInfo = ^VS_FIXEDFILEINFO;
  264.   tagVS_FIXEDFILEINFO = record
  265.     dwSignature: DWORD;        // e.g. 0xfeef04bd
  266.     dwStrucVersion: DWORD;     // e.g. 0x00000042 = "0.42"
  267.     dwFileVersionMS: DWORD;    // e.g. 0x00030075 = "3.75"
  268.     dwFileVersionLS: DWORD;    // e.g. 0x00000031 = "0.31"
  269.     dwProductVersionMS: DWORD; // e.g. 0x00030010 = "3.10"
  270.     dwProductVersionLS: DWORD; // e.g. 0x00000031 = "0.31"
  271.     dwFileFlagsMask: DWORD;    // = 0x3F for version "0.42"
  272.     dwFileFlags: DWORD;        // e.g. VFF_DEBUG | VFF_PRERELEASE
  273.     dwFileOS: DWORD;           // e.g. VOS_DOS_WINDOWS16
  274.     dwFileType: DWORD;         // e.g. VFT_DRIVER
  275.     dwFileSubtype: DWORD;      // e.g. VFT2_DRV_KEYBOARD
  276.     dwFileDateMS: DWORD;       // e.g. 0
  277.     dwFileDateLS: DWORD;       // e.g. 0
  278.   end;
  279.   {$EXTERNALSYM tagVS_FIXEDFILEINFO}
  280.   VS_FIXEDFILEINFO = tagVS_FIXEDFILEINFO;
  281.   {$EXTERNALSYM VS_FIXEDFILEINFO}
  282.   TVSFixedFileInfo = VS_FIXEDFILEINFO;
  283. {$ENDIF}
  285. // ----- Function prototypes -----
  287. function VerFindFileA(uFlags: DWORD; szFileName, szWinDir, szAppDir,
  288.   szCurDir: LPSTR; var lpuCurDirLen: UINT; szDestDir: LPSTR;
  289.   var lpuDestDirLen: UINT): DWORD; stdcall;
  290. {$EXTERNALSYM VerFindFileA}
  291. function VerFindFileW(uFlags: DWORD; szFileName, szWinDir, szAppDir,
  292.   szCurDir: LPWSTR; var lpuCurDirLen: UINT; szDestDir: LPWSTR;
  293.   var lpuDestDirLen: UINT): DWORD; stdcall;
  294. {$EXTERNALSYM VerFindFileW}
  296. {$IFDEF UNICODE}
  297. function VerFindFile(uFlags: DWORD; szFileName, szWinDir, szAppDir,
  298.   szCurDir: LPWSTR; var lpuCurDirLen: UINT; szDestDir: LPWSTR;
  299.   var lpuDestDirLen: UINT): DWORD; stdcall;
  300. {$EXTERNALSYM VerFindFile}
  301. {$ELSE}
  302. function VerFindFile(uFlags: DWORD; szFileName, szWinDir, szAppDir,
  303.   szCurDir: LPSTR; var lpuCurDirLen: UINT; szDestDir: LPSTR;
  304.   var lpuDestDirLen: UINT): DWORD; stdcall;
  305. {$EXTERNALSYM VerFindFile}
  306. {$ENDIF}
  308. function VerInstallFileA(uFlags: DWORD; szSrcFileName, szDestFileName, szSrcDir,
  309.   szDestDir, szCurDir, szTmpFile: LPSTR; var lpuTmpFileLen: UINT): DWORD; stdcall;
  310. {$EXTERNALSYM VerInstallFileA}
  311. function VerInstallFileW(uFlags: DWORD; szSrcFileName, szDestFileName, szSrcDir,
  312.   szDestDir, szCurDir, szTmpFile: LPWSTR; var lpuTmpFileLen: UINT): DWORD; stdcall;
  313. {$EXTERNALSYM VerInstallFileW}
  315. {$IFDEF UNICODE}
  316. function VerInstallFile(uFlags: DWORD; szSrcFileName, szDestFileName, szSrcDir,
  317.   szDestDir, szCurDir, szTmpFile: LPWSTR; var lpuTmpFileLen: UINT): DWORD; stdcall;
  318. {$EXTERNALSYM VerInstallFile}
  319. {$ELSE}
  320. function VerInstallFile(uFlags: DWORD; szSrcFileName, szDestFileName, szSrcDir,
  321.   szDestDir, szCurDir, szTmpFile: LPSTR; var lpuTmpFileLen: UINT): DWORD; stdcall;
  322. {$EXTERNALSYM VerInstallFile}
  323. {$ENDIF}
  325. // Returns size of version info in bytes
  327. function GetFileVersionInfoSizeA(lptstrFilename: LPCSTR; var lpdwHandle: DWORD): DWORD; stdcall;
  328. {$EXTERNALSYM GetFileVersionInfoSizeA}
  329. function GetFileVersionInfoSizeW(lptstrFilename: LPCWSTR; var lpdwHandle: DWORD): DWORD; stdcall;
  330. {$EXTERNALSYM GetFileVersionInfoSizeW}
  332. {$IFDEF UNICODE}
  333. function GetFileVersionInfoSize(lptstrFilename: LPCWSTR; var lpdwHandle: DWORD): DWORD; stdcall;
  334. {$EXTERNALSYM GetFileVersionInfoSize}
  335. {$ELSE}
  336. function GetFileVersionInfoSize(lptstrFilename: LPCSTR; var lpdwHandle: DWORD): DWORD; stdcall;
  337. {$EXTERNALSYM GetFileVersionInfoSize}
  338. {$ENDIF}
  340. // Read version info into buffer
  342. function GetFileVersionInfoA(lptstrFilename: LPCSTR; dwHandle, dwLen: DWORD;
  343.   lpData: LPVOID): BOOL; stdcall;
  344. {$EXTERNALSYM GetFileVersionInfoA}
  345. function GetFileVersionInfoW(lptstrFilename: LPCWSTR; dwHandle, dwLen: DWORD;
  346.   lpData: LPVOID): BOOL; stdcall;
  347. {$EXTERNALSYM GetFileVersionInfoW}
  349. {$IFDEF UNICODE}
  350. function GetFileVersionInfo(lptstrFilename: LPCWSTR; dwHandle, dwLen: DWORD;
  351.   lpData: LPVOID): BOOL; stdcall;
  352. {$EXTERNALSYM GetFileVersionInfo}
  353. {$ELSE}
  354. function GetFileVersionInfo(lptstrFilename: LPCSTR; dwHandle, dwLen: DWORD;
  355.   lpData: LPVOID): BOOL; stdcall;
  356. {$EXTERNALSYM GetFileVersionInfo}
  357. {$ENDIF}
  359. function VerLanguageNameA(wLang: DWORD; szLang: LPSTR; nSize: DWORD): DWORD; stdcall;
  360. {$EXTERNALSYM VerLanguageNameA}
  361. function VerLanguageNameW(wLang: DWORD; szLang: LPWSTR; nSize: DWORD): DWORD; stdcall;
  362. {$EXTERNALSYM VerLanguageNameW}
  364. {$IFDEF UNICODE}
  365. function VerLanguageName(wLang: DWORD; szLang: LPWSTR; nSize: DWORD): DWORD; stdcall;
  366. {$EXTERNALSYM VerLanguageName}
  367. {$ELSE}
  368. function VerLanguageName(wLang: DWORD; szLang: LPSTR; nSize: DWORD): DWORD; stdcall;
  369. {$EXTERNALSYM VerLanguageName}
  370. {$ENDIF}
  372. function VerQueryValueA(pBlock: LPVOID; lpSubBlock: LPSTR; var lplpBuffer: LPVOID;
  373.   var puLen: UINT): BOOL; stdcall;
  374. {$EXTERNALSYM VerQueryValueA}
  375. function VerQueryValueW(pBlock: LPVOID; lpSubBlock: LPWSTR; var lplpBuffer: LPVOID;
  376.   var puLen: UINT): BOOL; stdcall;
  377. {$EXTERNALSYM VerQueryValueW}
  379. {$IFDEF UNICODE}
  380. function VerQueryValue(pBlock: LPVOID; lpSubBlock: LPWSTR; var lplpBuffer: LPVOID;
  381.   var puLen: UINT): BOOL; stdcall;
  382. {$EXTERNALSYM VerQueryValue}
  383. {$ELSE}
  384. function VerQueryValue(pBlock: LPVOID; lpSubBlock: LPSTR; var lplpBuffer: LPVOID;
  385.   var puLen: UINT): BOOL; stdcall;
  386. {$EXTERNALSYM VerQueryValue}
  387. {$ENDIF}
  389. implementation
  391. const
  392.   Version = 'version.dll';
  395. {$IFDEF DYNAMIC_LINK}
  396. var
  397.   _VerFindFileA: Pointer;
  399. function VerFindFileA;
  400. begin
  401.   GetProcedureAddress(_VerFindFileA, Version, 'VerFindFileA');
  402.   asm
  403.     mov esp, ebp
  404.     pop ebp
  405.     jmp [_VerFindFileA]
  406.   end;
  407. end;
  408. {$ELSE}
  409. function VerFindFileA; external Version name 'VerFindFileA';
  410. {$ENDIF DYNAMIC_LINK}
  412. {$IFDEF DYNAMIC_LINK}
  413. var
  414.   _VerFindFileW: Pointer;
  416. function VerFindFileW;
  417. begin
  418.   GetProcedureAddress(_VerFindFileW, Version, 'VerFindFileW');
  419.   asm
  420.     mov esp, ebp
  421.     pop ebp
  422.     jmp [_VerFindFileW]
  423.   end;
  424. end;
  425. {$ELSE}
  426. function VerFindFileW; external Version name 'VerFindFileW';
  427. {$ENDIF DYNAMIC_LINK}
  429. {$IFDEF UNICODE}
  431. {$IFDEF DYNAMIC_LINK}
  432. var
  433.   _VerFindFile: Pointer;
  435. function VerFindFile;
  436. begin
  437.   GetProcedureAddress(_VerFindFile, Version, 'VerFindFileW');
  438.   asm
  439.     mov esp, ebp
  440.     pop ebp
  441.     jmp [_VerFindFile]
  442.   end;
  443. end;
  444. {$ELSE}
  445. function VerFindFile; external Version name 'VerFindFileW';
  446. {$ENDIF DYNAMIC_LINK}
  447. {$ELSE}
  449. {$IFDEF DYNAMIC_LINK}
  450. var
  451.   _VerFindFile: Pointer;
  453. function VerFindFile;
  454. begin
  455.   GetProcedureAddress(_VerFindFile, Version, 'VerFindFileA');
  456.   asm
  457.     mov esp, ebp
  458.     pop ebp
  459.     jmp [_VerFindFile]
  460.   end;
  461. end;
  462. {$ELSE}
  463. function VerFindFile; external Version name 'VerFindFileA';
  464. {$ENDIF DYNAMIC_LINK}
  465. {$ENDIF}
  468. {$IFDEF DYNAMIC_LINK}
  469. var
  470.   _VerInstallFileA: Pointer;
  472. function VerInstallFileA;
  473. begin
  474.   GetProcedureAddress(_VerInstallFileA, Version, 'VerInstallFileA');
  475.   asm
  476.     mov esp, ebp
  477.     pop ebp
  478.     jmp [_VerInstallFileA]
  479.   end;
  480. end;
  481. {$ELSE}
  482. function VerInstallFileA; external Version name 'VerInstallFileA';
  483. {$ENDIF DYNAMIC_LINK}
  485. {$IFDEF DYNAMIC_LINK}
  486. var
  487.   _VerInstallFileW: Pointer;
  489. function VerInstallFileW;
  490. begin
  491.   GetProcedureAddress(_VerInstallFileW, Version, 'VerInstallFileW');
  492.   asm
  493.     mov esp, ebp
  494.     pop ebp
  495.     jmp [_VerInstallFileW]
  496.   end;
  497. end;
  498. {$ELSE}
  499. function VerInstallFileW; external Version name 'VerInstallFileW';
  500. {$ENDIF DYNAMIC_LINK}
  502. {$IFDEF UNICODE}
  504. {$IFDEF DYNAMIC_LINK}
  505. var
  506.   _VerInstallFile: Pointer;
  508. function VerInstallFile;
  509. begin
  510.   GetProcedureAddress(_VerInstallFile, Version, 'VerInstallFileW');
  511.   asm
  512.     mov esp, ebp
  513.     pop ebp
  514.     jmp [_VerInstallFile]
  515.   end;
  516. end;
  517. {$ELSE}
  518. function VerInstallFile; external Version name 'VerInstallFileW';
  519. {$ENDIF DYNAMIC_LINK}
  520. {$ELSE}
  522. {$IFDEF DYNAMIC_LINK}
  523. var
  524.   _VerInstallFile: Pointer;
  526. function VerInstallFile;
  527. begin
  528.   GetProcedureAddress(_VerInstallFile, Version, 'VerInstallFileA');
  529.   asm
  530.     mov esp, ebp
  531.     pop ebp
  532.     jmp [_VerInstallFile]
  533.   end;
  534. end;
  535. {$ELSE}
  536. function VerInstallFile; external Version name 'VerInstallFileA';
  537. {$ENDIF DYNAMIC_LINK}
  538. {$ENDIF}
  541. {$IFDEF DYNAMIC_LINK}
  542. var
  543.   _GetFileVersionInfoSizeA: Pointer;
  545. function GetFileVersionInfoSizeA;
  546. begin
  547.   GetProcedureAddress(_GetFileVersionInfoSizeA, Version, 'GetFileVersionInfoSizeA');
  548.   asm
  549.     mov esp, ebp
  550.     pop ebp
  551.     jmp [_GetFileVersionInfoSizeA]
  552.   end;
  553. end;
  554. {$ELSE}
  555. function GetFileVersionInfoSizeA; external Version name 'GetFileVersionInfoSizeA';
  556. {$ENDIF DYNAMIC_LINK}
  558. {$IFDEF DYNAMIC_LINK}
  559. var
  560.   _GetFileVersionInfoSizeW: Pointer;
  562. function GetFileVersionInfoSizeW;
  563. begin
  564.   GetProcedureAddress(_GetFileVersionInfoSizeW, Version, 'GetFileVersionInfoSizeW');
  565.   asm
  566.     mov esp, ebp
  567.     pop ebp
  568.     jmp [_GetFileVersionInfoSizeW]
  569.   end;
  570. end;
  571. {$ELSE}
  572. function GetFileVersionInfoSizeW; external Version name 'GetFileVersionInfoSizeW';
  573. {$ENDIF DYNAMIC_LINK}
  575. {$IFDEF UNICODE}
  577. {$IFDEF DYNAMIC_LINK}
  578. var
  579.   _GetFileVersionInfoSize: Pointer;
  581. function GetFileVersionInfoSize;
  582. begin
  583.   GetProcedureAddress(_GetFileVersionInfoSize, Version, 'GetFileVersionInfoSizeW');
  584.   asm
  585.     mov esp, ebp
  586.     pop ebp
  587.     jmp [_GetFileVersionInfoSize]
  588.   end;
  589. end;
  590. {$ELSE}
  591. function GetFileVersionInfoSize; external Version name 'GetFileVersionInfoSizeW';
  592. {$ENDIF DYNAMIC_LINK}
  593. {$ELSE}
  595. {$IFDEF DYNAMIC_LINK}
  596. var
  597.   _GetFileVersionInfoSize: Pointer;
  599. function GetFileVersionInfoSize;
  600. begin
  601.   GetProcedureAddress(_GetFileVersionInfoSize, Version, 'GetFileVersionInfoSizeA');
  602.   asm
  603.     mov esp, ebp
  604.     pop ebp
  605.     jmp [_GetFileVersionInfoSize]
  606.   end;
  607. end;
  608. {$ELSE}
  609. function GetFileVersionInfoSize; external Version name 'GetFileVersionInfoSizeA';
  610. {$ENDIF DYNAMIC_LINK}
  611. {$ENDIF}
  614. {$IFDEF DYNAMIC_LINK}
  615. var
  616.   _GetFileVersionInfoA: Pointer;
  618. function GetFileVersionInfoA;
  619. begin
  620.   GetProcedureAddress(_GetFileVersionInfoA, Version, 'GetFileVersionInfoA');
  621.   asm
  622.     mov esp, ebp
  623.     pop ebp
  624.     jmp [_GetFileVersionInfoA]
  625.   end;
  626. end;
  627. {$ELSE}
  628. function GetFileVersionInfoA; external Version name 'GetFileVersionInfoA';
  629. {$ENDIF DYNAMIC_LINK}
  631. {$IFDEF DYNAMIC_LINK}
  632. var
  633.   _GetFileVersionInfoW: Pointer;
  635. function GetFileVersionInfoW;
  636. begin
  637.   GetProcedureAddress(_GetFileVersionInfoW, Version, 'GetFileVersionInfoW');
  638.   asm
  639.     mov esp, ebp
  640.     pop ebp
  641.     jmp [_GetFileVersionInfoW]
  642.   end;
  643. end;
  644. {$ELSE}
  645. function GetFileVersionInfoW; external Version name 'GetFileVersionInfoW';
  646. {$ENDIF DYNAMIC_LINK}
  648. {$IFDEF UNICODE}
  650. {$IFDEF DYNAMIC_LINK}
  651. var
  652.   _GetFileVersionInfo: Pointer;
  654. function GetFileVersionInfo;
  655. begin
  656.   GetProcedureAddress(_GetFileVersionInfo, Version, 'GetFileVersionInfoW');
  657.   asm
  658.     mov esp, ebp
  659.     pop ebp
  660.     jmp [_GetFileVersionInfo]
  661.   end;
  662. end;
  663. {$ELSE}
  664. function GetFileVersionInfo; external Version name 'GetFileVersionInfoW';
  665. {$ENDIF DYNAMIC_LINK}
  666. {$ELSE}
  668. {$IFDEF DYNAMIC_LINK}
  669. var
  670.   _GetFileVersionInfo: Pointer;
  672. function GetFileVersionInfo;
  673. begin
  674.   GetProcedureAddress(_GetFileVersionInfo, Version, 'GetFileVersionInfoA');
  675.   asm
  676.     mov esp, ebp
  677.     pop ebp
  678.     jmp [_GetFileVersionInfo]
  679.   end;
  680. end;
  681. {$ELSE}
  682. function GetFileVersionInfo; external Version name 'GetFileVersionInfoA';
  683. {$ENDIF DYNAMIC_LINK}
  684. {$ENDIF}
  687. {$IFDEF DYNAMIC_LINK}
  688. var
  689.   _VerLanguageNameA: Pointer;
  691. function VerLanguageNameA;
  692. begin
  693.   GetProcedureAddress(_VerLanguageNameA, Version, 'VerLanguageNameA');
  694.   asm
  695.     mov esp, ebp
  696.     pop ebp
  697.     jmp [_VerLanguageNameA]
  698.   end;
  699. end;
  700. {$ELSE}
  701. function VerLanguageNameA; external Version name 'VerLanguageNameA';
  702. {$ENDIF DYNAMIC_LINK}
  704. {$IFDEF DYNAMIC_LINK}
  705. var
  706.   _VerLanguageNameW: Pointer;
  708. function VerLanguageNameW;
  709. begin
  710.   GetProcedureAddress(_VerLanguageNameW, Version, 'VerLanguageNameW');
  711.   asm
  712.     mov esp, ebp
  713.     pop ebp
  714.     jmp [_VerLanguageNameW]
  715.   end;
  716. end;
  717. {$ELSE}
  718. function VerLanguageNameW; external Version name 'VerLanguageNameW';
  719. {$ENDIF DYNAMIC_LINK}
  721. {$IFDEF UNICODE}
  723. {$IFDEF DYNAMIC_LINK}
  724. var
  725.   _VerLanguageName: Pointer;
  727. function VerLanguageName;
  728. begin
  729.   GetProcedureAddress(_VerLanguageName, Version, 'VerLanguageNameW');
  730.   asm
  731.     mov esp, ebp
  732.     pop ebp
  733.     jmp [_VerLanguageName]
  734.   end;
  735. end;
  736. {$ELSE}
  737. function VerLanguageName; external Version name 'VerLanguageNameW';
  738. {$ENDIF DYNAMIC_LINK}
  739. {$ELSE}
  741. {$IFDEF DYNAMIC_LINK}
  742. var
  743.   _VerLanguageName: Pointer;
  745. function VerLanguageName;
  746. begin
  747.   GetProcedureAddress(_VerLanguageName, Version, 'VerLanguageNameA');
  748.   asm
  749.     mov esp, ebp
  750.     pop ebp
  751.     jmp [_VerLanguageName]
  752.   end;
  753. end;
  754. {$ELSE}
  755. function VerLanguageName; external Version name 'VerLanguageNameA';
  756. {$ENDIF DYNAMIC_LINK}
  757. {$ENDIF}
  760. {$IFDEF DYNAMIC_LINK}
  761. var
  762.   _VerQueryValueA: Pointer;
  764. function VerQueryValueA;
  765. begin
  766.   GetProcedureAddress(_VerQueryValueA, Version, 'VerQueryValueA');
  767.   asm
  768.     mov esp, ebp
  769.     pop ebp
  770.     jmp [_VerQueryValueA]
  771.   end;
  772. end;
  773. {$ELSE}
  774. function VerQueryValueA; external Version name 'VerQueryValueA';
  775. {$ENDIF DYNAMIC_LINK}
  777. {$IFDEF DYNAMIC_LINK}
  778. var
  779.   _VerQueryValueW: Pointer;
  781. function VerQueryValueW;
  782. begin
  783.   GetProcedureAddress(_VerQueryValueW, Version, 'VerQueryValueW');
  784.   asm
  785.     mov esp, ebp
  786.     pop ebp
  787.     jmp [_VerQueryValueW]
  788.   end;
  789. end;
  790. {$ELSE}
  791. function VerQueryValueW; external Version name 'VerQueryValueW';
  792. {$ENDIF DYNAMIC_LINK}
  794. {$IFDEF UNICODE}
  796. {$IFDEF DYNAMIC_LINK}
  797. var
  798.   _VerQueryValue: Pointer;
  800. function VerQueryValue;
  801. begin
  802.   GetProcedureAddress(_VerQueryValue, Version, 'VerQueryValueW');
  803.   asm
  804.     mov esp, ebp
  805.     pop ebp
  806.     jmp [_VerQueryValue]
  807.   end;
  808. end;
  809. {$ELSE}
  810. function VerQueryValue; external Version name 'VerQueryValueW';
  811. {$ENDIF DYNAMIC_LINK}
  812. {$ELSE}
  814. {$IFDEF DYNAMIC_LINK}
  815. var
  816.   _VerQueryValue: Pointer;
  818. function VerQueryValue;
  819. begin
  820.   GetProcedureAddress(_VerQueryValue, Version, 'VerQueryValueA');
  821.   asm
  822.     mov esp, ebp
  823.     pop ebp
  824.     jmp [_VerQueryValue]
  825.   end;
  826. end;
  827. {$ELSE}
  828. function VerQueryValue; external Version name 'VerQueryValueA';
  829. {$ENDIF DYNAMIC_LINK}
  830. {$ENDIF}
  832. end.