{*******************************************************}
{                                                       }
{       單元名稱: program Helper;                       }
{       創建日期: 2005-08-26                            }
{       摘要說明: 項目文件                              }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當前版本: 2.0                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

program Helper;

uses
  Forms,
  Windows,
  UntMain in 'UntMain.pas' {FormMain},
  UntFaceD in 'UntFaceD.pas',
  UntDM in 'UntDM.pas' {DM: TDataModule},
  UntFunc in 'UntFunc.pas' {FrmFunc},
  Start in 'Start.pas' {frmStart},
  UntSysFaceD in 'UntSysFaceD.pas',
  UntAbout in 'UntAbout.pas' {FrmAbout},
  UntFuncD in 'UntFuncD.pas' {FrmFuncD};

var
  Window1           : HWND;

{$R *.res}

begin
  Application.Initialize;

  Window1 := FindWindow(nil, 'Delphi程序員助手');
  if Window1 <> 0 then
    begin
      ShowWindow(Window1, SW_SHOWNORMAL);
      UpdateWindow(Window1);
      Application.Terminate;
    end;

  Application.Title := 'Delphi程序員助手';
  FrmStart := TfrmStart.Create(Application);
  FrmStart.Show;
  FrmStart.Update;
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFormMain, FormMain);
  //Sleep(1000);
  FrmStart.Hide;
  FrmStart.Free;
  Application.Run;

end.