dicomview.dpr

在delphi7 下开发医学图象浏览器,对医学图象进行编辑,分析的

(*
 *  ezDICOM.dpr - ezDICOM: project file
 *  Project: ezDICOM
 *  Purpose: ezDICOM project
 *  Rev:10
 *	01-Jul-97, wk: first implementation coded
 *   7-7-2000, cr: 
 *)
program DICOMView;

uses
  Forms,
  IniFiles,
  SysUtils,
  Dialogs,
  Windows,
  Main in 'MAIN.PAS' {MainForm},
  Childwin in 'Childwin.pas' {MDIChild},
  Raw in 'Raw.pas' {RawForm},
  uMultislice in 'uMultislice.pas' {MultiSliceForm},
  GraphicsClassUnit in 'GraphicsClassUnit.pas',
  VectorgraphClassUnit in 'VectorgraphClassUnit.pas';

var
  MutexHandle: THandle; //定义互斥句柄
  //防止二次运行


{$R *.RES}


begin


  // whether existed
  MutexHandle := CreateMutex(nil, TRUE, '图像查看器');
  if MutexHandle <> 0 then
  begin
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      //MessageBox(0, '图像查看器...', '不好意思', mb_IconHand);
      CloseHandle(MutexHandle);
      Halt; // 'Halt' Is stop running the actual application.
    end;
  end;


  Application.CreateForm(TMainForm, MainForm);
  //  Application.CreateForm(TRawForm, RawForm);
//  Application.CreateForm(TMultiSliceForm, MultiSliceForm);
  Application.Title := 'ezDICOM';
  MainForm.Applaunch;
  Application.Run;

end.