modules/win95.resource.lisp

   1
   2 (cl:in-package w32apimod)
   3
   4 (define-w32api-module win95.resource :win95.resource)
   5
   6 (cl:in-package cl-w32api.module.win95.resource)
   7
   8 (defcfunex-exported ("BeginUpdateResourceA" BeginUpdateResourceA :convention :stdcall) :pointer
   9   (arg0 :string)
  10   (arg1 :int))
  11
  12 (defcfunex-exported ("BeginUpdateResourceW" BeginUpdateResourceW :convention :stdcall) :pointer
  13   (arg0 :pointer)
  14   (arg1 :int))
  15
  16 (defcfunex-exported ("CopyImage" CopyImage :convention :stdcall) :pointer
  17   (arg0 :pointer)
  18   (arg1 :unsigned-int)
  19   (arg2 :int)
  20   (arg3 :int)
  21   (arg4 :unsigned-int))
  22
  23 (defcfunex-exported ("EndUpdateResourceA" EndUpdateResourceA :convention :stdcall) :int
  24   (arg0 :pointer)
  25   (arg1 :int))
  26
  27 (defcfunex-exported ("EndUpdateResourceW" EndUpdateResourceW :convention :stdcall) :int
  28   (arg0 :pointer)
  29   (arg1 :int))
  30
  31 (defcfunex-exported ("EnumResourceLanguagesA" EnumResourceLanguagesA :convention :stdcall) :int
  32   (arg0 :pointer)
  33   (arg1 :string)
  34   (arg2 :string)
  35   (arg3 :pointer)
  36   (arg4 :int32))
  37
  38 (defcfunex-exported ("EnumResourceLanguagesW" EnumResourceLanguagesW :convention :stdcall) :int
  39   (arg0 :pointer)
  40   (arg1 :pointer)
  41   (arg2 :pointer)
  42   (arg3 :pointer)
  43   (arg4 :int32))
  44
  45 (defcfunex-exported ("EnumResourceNamesA" EnumResourceNamesA :convention :stdcall) :int
  46   (arg0 :pointer)
  47   (arg1 :string)
  48   (arg2 :pointer)
  49   (arg3 :int32))
  50
  51 (defcfunex-exported ("EnumResourceNamesW" EnumResourceNamesW :convention :stdcall) :int
  52   (arg0 :pointer)
  53   (arg1 :pointer)
  54   (arg2 :pointer)
  55   (arg3 :int32))
  56
  57 (defcfunex-exported ("EnumResourceTypesA" EnumResourceTypesA :convention :stdcall) :int
  58   (arg0 :pointer)
  59   (arg1 :pointer)
  60   (arg2 :int32))
  61
  62 (defcfunex-exported ("EnumResourceTypesW" EnumResourceTypesW :convention :stdcall) :int
  63   (arg0 :pointer)
  64   (arg1 :pointer)
  65   (arg2 :int32))
  66
  67 (defcfunex-exported ("FindResourceA" FindResourceA :convention :stdcall) :pointer
  68   (arg0 :pointer)
  69   (arg1 :string)
  70   (arg2 :string))
  71
  72 (defcfunex-exported ("FindResourceW" FindResourceW :convention :stdcall) :pointer
  73   (arg0 :pointer)
  74   (arg1 :pointer)
  75   (arg2 :pointer))
  76
  77 (defcfunex-exported ("FindResourceExA" FindResourceExA :convention :stdcall) :pointer
  78   (arg0 :pointer)
  79   (arg1 :string)
  80   (arg2 :string)
  81   (arg3 :unsigned-short))
  82
  83 (defcfunex-exported ("FindResourceExW" FindResourceExW :convention :stdcall) :pointer
  84   (arg0 :pointer)
  85   (arg1 :pointer)
  86   (arg2 :pointer)
  87   (arg3 :unsigned-short))
  88
  89 (defcfunex-exported ("LoadImageA" LoadImageA :convention :stdcall) :pointer
  90   (arg0 :pointer)
  91   (arg1 :string)
  92   (arg2 :unsigned-int)
  93   (arg3 :int)
  94   (arg4 :int)
  95   (arg5 :unsigned-int))
  96
  97 (defcfunex-exported ("LoadImageW" LoadImageW :convention :stdcall) :pointer
  98   (arg0 :pointer)
  99   (arg1 :pointer)
 100   (arg2 :unsigned-int)
 101   (arg3 :int)
 102   (arg4 :int)
 103   (arg5 :unsigned-int))
 104
 105 (defcfunex-exported ("LoadResource" LoadResource :convention :stdcall) :pointer
 106   (arg0 :pointer)
 107   (arg1 :pointer))
 108
 109 (defcfunex-exported ("LockResource" LockResource :convention :stdcall) :pointer
 110   (arg0 :pointer))
 111
 112 (defcfunex-exported ("SizeofResource" SizeofResource :convention :stdcall) :unsigned-long
 113   (arg0 :pointer)
 114   (arg1 :pointer))
 115
 116 (defcfunex-exported ("UpdateResourceA" UpdateResourceA :convention :stdcall) :int
 117   (arg0 :pointer)
 118   (arg1 :string)
 119   (arg2 :string)
 120   (arg3 :unsigned-short)
 121   (arg4 :pointer)
 122   (arg5 :unsigned-long))
 123
 124 (defcfunex-exported ("UpdateResourceW" UpdateResourceW :convention :stdcall) :int
 125   (arg0 :pointer)
 126   (arg1 :pointer)
 127   (arg2 :pointer)
 128   (arg3 :unsigned-short)
 129   (arg4 :pointer)
 130   (arg5 :unsigned-long))
 131
 132
 133 ;;obsolete
 134 (defcfunex-exported ("FreeResource" FreeResource :convention :stdcall) :int
 135   (arg0 :pointer))
 136