modules/win95.shell-lib.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.shell-lib :win95.shell-lib)
   5
   6 (cl:in-package cl-w32api.module.win95.shell-lib)
   7
   8 (defcfunex-exported ("DragAcceptFiles" DragAcceptFiles :convention :stdcall) :void
   9   (arg0 :pointer)
  10   (arg1 :int))
  11
  12 (defcfunex-exported ("DragFinish" DragFinish :convention :stdcall) :void
  13   (arg0 :pointer))
  14
  15 (defcfunex-exported ("DragQueryFileA" DragQueryFileA :convention :stdcall) :unsigned-int
  16   (arg0 :pointer)
  17   (arg1 :unsigned-int)
  18   (arg2 :string)
  19   (arg3 :unsigned-int))
  20
  21 (defcfunex-exported ("DragQueryFileW" DragQueryFileW :convention :stdcall) :unsigned-int
  22   (arg0 :pointer)
  23   (arg1 :unsigned-int)
  24   (arg2 :pointer)
  25   (arg3 :unsigned-int))
  26
  27 (defcfunex-exported ("DragQueryPoint" DragQueryPoint :convention :stdcall) :int
  28   (arg0 :pointer)
  29   (arg1 :pointer))
  30
  31 (defcfunex-exported ("ExtractAssociatedIconA" ExtractAssociatedIconA :convention :stdcall) :pointer
  32   (arg0 :pointer)
  33   (arg1 :string)
  34   (arg2 :pointer))
  35
  36 (defcfunex-exported ("ExtractAssociatedIconW" ExtractAssociatedIconW :convention :stdcall) :pointer
  37   (arg0 :pointer)
  38   (arg1 :pointer)
  39   (arg2 :pointer))
  40
  41 (defcfunex-exported ("ExtractIconA" ExtractIconA :convention :stdcall) :pointer
  42   (arg0 :pointer)
  43   (arg1 :string)
  44   (arg2 :unsigned-int))
  45
  46 (defcfunex-exported ("ExtractIconW" ExtractIconW :convention :stdcall) :pointer
  47   (arg0 :pointer)
  48   (arg1 :pointer)
  49   (arg2 :unsigned-int))
  50
  51 (defcfunex-exported ("ExtractIconExA" ExtractIconExA :convention :stdcall) :unsigned-int
  52   (arg0 :string)
  53   (arg1 :int)
  54   (arg2 :pointer)
  55   (arg3 :pointer)
  56   (arg4 :unsigned-int))
  57
  58 (defcfunex-exported ("ExtractIconExW" ExtractIconExW :convention :stdcall) :unsigned-int
  59   (arg0 :pointer)
  60   (arg1 :int)
  61   (arg2 :pointer)
  62   (arg3 :pointer)
  63   (arg4 :unsigned-int))
  64
  65 (defcfunex-exported ("FindExecutableA" FindExecutableA :convention :stdcall) :pointer
  66   (arg0 :string)
  67   (arg1 :string)
  68   (arg2 :string))
  69
  70 (defcfunex-exported ("FindExecutableW" FindExecutableW :convention :stdcall) :pointer
  71   (arg0 :pointer)
  72   (arg1 :pointer)
  73   (arg2 :pointer))
  74
  75 (defcfunex-exported ("ShellAboutA" ShellAboutA :convention :stdcall) :int
  76   (arg0 :pointer)
  77   (arg1 :string)
  78   (arg2 :string)
  79   (arg3 :pointer))
  80
  81 (defcfunex-exported ("ShellAboutW" ShellAboutW :convention :stdcall) :int
  82   (arg0 :pointer)
  83   (arg1 :pointer)
  84   (arg2 :pointer)
  85   (arg3 :pointer))
  86
  87 (defcfunex-exported ("ShellExecuteA" ShellExecuteA :convention :stdcall) :pointer
  88   (arg0 :pointer)
  89   (arg1 :string)
  90   (arg2 :string)
  91   (arg3 :string)
  92   (arg4 :string)
  93   (arg5 :int))
  94
  95 (defcfunex-exported ("ShellExecuteW" ShellExecuteW :convention :stdcall) :pointer
  96   (arg0 :pointer)
  97   (arg1 :pointer)
  98   (arg2 :pointer)
  99   (arg3 :pointer)
 100   (arg4 :pointer)
 101   (arg5 :int))
 102
 103 (defcfunex-exported ("ShellExecuteExA" ShellExecuteExA :convention :stdcall) :int
 104   (arg0 :pointer))
 105
 106 (defcfunex-exported ("ShellExecuteExW" ShellExecuteExW :convention :stdcall) :int
 107   (arg0 :pointer))
 108