home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / EXWIN / Exwin.pas < prev    next >
Pascal/Delphi Source File  |  1998-04-23  |  2KB  |  38 lines
  1. (* =========================================================== *(
  2. ** exwin.pas -- Exit Windows                                   **
  3. ** ........................................................... **
  4. **                                                             **
  5. ** Compile this program using Delphi's DOS command line        **
  6. ** compiler. Make sure c:\delphi\bin is on the system PATH,    **
  7. ** and enter DCC32 EXWIN to create EXWIN.EXE. Run the program  **
  8. ** to shut down Windows. The program also generates the        **
  9. ** smallest possible .EXE code file size--about 15K.           **
  10. **                                                             **
  11. ** Enable one of the two statements. The first restarts        **
  12. ** Windows; the second reboots the system. Both commands exit  **
  13. ** any applications, so this is a good prelude to running      **
  14. ** programs such as installers that require lots of memory.    **
  15. **                                                             **
  16. ** ........................................................... **
  17. **     Copyright (c) 1998 by Tom Swan. All rights reserved.    **
  18. )* =========================================================== *)
  19.  
  20. program ExWin;
  21. uses WinTypes, WinProcs;
  22. begin
  23. (* Old code for Delphi 1.x and Windows 3.1
  24.   ExitWindows(EW_RESTARTWINDOWS, 0);    { Restart Windows }
  25. { ExitWindows(EW_REBOOTSYSTEM, 0);   }  { Reboot system }
  26. *)
  27. (* New code for Delphi 3.x+ and Windows 95+/NT *)
  28.   ExitWindowsEx(EWX_REBOOT, 0);         { Reboot system and Windows }
  29. { ExitWindowsEx(EWX_SHUTDOWN, 0);    }  { Shutdown Windows }
  30. end.
  31.  
  32. (*
  33. // ==============================================================
  34. // Copyright (c) 1995, 1998 by Tom Swan. All rights reserved
  35. // Revision 1.00    Date: 05/10/1995   Time: 07:42 am
  36. // Revision 2.00    Date: 01/21/1998   Time: 03:38 pm
  37. *)
  38.