home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1997 / CT_SW_97.ISO / pc / software / entwickl / win95 / pw32i306.exe / lib / win32.pm < prev    next >
Text File  |  1996-09-13  |  2KB  |  62 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 added in ntxs.cpp:
  24. # Win32::GetLastError
  25. # Win32::PerlVersion
  26. # Win32::LoginName
  27. # Win32::NodeName
  28. # Win32::DomainName
  29. # Win32::FsType
  30. # Win32::GetCwd
  31. # Win32::GetOSVersion
  32. # Win32::FormatMessage ERRORCODE
  33. # Win32::Spawn COMMAND, ARGS, PID
  34. # Win32::LookupAccountName SYSTEM, ACCOUNT, DOMAIN, SID, SIDTYPE
  35. # Win32::LookupAccountSID SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE
  36. # Win32::InitiateSystemShutdown MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT
  37. # Win32::AbortSystemShutdown MACHINE
  38.  
  39. # Win32::GetTickCount
  40. # Win32::IsWinNT
  41. # Win32::IsWin95
  42.  
  43. # We won't bother with the constant stuff, too much of a hassle. Just hard
  44. # code it here.
  45. sub NULL { (0);}
  46. sub WIN31_CLASS { &NULL;}
  47. sub OWNER_SECURITY_INFORMATION {(0x00000001);}
  48. sub GROUP_SECURITY_INFORMATION {(0x00000002);}
  49. sub DACL_SECURITY_INFORMATION {(0x00000004);}
  50. sub SACL_SECURITY_INFORMATION {(0x00000008);}
  51.  
  52. sub MB_ICONHAND        { (0x00000010); }
  53. sub MB_ICONQUESTION    { (0x00000020); }
  54. sub MB_ICONEXCLAMATION    { (0x00000030); }
  55. sub MB_ICONASTERISK    { (0x00000040); }
  56. sub MB_ICONWARNING    { (0x00000030); }
  57. sub MB_ICONERROR    { (0x00000010); }
  58. sub MB_ICONINFORMATION    { (0x00000040); }
  59. sub MB_ICONSTOP        { (0x00000010); }
  60.  
  61. 1;
  62.