bckj.dpr

三层的通用架构

program bckj;

uses
  Windows,
  Classes,
  SysUtils,
  Forms,
  ShareUnit in 'ShareUnit.pas',
  MainUnit in 'MainUnit.pas' {TheMainForm},
  LoginUnit in 'LoginUnit.pas' {LoginForm},
  GUIDUnit in 'GUIDUnit.pas' {GUIDForm},
  ChangePasswordUnit in 'ChangePasswordUnit.pas' {ChangePasswordForm},
  UserUnit in 'UserUnit.pas' {UserForm},
  SetStringUnit in 'SetStringUnit.pas' {SetStringForm},
  UserItemUnit in 'UserItemUnit.pas' {UserItemForm},
  SetCOMUnit in 'SetCOMUnit.pas' {SetCOMForm},
  SysParaUnit in 'SysParaUnit.pas' {SysParaForm},
  DBParaUnit in 'DBParaUnit.pas' {DBParaForm},
  LoginTimesUnit in 'LoginTimesUnit.pas' {LoginTimesForm},
  ItemPropertyUnit in 'ItemPropertyUnit.pas' {ItemPropertyForm},
  AdoConEdEx in 'AdoConEdEx.pas' {ConnEditFormEx},
  bckj_TLB in 'bckj_TLB.pas',
  RDMUnit in 'RDMUnit.pas' {DefaultRDM: TRemoteDataModule} {DefaultRDM: CoClass},
  RDM1Unit in 'RDM1Unit.pas' {DefaultRDM1: TRemoteDataModule} {DefaultRDM1: CoClass},
  RDM2Unit in 'RDM2Unit.pas' {DefaultRDM2: TRemoteDataModule} {DefaultRDM3: CoClass},
  RDM3Unit in 'RDM3Unit.pas' {DefaultRDM3: TRemoteDataModule} {DefaultRDM3: CoClass},
  RDM4Unit in 'RDM4Unit.pas' {DefaultRDM4: TRemoteDataModule} {DefaultRDM4: CoClass},
  RDM5Unit in 'RDM5Unit.pas' {DefaultRDM5: TRemoteDataModule} {DefaultRDM5: CoClass},
  RDM6Unit in 'RDM6Unit.pas' {DefaultRDM6: TRemoteDataModule} {DefaultRDM6: CoClass},
  RDM7Unit in 'RDM7Unit.pas' {DefaultRDM7: TRemoteDataModule} {DefaultRDM7: CoClass},
  RDM8Unit in 'RDM8Unit.pas' {DefaultRDM8: TRemoteDataModule} {DefaultRDM8: CoClass},
  RDM9Unit in 'RDM9Unit.pas' {DefaultRDM9: TRemoteDataModule} {DefaultRDM1: CoClass},
  ServerViewUnit in 'ServerViewUnit.pas' {ServerViewForm},
  ConnectionsUnit in 'ConnectionsUnit.pas' {ConnectionsForm};

{$R *.TLB}

{$R *.res}

Label StartHere;

var
  i: Integer;
  TempStr: string;

begin
  TempStr := ExtractFilePath(Application.ExeName);
  i := Pos('\', TempStr);
  while i > 0 do
  begin
    TempStr := Copy(TempStr, 1, i - 1) + '/' + Copy(TempStr, i + 1, Length(TempStr) - i);
    i := Pos('\', TempStr);
  end;
  hFileMap := OpenFileMapping(FILE_MAP_WRITE, False, PChar(TempStr + 'BckjByWfs'));
  if hFileMap = 0 then
  begin
    hFileMap := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(TMapData), PChar(TempStr + 'BckjByWfs'));
    if hFileMap <> 0 then
    begin
      StartHere:
      hMapView := MapViewOfFile(hFileMap, FILE_MAP_WRITE, 0, 0, 0);
      if hMapView <> nil then
      begin
        ZeroMemory(hMapView, SizeOf(TMapData));
        hMapView^.AppHandle := Application.Handle;
        Application.Initialize;
        Application.Title := 'Delphi6编程框架';
        Application.HelpFile := '';
        Application.HintShortCuts := False;
        Application.ShowMainForm := False;
        if FCshSuccess then
        begin
          try
            Application.CreateForm(TTheMainForm, TheMainForm);
            Application.Run;
          except
            on E:Exception do
              Application.MessageBox(PChar(E.Message), '警告', MB_OK or MB_ICONSTOP);
          end;
        end
        else
          Application.MessageBox('出现未知错误', '警告', MB_OK or MB_ICONSTOP);
        UnmapViewOfFile(hMapView);
      end;
    end;
  end
  else begin
    hMapView := MapViewOfFile(hFileMap, FILE_MAP_WRITE, 0, 0, 0);
    if hMapView <> nil then
    begin
      if not IsWindow(hMapView^.AppHandle) then
      begin
        UnmapViewOfFile(hMapView);
        goto StartHere;
      end;
      SetForeGroundWindow(hMapView^.AppHandle);
      if (hMapView^.ActiveHandle > 0) and IsWindow(hMapView^.ActiveHandle) then
      begin
        SetForeGroundWindow(hMapView^.ActiveHandle);
        if IsIconic(hMapView^.ActiveHandle) then
          OpenIcon(hMapView^.ActiveHandle);
      end
      else
        SetForeGroundWindow(hMapView^.AppHandle);
    end;
  end;
  if hFileMap > 0 then
    CloseHandle(hFileMap);
end.