home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _dd98118fce2fbca45caf1d8c2f83f9f7 < prev    next >
Text File  |  2000-03-15  |  2KB  |  67 lines
  1. package Win32;
  2.  
  3. #
  4. #  Documentation for all Win32:: functions are in Win32.pod (which is a
  5. #  standard part of development versions of Perl 5.6, and is also
  6. #  included with the latest builds of the ActivePerl distribution.)
  7. #
  8.  
  9. $VERSION = $VERSION = '0.151';
  10.  
  11. require Exporter;
  12. require DynaLoader;
  13. @ISA = qw(Exporter DynaLoader);
  14. @EXPORT =
  15.     qw(
  16.     NULL
  17.     WIN31_CLASS
  18.     OWNER_SECURITY_INFORMATION
  19.     GROUP_SECURITY_INFORMATION
  20.     DACL_SECURITY_INFORMATION
  21.     SACL_SECURITY_INFORMATION
  22.     MB_ICONHAND
  23.     MB_ICONQUESTION
  24.     MB_ICONEXCLAMATION
  25.     MB_ICONASTERISK
  26.     MB_ICONWARNING
  27.     MB_ICONERROR
  28.     MB_ICONINFORMATION
  29.     MB_ICONSTOP
  30. );
  31.  
  32. # Routines available in core:
  33. # Win32::GetLastError
  34. # Win32::LoginName
  35. # Win32::NodeName
  36. # Win32::DomainName
  37. # Win32::FsType
  38. # Win32::GetCwd
  39. # Win32::GetOSVersion
  40. # Win32::FormatMessage ERRORCODE
  41. # Win32::Spawn COMMAND, ARGS, PID
  42. # Win32::GetTickCount
  43. # Win32::IsWinNT
  44. # Win32::IsWin95
  45.  
  46. # We won't bother with the constant stuff, too much of a hassle. Just hard
  47. # code it here.
  48. sub NULL { (0);}
  49. sub WIN31_CLASS { &NULL;}
  50. sub OWNER_SECURITY_INFORMATION {(0x00000001);}
  51. sub GROUP_SECURITY_INFORMATION {(0x00000002);}
  52. sub DACL_SECURITY_INFORMATION {(0x00000004);}
  53. sub SACL_SECURITY_INFORMATION {(0x00000008);}
  54.  
  55. sub MB_ICONHAND        { (0x00000010); }
  56. sub MB_ICONQUESTION    { (0x00000020); }
  57. sub MB_ICONEXCLAMATION    { (0x00000030); }
  58. sub MB_ICONASTERISK    { (0x00000040); }
  59. sub MB_ICONWARNING    { (0x00000030); }
  60. sub MB_ICONERROR    { (0x00000010); }
  61. sub MB_ICONINFORMATION    { (0x00000040); }
  62. sub MB_ICONSTOP        { (0x00000010); }
  63.  
  64. bootstrap Win32;
  65.  
  66. 1;
  67.