home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Win32.pm < prev   
Encoding:
Perl POD Document  |  1997-08-10  |  1.3 KB  |  56 lines
  1. package Win32;
  2.  
  3. require Exporter;
  4. @ISA = qw(Exporter);
  5. @EXPORT =
  6.     qw(
  7.     NULL
  8.     WIN31_CLASS
  9.     OWNER_SECURITY_INFORMATION
  10.     GROUP_SECURITY_INFORMATION
  11.     DACL_SECURITY_INFORMATION
  12.     SACL_SECURITY_INFORMATION
  13.     MB_ICONHAND
  14.     MB_ICONQUESTION
  15.     MB_ICONEXCLAMATION
  16.     MB_ICONASTERISK
  17.     MB_ICONWARNING
  18.     MB_ICONERROR
  19.     MB_ICONINFORMATION
  20.     MB_ICONSTOP
  21. );
  22.  
  23. # Routines available in core:
  24. # Win32::GetLastError
  25. # Win32::LoginName
  26. # Win32::NodeName
  27. # Win32::DomainName
  28. # Win32::FsType
  29. # Win32::GetCwd
  30. # Win32::GetOSVersion
  31. # Win32::FormatMessage ERRORCODE
  32. # Win32::Spawn COMMAND, ARGS, PID
  33. # Win32::GetTickCount
  34. # Win32::IsWinNT
  35. # Win32::IsWin95
  36.  
  37. # We won't bother with the constant stuff, too much of a hassle. Just hard
  38. # code it here.
  39. sub NULL { (0);}
  40. sub WIN31_CLASS { &NULL;}
  41. sub OWNER_SECURITY_INFORMATION {(0x00000001);}
  42. sub GROUP_SECURITY_INFORMATION {(0x00000002);}
  43. sub DACL_SECURITY_INFORMATION {(0x00000004);}
  44. sub SACL_SECURITY_INFORMATION {(0x00000008);}
  45.  
  46. sub MB_ICONHAND        { (0x00000010); }
  47. sub MB_ICONQUESTION    { (0x00000020); }
  48. sub MB_ICONEXCLAMATION    { (0x00000030); }
  49. sub MB_ICONASTERISK    { (0x00000040); }
  50. sub MB_ICONWARNING    { (0x00000030); }
  51. sub MB_ICONERROR    { (0x00000010); }
  52. sub MB_ICONINFORMATION    { (0x00000040); }
  53. sub MB_ICONSTOP        { (0x00000010); }
  54.  
  55. 1;
  56.