home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / praxis / listing5.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-12  |  910 b   |  26 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     LISTING.5                          *)
  3. (*             (c) 1991 Borland International             *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. BEGIN { WinCrt }
  7.   IF HPrevInst = 0 THEN BEGIN
  8.     CrtClass.hInstance     := hInstance;
  9.     CrtClass.hIcon         := LoadIcon(0, idi_Application);
  10.     CrtClass.hCursor       := LoadCursor(0, idc_Arrow);
  11.     CrtClass.hbrBackground := GetStockObject(White_Brush);
  12.     RegisterClass(CrtClass);
  13.   END;
  14.   AssignCrt(Input);
  15.   Reset(Input);
  16.   AssignCrt(Output);
  17.   Rewrite(Output);
  18.   GetModuleFileName(hInstance, WindowTitle,
  19.                     SizeOf(WindowTitle));
  20.   SaveExit := ExitProc;
  21.   ExitProc := @ExitWinCrt;
  22. END.
  23. (* ------------------------------------------------------ *)
  24. (*                  Ende von LISTING.5                    *)
  25.  
  26.