home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / c / mobjm260 / mwinstal.in_ / mwinstal.in
Encoding:
Text File  |  1994-09-06  |  3.7 KB  |  115 lines
  1. (***********************************************************************)
  2. (*                                                                     *)
  3. (*          Microworks ObjectMate 2.6                                                          *)
  4. (*                                                                     *)
  5. (*     Windows Interface Develpment Kit for the Borland Languages.     *)
  6. (*                                                                     *)
  7. (*         MWINSTAL.INC : Constants, Variables and Function Declaratons    *)
  8. (*                                                                                                                               *)
  9. (*     Copyright 1992-94 Microworks Sydney, Australia.                   *)
  10. (*                                                                     *)
  11. (***********************************************************************)
  12.  
  13. const
  14.  
  15.     { Controls }
  16.     id_Bitmap      = 100;
  17.     id_EditC4      = 101;
  18.     id_EditPas     = 102;
  19.     id_CheckC4     = 103;
  20.     id_CheckPas    = 104;
  21.     id_CheckRW     = 105;
  22.     id_CheckPM     = 106;
  23.     id_Group       = 107;
  24.     id_Static      = 108;
  25.     id_Percent     = 109;
  26.     id_Panel       = 110;
  27.     id_Install     = 201;
  28.     id_Exit        = 202;
  29.     id_Read        = 203;
  30.     id_Restart     = 204;
  31.  
  32.     { Resource strings }
  33.     id_MinC4Dir    = 100;
  34.     id_MaxC4Dir    = 117;
  35.     id_MinPasDir   = 200;
  36.     id_MaxPasDir   = 215;
  37.     id_MinC4File   = 300;
  38.     id_MaxC4File   = 380;
  39.     id_MinPasFile  = 400;
  40.     id_MaxPasFile  = 431;
  41.  
  42.     { Total number of files to install }
  43.     NumBaseFiles   = 1;
  44.     NumC4Files     = 83;
  45.     NumPasFiles    = 34;
  46.  
  47. {********** Global Varibles **********}
  48.  
  49. var
  50.  
  51.     { File installation }
  52.     SystemPath     : array[0..fsPathName] of Char;
  53.     SystemDir      : array[0..fsDirectory] of Char;
  54.     FromDir        : array[0..fsDirectory] of Char;
  55.     ToC4Dir        : array[0..fsDirectory] of Char;
  56.     ToPasDir       : array[0..fsDirectory] of Char;
  57.     DllLoaded   : Boolean;
  58.     DlgProc        : TFarProc;
  59.     LZLib          : Thandle;
  60.     MainWnd        : HWnd;
  61.     InstallDlg     : HWnd;
  62.     FilesComplete  : Integer;
  63.     Percent        : Word;
  64.  
  65.     { Program Manager DDE }
  66.     Command        : array[0..512] of Char;
  67.     PMLaunched     : Boolean;
  68.     PMWnd          : HWnd;
  69.     AppAtom        : TAtom;
  70.     TopicAtom      : TAtom;
  71.     HDDE           : THandle;
  72.     DDEMessageSent : Word;
  73.  
  74. {********** Window functions **********}
  75.  
  76. function  CompleteDialogProc (Dlg: HWnd; Message, WParam: Word;
  77.                                                             LParam: LongInt): BOOL; export; forward;
  78.  
  79. function  InstallDialogProc (Dlg: HWnd; Message, WParam: Word;
  80.                                                          LParam: LongInt): BOOL; export; forward;
  81.  
  82. function  MainWindowProc (Wnd: HWnd; Message, WParam: Word;
  83.                                                     LParam: LongInt): LongInt; export; forward;
  84.  
  85. {********** Application initialization functions **********}
  86.  
  87. function  InitInstance: BOOL; forward;
  88. function  InitInstalldialog: BOOL; forward;
  89. function  InitMainWindow: BOOL; forward;
  90. function  RegisterWindows: BOOL; forward;
  91.  
  92. {********** Support functions and procedures **********}
  93.  
  94. function  CheckPaths: BOOL; forward;
  95. function  CopyFile (Dir, SubDir, FileName: PChar): BOOL; forward;
  96. procedure DoInstallation; forward;
  97. procedure EndInstallation; forward;
  98. procedure ErrorMsg (Msg: PChar); forward;
  99. function  ExpandFile (Dir, SubDir, FileName: PChar): BOOL; forward;
  100. function  GetTotalFiles: Integer; forward;
  101. procedure HourGlass (On: Boolean); forward;
  102. function  MakeDirectories: BOOL; forward;
  103. procedure PaintMainWindow (DC: HDC); forward;
  104. procedure SetDialogPos(Dlg: HWnd); forward;
  105.  
  106. {********** Program Manager DDE functions **********}
  107.  
  108. function  InitiateDDE: BOOL; forward;
  109. function  CreateGroup: BOOL; forward;
  110. procedure CreateItem (ExeFile, Description, IconFile, IconNumber: PChar); forward;
  111. procedure ExecuteDDE (ATextString: PChar); forward;
  112. procedure NotifyDDE(LValue: LongInt); forward;
  113. function  TerminateDDE: BOOL; forward;
  114.  
  115.