home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / BPASCAL.700 / D12 / OLE.ZIP / OLESERVR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-10-01  |  1.2 KB  |  46 lines
  1. {***************************************************}
  2. {                                                   }
  3. {   Windows 3.1 OLE Server Demonstration Program    }
  4. {   Main Program Unit                               }
  5. {   Copyright (c) 1992 by Borland International     }
  6. {                                                   }
  7. {***************************************************}
  8.  
  9. program OleSrvApp;
  10.  
  11. {$K-}  { Servers cannot have smart callbacks }
  12.  
  13. { This program demonstrates the development of an OLE
  14.   Server application.  It supports a simple 'document'
  15.   consisting of a shape (selectable as either a rectangle,
  16.   circle, or triangle) which can be pasted or linked into
  17.   an OLE Client (such as the OLE Client demo program, or
  18.   Word for Windows).
  19. }
  20.  
  21. { NOTE: The order in which units appear in this statement is
  22.   significant: some units require this compilation order.
  23. }
  24.  
  25. { Note: To compile the OLE Server demo, set Compile|Primary File to OLESERVR.PAS
  26. }
  27.  
  28. uses Strings, WinTypes, WinProcs, OWindows, Ole, CommDlg, ShellAPI, BWCC,
  29.      OleTypes, OleObj, Server, OleApp;
  30.  
  31. {$R OLESERVR.RES}
  32.  
  33. { Global Variables }
  34.  
  35. var
  36.   App: TOleApp;
  37.  
  38. { Main program }
  39.  
  40. begin
  41.   App.Init(DemoTitle);
  42.   App.Run;
  43.   App.Done;
  44. end.
  45.  
  46.