Anwendung nur mit Bedingung starten?

[Alaitoc]

Würde wohl auch einfach reichen wenn du Initialize mit in den Boolean-Block nehmen würdest:

Delphi-Quellcode:

  //Überprüfen ob MSXML 6.0 installiert ist.
  if (CheckMSXML6=True) then
  begin
    Application.Initialize;
    Application.CreateForm(TTestForm, TestForm);
    Application.Run;
  end
  else
  begin
    MessageDlg('MSXML 6.0 muss installiert sein, damit Sie das Programm starten können.', mtError, [mbOK], 0);
  end;

MfG Alaitoc