home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / IBConsole.dpr < prev    next >
Text File  |  2000-07-23  |  4KB  |  97 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by InterBase
  12.  * Software Corporation and its successors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19. program IBConsole;
  20.  
  21. {%ToDo 'IBConsole.todo'}
  22.  
  23. uses
  24.   Windows,
  25.   Forms,
  26.   frmuMain in 'frmuMain.pas' {frmMain},
  27.   frmuAbout in 'frmuAbout.pas' {frmAbout},
  28.   zluGlobal in 'zluGlobal.pas',
  29.   frmuServerLogin in 'frmuServerLogin.pas' {frmServerLogin},
  30.   frmuUser in 'frmuUser.pas' {frmUserInfo},
  31.   dmuMain in 'dmuMain.pas' {dmMain: TDataModule},
  32.   frmuServerRegister in 'frmuServerRegister.pas' {frmServerRegister},
  33.   zluibcClasses in 'zluibcClasses.pas',
  34.   frmuDBRegister in 'frmuDBRegister.pas' {frmDBRegister},
  35.   frmuSplash in 'frmuSplash.pas' {frmSplash},
  36.   frmuMessage in 'frmuMessage.pas' {frmMessage},
  37.   zluUtility in 'zluUtility.pas',
  38.   frmuDBConnect in 'frmuDBConnect.pas' {frmDBConnect},
  39.   frmuDBBackup in 'frmuDBBackup.pas' {frmDBBackup},
  40.   frmuServerProperties in 'frmuServerProperties.pas' {frmServerProperties},
  41.   frmuDBProperties in 'frmuDBProperties.pas' {frmDBProperties},
  42.   frmuBackupAliasProperties in 'frmuBackupAliasProperties.pas' {frmBackupAliasProperties},
  43.   frmuDBCreate in 'frmuDBCreate.pas' {frmDBCreate},
  44.   zluContextHelp in 'zluContextHelp.pas',
  45.   zluCommDiag in 'zluCommDiag.pas',
  46.   frmuCommDiag in 'frmuCommDiag.pas' {frmCommDiag},
  47.   frmuDBConnections in 'frmuDBConnections.pas' {frmDBConnections},
  48.   frmuDBShutdown in 'frmuDBShutdown.pas' {frmDBShutdown},
  49.   frmuDBStatistics in 'frmuDBStatistics.pas' {frmDBStatistics},
  50.   frmuAddCertificate in 'frmuAddCertificate.pas' {frmAddCertificate},
  51.   frmuDBValidationReport in 'frmuDBValidationReport.pas' {frmDBValidationReport},
  52.   frmuDBTransactions in 'frmuDBTransactions.pas' {frmDBTransactions},
  53.   frmuDBValidation in 'frmuDBValidation.pas' {frmDBValidation},
  54.   frmuDBRestore in 'frmuDBRestore.pas' {frmDBRestore},
  55.   frmuDispMemo in 'frmuDispMemo.pas' {frmDispMemo},
  56.   frmuModifyServerAlias in 'frmuModifyServerAlias.pas' {frmModifyServerAlias},
  57.   zluSQL in 'zluSQL.pas',
  58.   frmuDisplayBlob in 'frmuDisplayBlob.pas' {frmDisplayBlob},
  59.   frmuDlgClass in 'frmuDlgClass.pas' {Dialog},
  60.   frmuObjectWindow in 'frmuObjectWindow.pas' {frmObjectView},
  61.   wisql in 'wisql.pas' {dlgWisql},
  62.   frmuTextViewer in 'frmuTextViewer.pas' {frmTextViewer},
  63.   frmuSQLOptions in 'frmuSQLOptions.pas' {frmSQLOptions},
  64.   frmuTools in 'frmuTools.pas' {frmTools},
  65.   frmuAddTool in 'frmuAddTool.pas' {frmAddTools},
  66.   frmuDescription in 'frmuDescription.pas' {frmDescription},
  67.   frmuWindowList in 'frmuWindowList.pas' {dlgWindowList};
  68.  
  69. {$R *.RES}
  70.  
  71. begin
  72.   { Create a mutex to make sure only 1 instance is running }
  73.   CreateMutex (nil, false, 'ib_console_mtx');
  74.   if GetLastError() = ERROR_ALREADY_EXISTS then
  75.   begin
  76.     { It's already running so Restore the other copy }
  77.     SendMessage (HWND_BROADCAST,
  78.                  RegisterWindowMessage('ib_console_mtx'),
  79.                  0,
  80.                  0);
  81.     Halt(0);
  82.   end;
  83.   Application.Initialize;
  84.   frmSplash := TfrmSplash.Create(Application);
  85.   frmSplash.Show;
  86.   frmSplash.Update;
  87.   Application.ProcessMessages;
  88.   Application.Title := 'IBConsole';
  89.   Application.CreateForm(TdmMain, dmMain);
  90.   Application.CreateForm(TfrmMain, frmMain);
  91.   frmSplash.Free;
  92.   Application.ShowMainForm := true;
  93.   ShowWindow(Application.Handle, SW_RESTORE);
  94.   Application.Run;
  95. end.
  96.  
  97.