modules/shutdown.lisp

   1 (cl:in-package w32apimod)
   2
   3 (define-w32api-module shutdown :shutdown)
   4
   5 (cl:in-package cl-w32api.module.shutdown)
   6
   7
   8 (defcfunex-exported ("AbortSystemShutdownA" AbortSystemShutdownA :convention :stdcall) :int
   9   (arg0 :string))
  10
  11 (defcfunex-exported ("AbortSystemShutdownW" AbortSystemShutdownW :convention :stdcall) :int
  12   (arg0 :pointer))
  13
  14 (defcfunex-exported ("InitiateSystemShutdownA" InitiateSystemShutdownA :convention :stdcall) :int
  15   (arg0 :string)
  16   (arg1 :string)
  17   (arg2 :unsigned-long)
  18   (arg3 :int)
  19   (arg4 :int))
  20
  21 (defcfunex-exported ("InitiateSystemShutdownW" InitiateSystemShutdownW :convention :stdcall) :int
  22   (arg0 :pointer)
  23   (arg1 :pointer)
  24   (arg2 :unsigned-long)
  25   (arg3 :int)
  26   (arg4 :int))
  27