home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-shellapi.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  9.6 KB  |  214 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-shellapi.ads,v $ 
  2. -- $Revision: 1.11 $ $Date: 96/03/15 12:55:51 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Windef;
  6. with Win32.Winnt;
  7.  
  8. package Win32.Shellapi is
  9.  
  10.     SE_ERR_SHARE           : constant := 26;                -- shellapi.h:47
  11.     SE_ERR_ASSOCINCOMPLETE : constant := 27;                -- shellapi.h:48
  12.     SE_ERR_DDETIMEOUT      : constant := 28;                -- shellapi.h:49
  13.     SE_ERR_DDEFAIL         : constant := 29;                -- shellapi.h:50
  14.     SE_ERR_DDEBUSY         : constant := 30;                -- shellapi.h:51
  15.     SE_ERR_NOASSOC         : constant := 31;                -- shellapi.h:52
  16.  
  17.     subtype HDROP is Win32.Winnt.HANDLE;                   -- shellapi.h:21
  18.     type PPTCHAR is access all Win32.Winnt.PTCHAR;          -- shellapi.h:59
  19.  
  20.     function DragQueryFileW(
  21.                 hDropFile: HDROP;
  22.                 iFile    : Win32.UINT;
  23.                 lpszFile : Win32.LPWSTR;
  24.                 cb       : Win32.UINT)
  25.                return Win32.UINT;                           -- shellapi.h:23
  26.  
  27.     function DragQueryFileA(
  28.                 hDropFile: HDROP;
  29.                 iFile    : Win32.UINT;
  30.                 lpszFile : Win32.LPSTR;
  31.                 cb       : Win32.UINT)
  32.                return Win32.UINT;                           -- shellapi.h:24
  33.  
  34.     function DragQueryFile(
  35.                 hDropFile: HDROP;
  36.                 iFile    : Win32.UINT;
  37.                 lpszFile : Win32.LPSTR;
  38.                 cb       : Win32.UINT)
  39.                return Win32.UINT
  40.                renames DragQueryFileA;                      -- shellapi.h:24
  41.  
  42.     function DragQueryPoint(
  43.                 hDropFile: HDROP;
  44.                 lppt : Win32.Windef.LPPOINT)
  45.                return Win32.BOOL;                           -- shellapi.h:32
  46.  
  47.     procedure DragFinish(
  48.                 hDropFree: HDROP);                          -- shellapi.h:33
  49.  
  50.     procedure DragAcceptFiles(
  51.                 hWnd   : Win32.Windef.HWND;
  52.                 fAccept: Win32.BOOL);                       -- shellapi.h:35
  53.  
  54.     function ExtractIconW(
  55.                 hInst          : Win32.Windef.HINSTANCE;
  56.                 lpszExeFileName: Win32.LPCWSTR;
  57.                 nIconIndex     : Win32.UINT)
  58.                return Win32.Windef.HICON;                   -- shellapi.h:37
  59.  
  60.     function ExtractIconA(
  61.                 hInst          : Win32.Windef.HINSTANCE;
  62.                 lpszExeFileName: Win32.LPCSTR;
  63.                 nIconIndex     : Win32.UINT)
  64.                return Win32.Windef.HICON;                   -- shellapi.h:38
  65.  
  66.     function ExtractIcon(
  67.                 hInst          : Win32.Windef.HINSTANCE;
  68.                 lpszExeFileName: Win32.LPCSTR;
  69.                 nIconIndex     : Win32.UINT)
  70.                return Win32.Windef.HICON
  71.                renames ExtractIconA;                        -- shellapi.h:38
  72.  
  73.     function ShellExecuteA(
  74.                 hwnd        : Win32.Windef.HWND;
  75.                 lpOperation : Win32.LPCSTR;
  76.                 lpFile      : Win32.LPCSTR;
  77.                 lpParameters: Win32.LPSTR;
  78.                 lpDirectory : Win32.LPCSTR;
  79.                 nShowCmd    : Win32.INT)
  80.                return Win32.Windef.HINSTANCE;               -- shellapi.h:54
  81.  
  82.     function ShellExecute(
  83.                 hwnd        : Win32.Windef.HWND;
  84.                 lpOperation : Win32.LPCSTR;
  85.                 lpFile      : Win32.LPCSTR;
  86.                 lpParameters: Win32.LPSTR;
  87.                 lpDirectory : Win32.LPCSTR;
  88.                 nShowCmd    : Win32.INT)
  89.                return Win32.Windef.HINSTANCE
  90.                renames ShellExecuteA;                       -- shellapi.h:54
  91.  
  92.     function ShellExecuteW(
  93.                 hwnd        : Win32.Windef.HWND;
  94.                 lpOperation : Win32.LPCWSTR;
  95.                 lpFile      : Win32.LPCWSTR;
  96.                 lpParameters: Win32.LPWSTR;
  97.                 lpDirectory : Win32.LPCWSTR;
  98.                 nShowCmd    : Win32.INT)
  99.                return Win32.Windef.HINSTANCE;               -- shellapi.h:55
  100.  
  101.     function FindExecutableA(
  102.                 lpFile     : Win32.LPCSTR;
  103.                 lpDirectory: Win32.LPCSTR;
  104.                 lpResult   : Win32.LPSTR)
  105.                return Win32.Windef.HINSTANCE;               -- shellapi.h:57
  106.  
  107.     function FindExecutable(
  108.                 lpFile     : Win32.LPCSTR;
  109.                 lpDirectory: Win32.LPCSTR;
  110.                 lpResult   : Win32.LPSTR)
  111.                return Win32.Windef.HINSTANCE
  112.                renames FindExecutableA;                     -- shellapi.h:57
  113.  
  114.     function FindExecutableW(
  115.                 lpFile     : Win32.LPCWSTR;
  116.                 lpDirectory: Win32.LPCWSTR;
  117.                 lpResult   : Win32.LPWSTR)
  118.                return Win32.Windef.HINSTANCE;               -- shellapi.h:58
  119.  
  120.     function CommandLineToArgvW(
  121.                 lpCmdLine: Win32.Winnt.PTCHAR;
  122.                 pNumArgs : access Win32.INT)
  123.                return PPTCHAR;                              -- shellapi.h:59
  124.  
  125.     function ShellAboutA(
  126.                 hWnd        : Win32.Windef.HWND;
  127.                 szApp       : Win32.LPCSTR;
  128.                 szOtherStuff: Win32.LPCSTR;
  129.                 hIcon       : Win32.Windef.HICON)
  130.                return Win32.INT;                            -- shellapi.h:61
  131.  
  132.     function ShellAbout(
  133.                 hWnd        : Win32.Windef.HWND;
  134.                 szApp       : Win32.LPCSTR;
  135.                 szOtherStuff: Win32.LPCSTR;
  136.                 hIcon       : Win32.Windef.HICON)
  137.                return Win32.INT
  138.                renames ShellAboutA;                         -- shellapi.h:61
  139.  
  140.     function ShellAboutW(
  141.                 hWnd        : Win32.Windef.HWND;
  142.                 szApp       : Win32.LPCWSTR;
  143.                 szOtherStuff: Win32.LPCWSTR;
  144.                 hIcon       : Win32.Windef.HICON)
  145.                return Win32.INT;                            -- shellapi.h:62
  146.  
  147.     function DuplicateIcon(
  148.                 hInst: Win32.Windef.HINSTANCE;
  149.                 hIcon: Win32.Windef.HICON)
  150.                return Win32.Windef.HICON;                   -- shellapi.h:74
  151.  
  152.     function ExtractAssociatedIconA(
  153.                 hInst     : Win32.Windef.HINSTANCE;
  154.                 lpIconPath: Win32.LPSTR;
  155.                 lpiIcon   : Win32.LPWORD)
  156.                return Win32.Windef.HICON;                   -- shellapi.h:75
  157.  
  158.     function ExtractAssociatedIcon(
  159.                 hInst     : Win32.Windef.HINSTANCE;
  160.                 lpIconPath: Win32.LPSTR;
  161.                 lpiIcon   : Win32.LPWORD)
  162.                return Win32.Windef.HICON
  163.                renames ExtractAssociatedIconA;              -- shellapi.h:75
  164.  
  165.     function ExtractAssociatedIconW(
  166.                 hInst     : Win32.Windef.HINSTANCE;
  167.                 lpIconPath: Win32.LPWSTR;
  168.                 lpiIcon   : Win32.LPWORD)
  169.                return Win32.Windef.HICON;                   -- shellapi.h:76
  170.  
  171. private
  172.  
  173.     pragma Import(Stdcall, DragQueryFileW, "DragQueryFileW");     -- shellapi.h:23
  174.     pragma Import(Stdcall, DragQueryFileA, "DragQueryFileA");     -- shellapi.h:24
  175.     pragma Import(Stdcall, DragQueryPoint, "DragQueryPoint");     -- shellapi.h:32
  176.     pragma Import(Stdcall, DragFinish, "DragFinish");             -- shellapi.h:33
  177.     pragma Import(Stdcall, DragAcceptFiles, "DragAcceptFiles");   -- shellapi.h:35
  178.     pragma Import(Stdcall, ExtractIconW, "ExtractIconW");         -- shellapi.h:37
  179.     pragma Import(Stdcall, ExtractIconA, "ExtractIconA");         -- shellapi.h:38
  180.     pragma Import(Stdcall, ShellExecuteA, "ShellExecuteA");       -- shellapi.h:54
  181.     pragma Import(Stdcall, ShellExecuteW, "ShellExecuteW");       -- shellapi.h:55
  182.     pragma Import(Stdcall, FindExecutableA, "FindExecutableA");   -- shellapi.h:57
  183.     pragma Import(Stdcall, FindExecutableW, "FindExecutableW");   -- shellapi.h:58
  184.     pragma Import(Stdcall, CommandLineToArgvW, "CommandLineToArgvW");
  185.                                                             -- shellapi.h:59
  186.     pragma Import(Stdcall, ShellAboutA, "ShellAboutA");           -- shellapi.h:61
  187.     pragma Import(Stdcall, ShellAboutW, "ShellAboutW");           -- shellapi.h:62
  188.     pragma Import(Stdcall, DuplicateIcon, "DuplicateIcon");       -- shellapi.h:74
  189.     pragma Import(Stdcall, ExtractAssociatedIconA, "ExtractAssociatedIconA");
  190.                                                             -- shellapi.h:75
  191.     pragma Import(Stdcall, ExtractAssociatedIconW, "ExtractAssociatedIconW");
  192.                                                             -- shellapi.h:76
  193.  
  194. -------------------------------------------------------------------------------
  195. --
  196. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  197. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  198. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  199. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  200. -- the accuracy and the use of this file.  This file may be used, copied,
  201. -- modified and distributed only by licensees of Microsoft Corporation's
  202. -- WIN32 Software Development Kit in accordance with the terms of the 
  203. -- licensee's End-User License Agreement for Microsoft Software for the
  204. -- WIN32 Development Kit.
  205. --
  206. -- Copyright (c) Intermetrics, Inc. 1995
  207. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  208. -- Microsoft is a registered trademark and Windows and Windows NT are
  209. -- trademarks of Microsoft Corporation.
  210. --
  211. -------------------------------------------------------------------------------
  212.  
  213. end Win32.Shellapi;
  214.