home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-winver.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  16.6 KB  |  285 lines

  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-winver.ads,v $ 
  2. -- $Revision: 1.10 $ $Date: 96/03/15 12:58:38 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Winuser;
  6.  
  7. package Win32.Winver is
  8.  
  9.     VS_FILE_INFO           : Win32.LPSTR renames Win32.Winuser.RT_VERSION;
  10.                                                             -- winver.h:21
  11.     VS_VERSION_INFO        : constant := 1;                 -- winver.h:22
  12.     VS_USER_DEFINED        : constant := 100;               -- winver.h:23
  13.     VS_FFI_SIGNATURE       : constant := 16#feef04bd#;      -- winver.h:26
  14.     VS_FFI_STRUCVERSION    : constant := 16#10000#;         -- winver.h:27
  15.     VS_FFI_FILEFLAGSMASK   : constant := 16#3f#;            -- winver.h:28
  16.     VS_FF_DEBUG            : constant := 16#1#;             -- winver.h:31
  17.     VS_FF_PRERELEASE       : constant := 16#2#;             -- winver.h:32
  18.     VS_FF_PATCHED          : constant := 16#4#;             -- winver.h:33
  19.     VS_FF_PRIVATEBUILD     : constant := 16#8#;             -- winver.h:34
  20.     VS_FF_INFOINFERRED     : constant := 16#10#;            -- winver.h:35
  21.     VS_FF_SPECIALBUILD     : constant := 16#20#;            -- winver.h:36
  22.     VOS_UNKNOWN            : constant := 16#0#;             -- winver.h:39
  23.     VOS_DOS                : constant := 16#10000#;         -- winver.h:40
  24.     VOS_OS216              : constant := 16#20000#;         -- winver.h:41
  25.     VOS_OS232              : constant := 16#30000#;         -- winver.h:42
  26.     VOS_NT                 : constant := 16#40000#;         -- winver.h:43
  27.     VOS_BASE               : constant := 16#0#;             -- winver.h:45
  28.     VOS_WINDOWS16          : constant := 16#1#;             -- winver.h:46
  29.     VOS_PM16               : constant := 16#2#;             -- winver.h:47
  30.     VOS_PM32               : constant := 16#3#;             -- winver.h:48
  31.     VOS_WINDOWS32          : constant := 16#4#;             -- winver.h:49
  32.     VOS_DOS_WINDOWS16      : constant := 16#10001#;         -- winver.h:51
  33.     VOS_DOS_WINDOWS32      : constant := 16#10004#;         -- winver.h:52
  34.     VOS_OS216_PM16         : constant := 16#20002#;         -- winver.h:53
  35.     VOS_OS232_PM32         : constant := 16#30003#;         -- winver.h:54
  36.     VOS_NT_WINDOWS32       : constant := 16#40004#;         -- winver.h:55
  37.     VFT_UNKNOWN            : constant := 16#0#;             -- winver.h:58
  38.     VFT_APP                : constant := 16#1#;             -- winver.h:59
  39.     VFT_DLL                : constant := 16#2#;             -- winver.h:60
  40.     VFT_DRV                : constant := 16#3#;             -- winver.h:61
  41.     VFT_FONT               : constant := 16#4#;             -- winver.h:62
  42.     VFT_VXD                : constant := 16#5#;             -- winver.h:63
  43.     VFT_STATIC_LIB         : constant := 16#7#;             -- winver.h:64
  44.     VFT2_UNKNOWN           : constant := 16#0#;             -- winver.h:67
  45.     VFT2_DRV_PRINTER       : constant := 16#1#;             -- winver.h:68
  46.     VFT2_DRV_KEYBOARD      : constant := 16#2#;             -- winver.h:69
  47.     VFT2_DRV_LANGUAGE      : constant := 16#3#;             -- winver.h:70
  48.     VFT2_DRV_DISPLAY       : constant := 16#4#;             -- winver.h:71
  49.     VFT2_DRV_MOUSE         : constant := 16#5#;             -- winver.h:72
  50.     VFT2_DRV_NETWORK       : constant := 16#6#;             -- winver.h:73
  51.     VFT2_DRV_SYSTEM        : constant := 16#7#;             -- winver.h:74
  52.     VFT2_DRV_INSTALLABLE   : constant := 16#8#;             -- winver.h:75
  53.     VFT2_DRV_SOUND         : constant := 16#9#;             -- winver.h:76
  54.     VFT2_DRV_COMM          : constant := 16#a#;             -- winver.h:77
  55.     VFT2_FONT_RASTER       : constant := 16#1#;             -- winver.h:80
  56.     VFT2_FONT_VECTOR       : constant := 16#2#;             -- winver.h:81
  57.     VFT2_FONT_TRUETYPE     : constant := 16#3#;             -- winver.h:82
  58.     VFFF_ISSHAREDFILE      : constant := 16#1#;             -- winver.h:85
  59.     VFF_CURNEDEST          : constant := 16#1#;             -- winver.h:87
  60.     VFF_FILEINUSE          : constant := 16#2#;             -- winver.h:88
  61.     VFF_BUFFTOOSMALL       : constant := 16#4#;             -- winver.h:89
  62.     VIFF_FORCEINSTALL      : constant := 16#1#;             -- winver.h:92
  63.     VIFF_DONTDELETEOLD     : constant := 16#2#;             -- winver.h:93
  64.     VIF_TEMPFILE           : constant := 16#1#;             -- winver.h:95
  65.     VIF_MISMATCH           : constant := 16#2#;             -- winver.h:96
  66.     VIF_SRCOLD             : constant := 16#4#;             -- winver.h:97
  67.     VIF_DIFFLANG           : constant := 16#8#;             -- winver.h:99
  68.     VIF_DIFFCODEPG         : constant := 16#10#;            -- winver.h:100
  69.     VIF_DIFFTYPE           : constant := 16#20#;            -- winver.h:101
  70.     VIF_WRITEPROT          : constant := 16#40#;            -- winver.h:103
  71.     VIF_FILEINUSE          : constant := 16#80#;            -- winver.h:104
  72.     VIF_OUTOFSPACE         : constant := 16#100#;           -- winver.h:105
  73.     VIF_ACCESSVIOLATION    : constant := 16#200#;           -- winver.h:106
  74.     VIF_SHARINGVIOLATION   : constant := 16#400#;           -- winver.h:107
  75.     VIF_CANNOTCREATE       : constant := 16#800#;           -- winver.h:108
  76.     VIF_CANNOTDELETE       : constant := 16#1000#;          -- winver.h:109
  77.     VIF_CANNOTRENAME       : constant := 16#2000#;          -- winver.h:110
  78.     VIF_CANNOTDELETECUR    : constant := 16#4000#;          -- winver.h:111
  79.     VIF_OUTOFMEMORY        : constant := 16#8000#;          -- winver.h:112
  80.     VIF_CANNOTREADSRC      : constant := 16#10000#;         -- winver.h:114
  81.     VIF_CANNOTREADDST      : constant := 16#20000#;         -- winver.h:115
  82.     VIF_BUFFTOOSMALL       : constant := 16#40000#;         -- winver.h:117
  83.  
  84.     type VS_FIXEDFILEINFO;                                  -- winver.h:123
  85.  
  86.     type VS_FIXEDFILEINFO is                                -- winver.h:123
  87.         record
  88.             dwSignature       : Win32.DWORD;                -- winver.h:125
  89.             dwStrucVersion    : Win32.DWORD;                -- winver.h:126
  90.             dwFileVersionMS   : Win32.DWORD;                -- winver.h:127
  91.             dwFileVersionLS   : Win32.DWORD;                -- winver.h:128
  92.             dwProductVersionMS: Win32.DWORD;                -- winver.h:129
  93.             dwProductVersionLS: Win32.DWORD;                -- winver.h:130
  94.             dwFileFlagsMask   : Win32.DWORD;                -- winver.h:131
  95.             dwFileFlags       : Win32.DWORD;                -- winver.h:132
  96.             dwFileOS          : Win32.DWORD;                -- winver.h:133
  97.             dwFileType        : Win32.DWORD;                -- winver.h:134
  98.             dwFileSubtype     : Win32.DWORD;                -- winver.h:135
  99.             dwFileDateMS      : Win32.DWORD;                -- winver.h:136
  100.             dwFileDateLS      : Win32.DWORD;                -- winver.h:137
  101.         end record;
  102.  
  103.     function VerFindFileA(uFlags       : Win32.DWORD;
  104.                           szFileName   : Win32.LPSTR;
  105.                           szWinDir     : Win32.LPSTR;
  106.                           szAppDir     : Win32.LPSTR;
  107.                           szCurDir     : Win32.LPSTR;
  108.                           lpuCurDirLen : Win32.PUINT;
  109.                           szDestDir    : Win32.LPSTR;
  110.                           lpuDestDirLen: Win32.PUINT)
  111.                                          return Win32.DWORD;-- winver.h:144
  112.  
  113.     function VerFindFile(uFlags       : Win32.DWORD;
  114.                          szFileName   : Win32.LPSTR;
  115.                          szWinDir     : Win32.LPSTR;
  116.                          szAppDir     : Win32.LPSTR;
  117.                          szCurDir     : Win32.LPSTR;
  118.                          lpuCurDirLen : Win32.PUINT;
  119.                          szDestDir    : Win32.LPSTR;
  120.                          lpuDestDirLen: Win32.PUINT)
  121.                                         return Win32.DWORD
  122.                                         renames VerFindFileA;
  123.                                                             -- winver.h:144
  124.  
  125.     function VerFindFileW(uFlags       : Win32.DWORD;
  126.                           szFileName   : Win32.LPWSTR;
  127.                           szWinDir     : Win32.LPWSTR;
  128.                           szAppDir     : Win32.LPWSTR;
  129.                           szCurDir     : Win32.LPWSTR;
  130.                           lpuCurDirLen : Win32.PUINT;
  131.                           szDestDir    : Win32.LPWSTR;
  132.                           lpuDestDirLen: Win32.PUINT)
  133.                                          return Win32.DWORD;-- winver.h:156
  134.  
  135.     function VerInstallFileA(uFlags        : Win32.DWORD;
  136.                              szSrcFileName : Win32.LPSTR;
  137.                              szDestFileName: Win32.LPSTR;
  138.                              szSrcDir      : Win32.LPSTR;
  139.                              szDestDir     : Win32.LPSTR;
  140.                              szCurDir      : Win32.LPSTR;
  141.                              szTmpFile     : Win32.LPSTR;
  142.                              lpuTmpFileLen : Win32.PUINT)
  143.                                              return Win32.DWORD;
  144.                                                             -- winver.h:174
  145.  
  146.     function VerInstallFile(uFlags        : Win32.DWORD;
  147.                             szSrcFileName : Win32.LPSTR;
  148.                             szDestFileName: Win32.LPSTR;
  149.                             szSrcDir      : Win32.LPSTR;
  150.                             szDestDir     : Win32.LPSTR;
  151.                             szCurDir      : Win32.LPSTR;
  152.                             szTmpFile     : Win32.LPSTR;
  153.                             lpuTmpFileLen : Win32.PUINT)
  154.                                             return Win32.DWORD
  155.                                             renames VerInstallFileA;
  156.                                                             -- winver.h:174
  157.  
  158.     function VerInstallFileW(uFlags        : Win32.DWORD;
  159.                              szSrcFileName : Win32.LPWSTR;
  160.                              szDestFileName: Win32.LPWSTR;
  161.                              szSrcDir      : Win32.LPWSTR;
  162.                              szDestDir     : Win32.LPWSTR;
  163.                              szCurDir      : Win32.LPWSTR;
  164.                              szTmpFile     : Win32.LPWSTR;
  165.                              lpuTmpFileLen : Win32.PUINT)
  166.                                              return Win32.DWORD;
  167.                                                             -- winver.h:186
  168.  
  169.     function GetFileVersionInfoSizeA(lptstrFilename: Win32.LPSTR;
  170.                                      lpdwHandle    : Win32.LPDWORD)
  171.                                                      return Win32.DWORD;
  172.                                                             -- winver.h:205
  173.  
  174.     function GetFileVersionInfoSize(
  175.         lptstrFilename: Win32.LPSTR;
  176.         lpdwHandle    : Win32.LPDWORD)
  177.                         return Win32.DWORD
  178.                         renames GetFileVersionInfoSizeA;    -- winver.h:205
  179.  
  180.     function GetFileVersionInfoSizeW(lptstrFilename: Win32.LPWSTR;
  181.                                      lpdwHandle    : Win32.LPDWORD)
  182.                                                      return Win32.DWORD;
  183.                                                             -- winver.h:212
  184.  
  185.     function GetFileVersionInfoA(lptstrFilename: Win32.LPSTR;
  186.                                  dwHandle      : Win32.DWORD;
  187.                                  dwLen         : Win32.DWORD;
  188.                                  lpData        : Win32.LPVOID)
  189.                                                  return Win32.BOOL;
  190.                                                             -- winver.h:225
  191.  
  192.     function GetFileVersionInfo(lptstrFilename: Win32.LPSTR;
  193.                                 dwHandle      : Win32.DWORD;
  194.                                 dwLen         : Win32.DWORD;
  195.                                 lpData        : Win32.LPVOID)
  196.                                                 return Win32.BOOL
  197.                                                 renames GetFileVersionInfoA;
  198.                                                             -- winver.h:225
  199.  
  200.     function GetFileVersionInfoW(lptstrFilename: Win32.LPWSTR;
  201.                                  dwHandle      : Win32.DWORD;
  202.                                  dwLen         : Win32.DWORD;
  203.                                  lpData        : Win32.LPVOID)
  204.                                                  return Win32.BOOL;
  205.                                                             -- winver.h:234
  206.  
  207.     function VerLanguageNameA(wLang : Win32.DWORD;
  208.                               szLang: Win32.LPSTR;
  209.                               nSize : Win32.DWORD)
  210.                                       return Win32.DWORD;   -- winver.h:248
  211.  
  212.     function VerLanguageName(wLang : Win32.DWORD;
  213.                              szLang: Win32.LPSTR;
  214.                              nSize : Win32.DWORD)
  215.                                      return Win32.DWORD
  216.                                      renames VerLanguageNameA;
  217.                                                             -- winver.h:248
  218.  
  219.     function VerLanguageNameW(wLang : Win32.DWORD;
  220.                               szLang: Win32.LPWSTR;
  221.                               nSize : Win32.DWORD)
  222.                                       return Win32.DWORD;   -- winver.h:255
  223.  
  224.     function VerQueryValueA(pBlock    : Win32.LPVOID;
  225.                             lpSubBlock: Win32.LPSTR;
  226.                             lplpBuffer: access Win32.LPVOID;
  227.                             puLen     : Win32.PUINT)
  228.                                         return Win32.BOOL;  -- winver.h:268
  229.  
  230.     function VerQueryValue(pBlock    : Win32.LPVOID;
  231.                            lpSubBlock: Win32.LPSTR;
  232.                            lplpBuffer: access Win32.LPVOID;
  233.                            puLen     : Win32.PUINT)
  234.                                        return Win32.BOOL
  235.                                        renames VerQueryValueA;
  236.                                                             -- winver.h:268
  237.  
  238.     function VerQueryValueW(pBlock    : Win32.LPVOID;
  239.                             lpSubBlock: Win32.LPWSTR;
  240.                             lplpBuffer: access Win32.LPVOID;
  241.                             puLen     : Win32.PUINT)
  242.                                         return Win32.BOOL;  -- winver.h:276
  243.  
  244. private
  245.  
  246.     pragma Convention(C, VS_FIXEDFILEINFO);                 -- winver.h:123
  247.  
  248.     pragma Import(Stdcall, VerFindFileA, "VerFindFileA");         -- winver.h:144
  249.     pragma Import(Stdcall, VerFindFileW, "VerFindFileW");         -- winver.h:156
  250.     pragma Import(Stdcall, VerInstallFileA, "VerInstallFileA");   -- winver.h:174
  251.     pragma Import(Stdcall, VerInstallFileW, "VerInstallFileW");   -- winver.h:186
  252.     pragma Import(Stdcall, GetFileVersionInfoSizeA, "GetFileVersionInfoSizeA");
  253.                                                             -- winver.h:205
  254.     pragma Import(Stdcall, GetFileVersionInfoSizeW, "GetFileVersionInfoSizeW");
  255.                                                             -- winver.h:212
  256.     pragma Import(Stdcall, GetFileVersionInfoA, "GetFileVersionInfoA");
  257.                                                             -- winver.h:225
  258.     pragma Import(Stdcall, GetFileVersionInfoW, "GetFileVersionInfoW");
  259.                                                             -- winver.h:234
  260.     pragma Import(Stdcall, VerLanguageNameA, "VerLanguageNameA"); -- winver.h:248
  261.     pragma Import(Stdcall, VerLanguageNameW, "VerLanguageNameW"); -- winver.h:255
  262.     pragma Import(Stdcall, VerQueryValueA, "VerQueryValueA");     -- winver.h:268
  263.     pragma Import(Stdcall, VerQueryValueW, "VerQueryValueW");     -- winver.h:276
  264.  
  265. -------------------------------------------------------------------------------
  266. --
  267. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  268. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  269. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  270. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  271. -- the accuracy and the use of this file.  This file may be used, copied,
  272. -- modified and distributed only by licensees of Microsoft Corporation's
  273. -- WIN32 Software Development Kit in accordance with the terms of the 
  274. -- licensee's End-User License Agreement for Microsoft Software for the
  275. -- WIN32 Development Kit.
  276. --
  277. -- Copyright (c) Intermetrics, Inc. 1995
  278. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  279. -- Microsoft is a registered trademark and Windows and Windows NT are
  280. -- trademarks of Microsoft Corporation.
  281. --
  282. -------------------------------------------------------------------------------
  283.  
  284. end Win32.Winver;
  285.