c6419c596cec2fe2a1862612428c2166f40d2a81
[perl.git] / ext / Win32 / Win32.pm
1 package Win32;
2
3 BEGIN {
4     use strict;
5     use vars qw|$VERSION @ISA @EXPORT @EXPORT_OK|;
6
7     require Exporter;
8     require DynaLoader;
9
10     @ISA = qw|Exporter DynaLoader|;
11     $VERSION = '0.27';
12
13     @EXPORT = qw(
14         NULL
15         WIN31_CLASS
16         OWNER_SECURITY_INFORMATION
17         GROUP_SECURITY_INFORMATION
18         DACL_SECURITY_INFORMATION
19         SACL_SECURITY_INFORMATION
20         MB_ICONHAND
21         MB_ICONQUESTION
22         MB_ICONEXCLAMATION
23         MB_ICONASTERISK
24         MB_ICONWARNING
25         MB_ICONERROR
26         MB_ICONINFORMATION
27         MB_ICONSTOP
28     );
29     @EXPORT_OK = qw(
30         GetOSName
31         SW_HIDE
32         SW_SHOWNORMAL
33         SW_SHOWMINIMIZED
34         SW_SHOWMAXIMIZED
35         SW_SHOWNOACTIVATE
36
37         CSIDL_DESKTOP
38         CSIDL_PROGRAMS
39         CSIDL_PERSONAL
40         CSIDL_FAVORITES
41         CSIDL_STARTUP
42         CSIDL_RECENT
43         CSIDL_SENDTO
44         CSIDL_STARTMENU
45         CSIDL_MYMUSIC
46         CSIDL_MYVIDEO
47         CSIDL_DESKTOPDIRECTORY
48         CSIDL_NETHOOD
49         CSIDL_FONTS
50         CSIDL_TEMPLATES
51         CSIDL_COMMON_STARTMENU
52         CSIDL_COMMON_PROGRAMS
53         CSIDL_COMMON_STARTUP
54         CSIDL_COMMON_DESKTOPDIRECTORY
55         CSIDL_APPDATA
56         CSIDL_PRINTHOOD
57         CSIDL_LOCAL_APPDATA
58         CSIDL_COMMON_FAVORITES
59         CSIDL_INTERNET_CACHE
60         CSIDL_COOKIES
61         CSIDL_HISTORY
62         CSIDL_COMMON_APPDATA
63         CSIDL_WINDOWS
64         CSIDL_SYSTEM
65         CSIDL_PROGRAM_FILES
66         CSIDL_MYPICTURES
67         CSIDL_PROFILE
68         CSIDL_PROGRAM_FILES_COMMON
69         CSIDL_COMMON_TEMPLATES
70         CSIDL_COMMON_DOCUMENTS
71         CSIDL_COMMON_ADMINTOOLS
72         CSIDL_ADMINTOOLS
73         CSIDL_COMMON_MUSIC
74         CSIDL_COMMON_PICTURES
75         CSIDL_COMMON_VIDEO
76         CSIDL_RESOURCES
77         CSIDL_RESOURCES_LOCALIZED
78         CSIDL_CDBURN_AREA
79     );
80 }
81
82 # Routines available in core:
83 # Win32::GetLastError
84 # Win32::LoginName
85 # Win32::NodeName
86 # Win32::DomainName
87 # Win32::FsType
88 # Win32::GetCwd
89 # Win32::GetOSVersion
90 # Win32::FormatMessage ERRORCODE
91 # Win32::Spawn COMMAND, ARGS, PID
92 # Win32::GetTickCount
93 # Win32::IsWinNT
94 # Win32::IsWin95
95
96 # We won't bother with the constant stuff, too much of a hassle.  Just hard
97 # code it here.
98
99 sub NULL                                { 0 }
100 sub WIN31_CLASS                         { &NULL }
101
102 sub OWNER_SECURITY_INFORMATION          { 0x00000001 }
103 sub GROUP_SECURITY_INFORMATION          { 0x00000002 }
104 sub DACL_SECURITY_INFORMATION           { 0x00000004 }
105 sub SACL_SECURITY_INFORMATION           { 0x00000008 }
106
107 sub MB_ICONHAND                         { 0x00000010 }
108 sub MB_ICONQUESTION                     { 0x00000020 }
109 sub MB_ICONEXCLAMATION                  { 0x00000030 }
110 sub MB_ICONASTERISK                     { 0x00000040 }
111 sub MB_ICONWARNING                      { 0x00000030 }
112 sub MB_ICONERROR                        { 0x00000010 }
113 sub MB_ICONINFORMATION                  { 0x00000040 }
114 sub MB_ICONSTOP                         { 0x00000010 }
115
116 #
117 # Newly added constants.  These have an empty prototype, unlike the
118 # the ones above, which aren't prototyped for compatibility reasons.
119 #
120 sub SW_HIDE           ()                { 0 }
121 sub SW_SHOWNORMAL     ()                { 1 }
122 sub SW_SHOWMINIMIZED  ()                { 2 }
123 sub SW_SHOWMAXIMIZED  ()                { 3 }
124 sub SW_SHOWNOACTIVATE ()                { 4 }
125
126 sub CSIDL_DESKTOP              ()       { 0x0000 }     # <desktop>
127 sub CSIDL_PROGRAMS             ()       { 0x0002 }     # Start Menu\Programs
128 sub CSIDL_PERSONAL             ()       { 0x0005 }     # "My Documents" folder
129 sub CSIDL_FAVORITES            ()       { 0x0006 }     # <user name>\Favorites
130 sub CSIDL_STARTUP              ()       { 0x0007 }     # Start Menu\Programs\Startup
131 sub CSIDL_RECENT               ()       { 0x0008 }     # <user name>\Recent
132 sub CSIDL_SENDTO               ()       { 0x0009 }     # <user name>\SendTo
133 sub CSIDL_STARTMENU            ()       { 0x000B }     # <user name>\Start Menu
134 sub CSIDL_MYMUSIC              ()       { 0x000D }     # "My Music" folder
135 sub CSIDL_MYVIDEO              ()       { 0x000E }     # "My Videos" folder
136 sub CSIDL_DESKTOPDIRECTORY     ()       { 0x0010 }     # <user name>\Desktop
137 sub CSIDL_NETHOOD              ()       { 0x0013 }     # <user name>\nethood
138 sub CSIDL_FONTS                ()       { 0x0014 }     # windows\fonts
139 sub CSIDL_TEMPLATES            ()       { 0x0015 }
140 sub CSIDL_COMMON_STARTMENU     ()       { 0x0016 }     # All Users\Start Menu
141 sub CSIDL_COMMON_PROGRAMS      ()       { 0x0017 }     # All Users\Start Menu\Programs
142 sub CSIDL_COMMON_STARTUP       ()       { 0x0018 }     # All Users\Startup
143 sub CSIDL_COMMON_DESKTOPDIRECTORY ()    { 0x0019 }     # All Users\Desktop
144 sub CSIDL_APPDATA              ()       { 0x001A }     # Application Data, new for NT4
145 sub CSIDL_PRINTHOOD            ()       { 0x001B }     # <user name>\PrintHood
146 sub CSIDL_LOCAL_APPDATA        ()       { 0x001C }     # non roaming, user\Local Settings\Application Data
147 sub CSIDL_COMMON_FAVORITES     ()       { 0x001F }
148 sub CSIDL_INTERNET_CACHE       ()       { 0x0020 }
149 sub CSIDL_COOKIES              ()       { 0x0021 }
150 sub CSIDL_HISTORY              ()       { 0x0022 }
151 sub CSIDL_COMMON_APPDATA       ()       { 0x0023 }     # All Users\Application Data
152 sub CSIDL_WINDOWS              ()       { 0x0024 }     # GetWindowsDirectory()
153 sub CSIDL_SYSTEM               ()       { 0x0025 }     # GetSystemDirectory()
154 sub CSIDL_PROGRAM_FILES        ()       { 0x0026 }     # C:\Program Files
155 sub CSIDL_MYPICTURES           ()       { 0x0027 }     # "My Pictures", new for Win2K
156 sub CSIDL_PROFILE              ()       { 0x0028 }     # USERPROFILE
157 sub CSIDL_PROGRAM_FILES_COMMON ()       { 0x002B }     # C:\Program Files\Common
158 sub CSIDL_COMMON_TEMPLATES     ()       { 0x002D }     # All Users\Templates
159 sub CSIDL_COMMON_DOCUMENTS     ()       { 0x002E }     # All Users\Documents
160 sub CSIDL_COMMON_ADMINTOOLS    ()       { 0x002F }     # All Users\Start Menu\Programs\Administrative Tools
161 sub CSIDL_ADMINTOOLS           ()       { 0x0030 }     # <user name>\Start Menu\Programs\Administrative Tools
162 sub CSIDL_COMMON_MUSIC         ()       { 0x0035 }     # All Users\My Music
163 sub CSIDL_COMMON_PICTURES      ()       { 0x0036 }     # All Users\My Pictures
164 sub CSIDL_COMMON_VIDEO         ()       { 0x0037 }     # All Users\My Video
165 sub CSIDL_RESOURCES            ()       { 0x0038 }     # %windir%\Resources\, For theme and other windows resources.
166 sub CSIDL_RESOURCES_LOCALIZED  ()       { 0x0039 }     # %windir%\Resources\<LangID>, for theme and other windows specific resources.
167 sub CSIDL_CDBURN_AREA          ()       { 0x003B }     # <user name>\Local Settings\Application Data\Microsoft\CD Burning
168
169 ### This method is just a simple interface into GetOSVersion().  More
170 ### specific or demanding situations should use that instead.
171
172 my ($found_os, $found_desc);
173
174 sub GetOSName {
175     my ($os,$desc,$major, $minor, $build, $id)=("","");
176     unless (defined $found_os) {
177         # If we have a run this already, we have the results cached
178         # If so, return them
179
180         # Use the standard API call to determine the version
181         ($desc, $major, $minor, $build, $id) = Win32::GetOSVersion();
182
183         # If id==0 then its a win32s box -- Meaning Win3.11
184         unless($id) {
185             $os = 'Win32s';
186         }
187         else {
188             # Magic numbers from MSDN documentation of OSVERSIONINFO
189             # Most version names can be parsed from just the id and minor
190             # version
191             $os = {
192                 1 => {
193                     0  => "95",
194                     10 => "98",
195                     90 => "Me"
196                 },
197                 2 => {
198                     0  => "NT4",
199                     1  => "XP/.Net",
200                     2  => "2003",
201                     51 => "NT3.51"
202                 }
203             }->{$id}->{$minor};
204         }
205
206         # This _really_ shouldnt happen.  At least not for quite a while
207         # Politely warn and return undef
208         unless (defined $os) {
209             warn qq[Windows version [$id:$major:$minor] unknown!];
210             return undef;
211         }
212
213         my $tag = "";
214
215         # But distinguising W2k and Vista from NT4 requires looking at the major version
216         if ($os eq "NT4") {
217             $os = {5 => "2000", 6 => "Vista"}->{$major} || "NT4";
218         }
219
220         # For the rest we take a look at the build numbers and try to deduce
221         # the exact release name, but we put that in the $desc
222         elsif ($os eq "95") {
223             if ($build eq '67109814') {
224                     $tag = '(a)';
225             }
226             elsif ($build eq '67306684') {
227                     $tag = '(b1)';
228             }
229             elsif ($build eq '67109975') {
230                     $tag = '(b2)';
231             }
232         }
233         elsif ($os eq "98" && $build eq '67766446') {
234             $tag = '(2nd ed)';
235         }
236
237         if (length $tag) {
238             if (length $desc) {
239                 $desc = "$tag $desc";
240             }
241             else {
242                 $desc = $tag;
243             }
244         }
245
246         # cache the results, so we dont have to do this again
247         $found_os      = "Win$os";
248         $found_desc    = $desc;
249     }
250
251     return wantarray ? ($found_os, $found_desc) : $found_os;
252 }
253
254 bootstrap Win32;
255
256 1;
257
258 __END__
259
260 =head1 NAME
261
262 Win32 - Interfaces to some Win32 API Functions
263
264 =head1 DESCRIPTION
265
266 Perl on Win32 contains several functions to access Win32 APIs.  Some
267 are included in Perl itself (on Win32) and some are only available
268 after explicitly requesting the Win32 module with:
269
270         use Win32;
271
272 The builtin functions are marked as [CORE] and the other ones
273 as [EXT] in the following alphabetical listing.
274
275 =head2 Alphabetical Listing of Win32 Functions
276
277 =over
278
279 =item Win32::AbortSystemShutdown(MACHINE)
280
281 [EXT] Aborts a system shutdown (started by the
282 InitiateSystemShutdown function) on the specified MACHINE.
283
284 =item Win32::BuildNumber()
285
286 [CORE] Returns the ActivePerl build number.  This function is
287 only available in the ActivePerl binary distribution.
288
289 =item Win32::CopyFile(FROM, TO, OVERWRITE)
290
291 [CORE] The Win32::CopyFile() function copies an existing file to a new
292 file.  All file information like creation time and file attributes will
293 be copied to the new file.  However it will B<not> copy the security
294 information.  If the destination file already exists it will only be
295 overwritten when the OVERWRITE parameter is true.  But even this will
296 not overwrite a read-only file; you have to unlink() it first
297 yourself.
298
299 =item Win32::DomainName()
300
301 [CORE] Returns the name of the Microsoft Network domain that the
302 owner of the current perl process is logged into.  This function does
303 B<not> work on Windows 9x.
304
305 =item Win32::ExpandEnvironmentStrings(STRING)
306
307 [EXT] Takes STRING and replaces all referenced environment variable
308 names with their defined values.  References to environment variables
309 take the form C<%VariableName%>.  Case is ignored when looking up the
310 VariableName in the environment.  If the variable is not found then the
311 original C<%VariableName%> text is retained.  Has the same effect
312 as the following:
313
314         $string =~ s/%([^%]*)%/$ENV{$1} || "%$1%"/eg
315
316 =item Win32::FormatMessage(ERRORCODE)
317
318 [CORE] Converts the supplied Win32 error number (e.g. returned by
319 Win32::GetLastError()) to a descriptive string.  Analogous to the
320 perror() standard-C library function.  Note that C<$^E> used
321 in a string context has much the same effect.
322
323         C:\> perl -e "$^E = 26; print $^E;"
324         The specified disk or diskette cannot be accessed
325
326 =item Win32::FsType()
327
328 [CORE] Returns the name of the filesystem of the currently active
329 drive (like 'FAT' or 'NTFS').  In list context it returns three values:
330 (FSTYPE, FLAGS, MAXCOMPLEN).  FSTYPE is the filesystem type as
331 before.  FLAGS is a combination of values of the following table:
332
333         0x00000001  supports case-sensitive filenames
334         0x00000002  preserves the case of filenames
335         0x00000004  supports Unicode in filenames
336         0x00000008  preserves and enforces ACLs
337         0x00000010  supports file-based compression
338         0x00000020  supports disk quotas
339         0x00000040  supports sparse files
340         0x00000080  supports reparse points
341         0x00000100  supports remote storage
342         0x00008000  is a compressed volume (e.g. DoubleSpace)
343         0x00010000  supports object identifiers
344         0x00020000  supports the Encrypted File System (EFS)
345
346 MAXCOMPLEN is the maximum length of a filename component (the part
347 between two backslashes) on this file system.
348
349 =item Win32::FreeLibrary(HANDLE)
350
351 [EXT] Unloads a previously loaded dynamic-link library.  The HANDLE is
352 no longer valid after this call.  See L<LoadLibrary|Win32::LoadLibrary(LIBNAME)>
353 for information on dynamically loading a library.
354
355 =item Win32::GetArchName()
356
357 [EXT] Use of this function is deprecated.  It is equivalent with
358 $ENV{PROCESSOR_ARCHITECTURE}.  This might not work on Win9X.
359
360 =item Win32::GetChipName()
361
362 [EXT] Returns the processor type: 386, 486 or 586 for Intel processors,
363 21064 for the Alpha chip.
364
365 =item Win32::GetCwd()
366
367 [CORE] Returns the current active drive and directory.  This function
368 does not return a UNC path, since the functionality required for such
369 a feature is not available under Windows 95.
370
371 =item Win32::GetFileVersion(FILENAME)
372
373 [EXT] Returns the file version number from the VERSIONINFO resource of
374 the executable file or DLL.  This is a tuple of four 16 bit numbers.
375 In list context these four numbers will be returned.  In scalar context
376 they are concatenated into a string, separated by dots.
377
378 =item Win32::GetFolderPath(FOLDER [, CREATE])
379
380 [EXT] Returns the full pathname of one of the Windows special folders.
381 The folder will be created if it doesn't exist and the optional CREATE
382 argument is true.  The following FOLDER constants are defined by the
383 Win32 module, but only exported on demand:
384
385         CSIDL_ADMINTOOLS
386         CSIDL_APPDATA
387         CSIDL_CDBURN_AREA
388         CSIDL_COMMON_ADMINTOOLS
389         CSIDL_COMMON_APPDATA
390         CSIDL_COMMON_DESKTOPDIRECTORY
391         CSIDL_COMMON_DOCUMENTS
392         CSIDL_COMMON_FAVORITES
393         CSIDL_COMMON_MUSIC
394         CSIDL_COMMON_PICTURES
395         CSIDL_COMMON_PROGRAMS
396         CSIDL_COMMON_STARTMENU
397         CSIDL_COMMON_STARTUP
398         CSIDL_COMMON_TEMPLATES
399         CSIDL_COMMON_VIDEO
400         CSIDL_COOKIES
401         CSIDL_DESKTOP
402         CSIDL_DESKTOPDIRECTORY
403         CSIDL_FAVORITES
404         CSIDL_FONTS
405         CSIDL_HISTORY
406         CSIDL_INTERNET_CACHE
407         CSIDL_LOCAL_APPDATA
408         CSIDL_MYMUSIC
409         CSIDL_MYPICTURES
410         CSIDL_MYVIDEO
411         CSIDL_NETHOOD
412         CSIDL_PERSONAL
413         CSIDL_PRINTHOOD
414         CSIDL_PROFILE
415         CSIDL_PROGRAMS
416         CSIDL_PROGRAM_FILES
417         CSIDL_PROGRAM_FILES_COMMON
418         CSIDL_RECENT
419         CSIDL_RESOURCES
420         CSIDL_RESOURCES_LOCALIZED
421         CSIDL_SENDTO
422         CSIDL_STARTMENU
423         CSIDL_STARTUP
424         CSIDL_SYSTEM
425         CSIDL_TEMPLATES
426         CSIDL_WINDOWS
427
428 Note that not all folders are defined on all versions of Windows.
429
430 Please refer to the MSDN documentation of the CSIDL constants,
431 currently available at:
432
433 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
434
435 =item Win32::GetFullPathName(FILENAME)
436
437 [CORE] GetFullPathName combines the FILENAME with the current drive
438 and directory name and returns a fully qualified (aka, absolute)
439 path name.  In list context it returns two elements: (PATH, FILE) where
440 PATH is the complete pathname component (including trailing backslash)
441 and FILE is just the filename part.  Note that no attempt is made to
442 convert 8.3 components in the supplied FILENAME to longnames or
443 vice-versa.  Compare with Win32::GetShortPathName and
444 Win32::GetLongPathName.
445
446 =item Win32::GetLastError()
447
448 [CORE] Returns the last error value generated by a call to a Win32 API
449 function.  Note that C<$^E> used in a numeric context amounts to the
450 same value.
451
452 =item Win32::GetLongPathName(PATHNAME)
453
454 [CORE] Returns a representation of PATHNAME composed of longname
455 components (if any).  The result may not necessarily be longer
456 than PATHNAME.  No attempt is made to convert PATHNAME to the
457 absolute path.  Compare with Win32::GetShortPathName and
458 Win32::GetFullPathName.
459
460 =item Win32::GetNextAvailDrive()
461
462 [CORE] Returns a string in the form of "<d>:" where <d> is the first
463 available drive letter.
464
465 =item Win32::GetOSVersion()
466
467 [CORE] Returns the list (STRING, MAJOR, MINOR, BUILD, ID), where the
468 elements are, respectively: An arbitrary descriptive string, the major
469 version number of the operating system, the minor version number, the
470 build number, and a digit indicating the actual operating system.
471 For the ID, the values are 0 for Win32s, 1 for Windows 9X/Me and 2 for
472 Windows NT/2000/XP/2003.  In scalar context it returns just the ID.
473
474 Currently known values for ID MAJOR and MINOR are as follows:
475
476     OS                    ID    MAJOR   MINOR
477     Win32s                 0      -       -
478     Windows 95             1      4       0
479     Windows 98             1      4      10
480     Windows Me             1      4      90
481     Windows NT 3.51        2      3      51
482     Windows NT 4           2      4       0
483     Windows 2000           2      5       0
484     Windows XP             2      5       1
485     Windows Server 2003    2      5       2
486     Windows Vista          2      6       0
487
488 On Windows NT 4 SP6 and later this function returns the following
489 additional values: SPMAJOR, SPMINOR, SUITEMASK, PRODUCTTYPE.
490
491 SPMAJOR and SPMINOR are are the version numbers of the latest
492 installed service pack.
493
494 SUITEMASK is a bitfield identifying the product suites available on
495 the system.  Known bits are:
496
497     VER_SUITE_SMALLBUSINESS             0x00000001
498     VER_SUITE_ENTERPRISE                0x00000002
499     VER_SUITE_BACKOFFICE                0x00000004
500     VER_SUITE_COMMUNICATIONS            0x00000008
501     VER_SUITE_TERMINAL                  0x00000010
502     VER_SUITE_SMALLBUSINESS_RESTRICTED  0x00000020
503     VER_SUITE_EMBEDDEDNT                0x00000040
504     VER_SUITE_DATACENTER                0x00000080
505     VER_SUITE_SINGLEUSERTS              0x00000100
506     VER_SUITE_PERSONAL                  0x00000200
507     VER_SUITE_BLADE                     0x00000400
508     VER_SUITE_EMBEDDED_RESTRICTED       0x00000800
509     VER_SUITE_SECURITY_APPLIANCE        0x00001000
510
511 The VER_SUITE_xxx names are listed here to crossreference the Microsoft
512 documentation.  The Win32 module does not provide symbolic names for these
513 constants.
514
515 PRODUCTTYPE provides additional information about the system.  It should
516 be one of the following integer values:
517
518     1 - Workstation (NT 4, 2000 Pro, XP Home, XP Pro)
519     2 - Domaincontroller
520     3 - Server
521
522 =item Win32::GetOSName()
523
524 [EXT] In scalar context returns the name of the Win32 operating system
525 being used.  In list context returns a two element list of the OS name
526 and whatever edition information is known about the particular build
527 (for Win9X boxes) and whatever service packs have been installed.
528 The latter is roughly equivalent to the first item returned by
529 GetOSVersion() in list context.
530
531 Currently the possible values for the OS name are
532
533  Win32s Win95 Win98 WinMe WinNT3.51 WinNT4 Win2000 WinXP/.Net Win2003
534
535 This routine is just a simple interface into GetOSVersion().  More
536 specific or demanding situations should use that instead.  Another
537 option would be to use POSIX::uname(), however the latter appears to
538 report only the OS family name and not the specific OS.  In scalar
539 context it returns just the ID.
540
541 The name "WinXP/.Net" is used for historical reasons only, to maintain
542 backwards compatibility of the Win32 module.  Windows .NET Server has
543 been renamed as Windows 2003 Server before final release and uses a
544 different major/minor version number than Windows XP.
545
546 =item Win32::GetShortPathName(PATHNAME)
547
548 [CORE] Returns a representation of PATHNAME that is composed of short
549 (8.3) path components where available.  For path components where the
550 file system has not generated the short form the returned path will
551 use the long form, so this function might still for instance return a
552 path containing spaces.  Compare with Win32::GetFullPathName and
553 Win32::GetLongPathName.
554
555 =item Win32::GetProcAddress(INSTANCE, PROCNAME)
556
557 [EXT] Returns the address of a function inside a loaded library.  The
558 information about what you can do with this address has been lost in
559 the mist of time.  Use the Win32::API module instead of this deprecated
560 function.
561
562 =item Win32::GetTickCount()
563
564 [CORE] Returns the number of milliseconds elapsed since the last
565 system boot.  Resolution is limited to system timer ticks (about 10ms
566 on WinNT and 55ms on Win9X).
567
568 =item Win32::GuidGen()
569
570 [EXT] Creates a globally unique 128 bit integer that can be used as a
571 persistent identifier in a distributed setting. To a very high degree
572 of certainty this function returns a unique value. No other
573 invocation, on the same or any other system (networked or not), should
574 return the same value.
575
576 The return value is formatted according to OLE conventions, as groups
577 of hex digits with surrounding braces.  For example:
578
579     {09531CF1-D0C7-4860-840C-1C8C8735E2AD}
580  
581 =item Win32::InitiateSystemShutdown
582
583 (MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT)
584
585 [EXT] Shutsdown the specified MACHINE, notifying users with the
586 supplied MESSAGE, within the specified TIMEOUT interval.  Forces
587 closing of all documents without prompting the user if FORCECLOSE is
588 true, and reboots the machine if REBOOT is true.  This function works
589 only on WinNT.
590
591 =item Win32::IsAdminUser()
592
593 [EXT] Returns non zero if the account in whose security context the
594 current process/thread is running belongs to the local group of
595 Administrators in the built-in system domain; returns 0 if not.
596 Returns the undefined value and prints a warning if an error occurred.
597 This function always returns 1 on Win9X.
598
599 =item Win32::IsWinNT()
600
601 [CORE] Returns non zero if the Win32 subsystem is Windows NT.
602
603 =item Win32::IsWin95()
604
605 [CORE] Returns non zero if the Win32 subsystem is Windows 95.
606
607 =item Win32::LoadLibrary(LIBNAME)
608
609 [EXT] Loads a dynamic link library into memory and returns its module
610 handle.  This handle can be used with Win32::GetProcAddress and
611 Win32::FreeLibrary.  This function is deprecated.  Use the Win32::API
612 module instead.
613
614 =item Win32::LoginName()
615
616 [CORE] Returns the username of the owner of the current perl process.
617
618 =item Win32::LookupAccountName(SYSTEM, ACCOUNT, DOMAIN, SID, SIDTYPE)
619
620 [EXT] Looks up ACCOUNT on SYSTEM and returns the domain name the SID and
621 the SID type.
622
623 =item Win32::LookupAccountSID(SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE)
624
625 [EXT] Looks up SID on SYSTEM and returns the account name, domain name,
626 and the SID type.
627
628 =item Win32::MsgBox(MESSAGE [, FLAGS [, TITLE]])
629
630 [EXT] Create a dialogbox containing MESSAGE.  FLAGS specifies the
631 required icon and buttons according to the following table:
632
633         0 = OK
634         1 = OK and Cancel
635         2 = Abort, Retry, and Ignore
636         3 = Yes, No and Cancel
637         4 = Yes and No
638         5 = Retry and Cancel
639
640         MB_ICONSTOP          "X" in a red circle
641         MB_ICONQUESTION      question mark in a bubble
642         MB_ICONEXCLAMATION   exclamation mark in a yellow triangle
643         MB_ICONINFORMATION   "i" in a bubble
644
645 TITLE specifies an optional window title.  The default is "Perl".
646
647 The function returns the menu id of the selected push button:
648
649         0  Error
650
651         1  OK
652         2  Cancel
653         3  Abort
654         4  Retry
655         5  Ignore
656         6  Yes
657         7  No
658
659 =item Win32::NodeName()
660
661 [CORE] Returns the Microsoft Network node-name of the current machine.
662
663 =item Win32::RegisterServer(LIBRARYNAME)
664
665 [EXT] Loads the DLL LIBRARYNAME and calls the function DllRegisterServer.
666
667 =item Win32::SetChildShowWindow(SHOWWINDOW)
668
669 [CORE] Sets the I<ShowMode> of child processes started by system().
670 By default system() will create a new console window for child
671 processes if Perl itself is not running from a console.  Calling
672 SetChildShowWindow(0) will make these new console windows invisible.
673 Calling SetChildShowWindow() without arguments reverts system() to the
674 default behavior.  The return value of SetChildShowWindow() is the
675 previous setting or C<undef>.
676
677 [EXT] The following symbolic constants for SHOWWINDOW are available
678 (but not exported) from the Win32 module: SW_HIDE, SW_SHOWNORMAL,
679 SW_SHOWMINIMIZED, SW_SHOWMAXIMIZED and SW_SHOWNOACTIVATE.
680
681 =item Win32::SetCwd(NEWDIRECTORY)
682
683 [CORE] Sets the current active drive and directory.  This function does not
684 work with UNC paths, since the functionality required to required for
685 such a feature is not available under Windows 95.
686
687 =item Win32::SetLastError(ERROR)
688
689 [CORE] Sets the value of the last error encountered to ERROR.  This is
690 that value that will be returned by the Win32::GetLastError()
691 function.
692
693 =item Win32::Sleep(TIME)
694
695 [CORE] Pauses for TIME milliseconds.  The timeslices are made available
696 to other processes and threads.
697
698 =item Win32::Spawn(COMMAND, ARGS, PID)
699
700 [CORE] Spawns a new process using the supplied COMMAND, passing in
701 arguments in the string ARGS.  The pid of the new process is stored in
702 PID.  This function is deprecated.  Please use the Win32::Process module
703 instead.
704
705 =item Win32::UnregisterServer(LIBRARYNAME)
706
707 [EXT] Loads the DLL LIBRARYNAME and calls the function
708 DllUnregisterServer.
709
710 =back
711
712 =cut