program ShiftNow;


uses
  Forms,
  Windows,
  FMain in 'FMain.pas' {Main},
  UHWConfig in 'UHWConfig.pas',
  FAdvantech in 'FAdvantech.pas' {Advantech},
  UIO_AI_1715 in 'UIO_AI_1715.pas',
  UResourceString in 'UResourceString.pas',
  UIO_AO_1727 in 'UIO_AO_1727.pas',
  UIO_DIO_1730 in 'UIO_DIO_1730.pas',
  UMot_APCI8001 in 'UMot_APCI8001.pas',
  UIO_Thread in 'UIO_Thread.pas',
  UIO_ADAM in 'UIO_ADAM.pas',
  FHelp in 'FHelp.pas' {Help},
  FMessung in 'FMessung.pas' {Messung},
  FManuell in 'FManuell.pas' {Manuell},
  UBahnThread in 'UBahnThread.pas',
  mcug3 in 'mcug3.pas',
  UIniFile in 'UIniFile.pas',
  UGlobalClass in 'UGlobalClass.pas',
  FEingabe in 'FEingabe.pas' {Eingabe: TTntForm},
  FFahrSeg in 'FFahrSeg.pas' {FahrSegForm},
  FSplash in 'FSplash.pas' {Splash},
  UUtils in 'UUtils.pas',
  FFahrProg in 'FFahrProg.pas' {FahrProgForm},
  UStatus in 'UStatus.pas',
  UIO_Terminal in 'UIO_Terminal.pas',
  FInfo in 'FInfo.pas' {Info},
  UIO_NI_USB_6229 in 'UIO_NI_USB_6229.pas';

{$R *.res}

var
  ProgHandle : THandle;

begin //hier komme ich noch hin
  ProgHandle := CreateMutex(nil, True, 'ShiftNow'); //hier komme ich nicht an
  if GetLastError <> ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(TMain, Main);
    Application.CreateForm(TFahrProgForm, FahrProgForm);
    Application.CreateForm(TInfo, Info);
    Splash.InitializationDone := true;
    Application.CreateForm(TAdvantech, Advantech);
    Application.CreateForm(THelp, Help);
    Application.CreateForm(TMessung, Messung);
    Application.CreateForm(TManuell, Manuell);
    Application.CreateForm(TEingabe, Eingabe);
    Application.Run;
  end;
  CloseHandle(ProgHandle);
end.