home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0040 - 0049 / ibm0040-0049 / ibm0040.tar / ibm0040 / BCPPOWL1.ZIP / OWLDEMOS.ZIP / CALLDLL.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-28  |  1.1 KB  |  47 lines
  1. // ObjectWindows - (C) Copyright 1991 by Borland International
  2.  
  3. #include <owl.h>
  4. #include "dllhello.h"
  5. #include "calldll.h"
  6.  
  7. class TCallDLLApp : public TApplication {
  8. public:
  9.   TCallDLLApp(LPSTR Name, HANDLE hInstance, 
  10.           HANDLE hPrevInstance, LPSTR lpCmd,
  11.           int nCmdShow)
  12.             : TApplication(Name, hInstance, 
  13.                    hPrevInstance, lpCmd, nCmdShow) {};
  14.   virtual void InitMainWindow();
  15. };
  16.  
  17. class TTestWindow : public TWindow {
  18. public:
  19.   TTestWindow(PTWindowsObject AParent, LPSTR ATitle);
  20.   virtual void CMCreate(TMessage& Msg) = [CM_FIRST + CM_CREATE];
  21. };
  22.  
  23. TTestWindow::TTestWindow(PTWindowsObject AParent, LPSTR ATitle)
  24.   : TWindow(AParent, ATitle)
  25. {
  26.   AssignMenu("COMMANDS");
  27. }
  28.   
  29. void TTestWindow::CMCreate(TMessage&)
  30. {
  31.   CreateDLLWindow(HWindow);
  32. }
  33.  
  34. void TCallDLLApp::InitMainWindow()
  35. {
  36.   MainWindow = new TTestWindow(NULL, "Create a DLL Window");
  37. }
  38.  
  39. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
  40.            LPSTR lpCmd, int nCmdShow)
  41. {
  42.   TCallDLLApp CallDLLApp("CallDLL", hInstance, hPrevInstance,
  43.         lpCmd, nCmdShow);
  44.   CallDLLApp.Run();
  45.   return(CallDLLApp.Status);
  46. }
  47.