Direkt Präsentation mit Powerpoint starten

[toms]

Zitat:

Zitat von PPaB

2. Diese würde trotzdem nur die Möglichkeit geben, die Präsentation anzuschauen und über Esc wäre das ganze Powerpoint wieder geschlossen.

Dann starte PP via OLE:

Delphi-Quellcode:

uses
  ComObj;

Delphi-Quellcode:

var
  PowerPointApp: OleVariant;
  Pfad: string;
begin
  try
    PowerPointApp := CreateOleObject('PowerPoint.Application');
  except
    ShowMessage('Fehler beim Erzeugen einer PowerPoint Instanz...');
    Exit;
  end;
  PowerPointApp.Visible := True;
  Pfad := 'X:\PowerPoint Presentation.ppt';
  PowerPointApp.Presentations.Open(Pfad, False, False, True);
  PowerPointApp.ActivePresentation.SlideShowSettings.Run;
  PowerPointApp := Unassigned;
end;

[PPaB]

Perfekt danke. Hat super geklappt!