helper.dpr

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

{*******************************************************}
{                                                       }
{       单元名称: 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.