Direkt Präsentation mit Powerpoint starten

[Luckie]

Na ja, du weißt ja jetzt in welche Richtung du weiter Recherchieren kannst.

[Klaus01]

Zitat von PPaB:

@ klaus: ich möchte aber nicht 350 Dateien umbenennen ;-)

so und hier der Code:

Delphi-Quellcode:

var
  i: Integer;
  Pfad : String;
begin
  for i := 0 to LBLieder.Items.Count -1 do
  begin
    if LBLieder.Selected[i] then
      Pfad := ExtractFilePath(Application.Exename) + 'PP-Lieder/' + LBLieder.Items.Strings[i] + '.ppt';
  end;

ShellExecute(Handle, 'open', PChar(Pfad), nil, nil, sw_Show);
end;

Und ich habe versucht die Variable Pfad umzubenennen, aber da funktioniert es nicht

.. oder Du könntest den PowerPointViewer einsetzen.
Quelle

Den könntest Du meines Wissen dann auch Deinem Programm mitgeben, für Menschen
die kein Powerpoint haben.

Grüße
Klaus

[Luckie]

Oder du erstellt eine temporäre, umbenannte Kopie zum Anzeigen.

[PPaB]

ja das sind erstmal gute Ideen. Ich werde mal weitersuchen und überlegen, ob ich eine von den alternativen Lösungen nehme. Wahrscheinlich ist das mit der temporären Datei am besten. Mal schauen.

Danke schonmal, hat mir sehr gut weitergeholfen. Wenn ihr noch eine Idee habt, immer her damit

Edit:
http://www.delphipraxis.net/internal...t.php?p=158843
Vielleicht hilft das weiter, muss dies vielleicht als den nächsten Parameter eingeben. Aber mit -s funktioniert es auch nicht
Eine Idee?

[dominikkv]

Zitat von PPaB:

@ klaus: ich möchte aber nicht 350 Dateien umbenennen

so und hier der Code:

Delphi-Quellcode:

var
  i: Integer;
  Pfad : String;
begin
  for i := 0 to LBLieder.Items.Count -1 do
  begin
    if LBLieder.Selected[i] then
      Pfad := ExtractFilePath(Application.Exename) + 'PP-Lieder/' + LBLieder.Items.Strings[i] + '.ppt';
  end;

ShellExecute(Handle, 'open', PChar(Pfad), nil, nil, sw_Show);
end;

Und ich habe versucht die Variable Pfad umzubenennen, aber da funktioniert es nicht

Ähh... bin ich blind, oder fehlt da ein /s? Vllt liegts ja daran, dass er nicht präsentiert

[PPaB]

ne habe nur den Code eingefügt, der auch funktioniert. Vorher sah er so aus:
Pfad := ExtractFilePath(Application.Exename) + 'PP-Lieder/' + LBLieder.Items.Strings[i] + '.ppt'+' /s'; Das hat aber wie vorher gesagt, garnicht funktioniert, also noch nicht mal die Datei wird geöffnet.

[PPaB]

Ich hab die Lösung gefunden:
http://www.chemieonline.de/forum/showthread.php?t=41092

Kurz zur Erklärung:
ShellExecute(handle, 'open', PChar('POWERPNT.EXE'), PChar('/s "' + Pfad + '"'), nil, sw_Show); Man muss Powerpoint starten und nicht einfach die Datei
So funktioniert es.

Danke für eure Hilfe

Trotzdem gefällt mir eine Sache noch nicht ganz bzw es wäre interessant dies auch noch zu wissen.

Wenn man dann die Präsentation mit [ESC] schließt wird Powerpoint auch direkt mit geschlossen. Gibt es eine Möglichkeit nach dem [ESC]-drücken erstmal wieder zum Bearbeitungsbildschirm von Powerpoint zu kommen?

PPaB

[Phoenix]

Mit dem alten Powerpoint konnte man die .ppt Datei einfach in .pps umbenennen. Dann ist Powerpoint direkt im Slideshow Modus gestartet. Das müsste den aktuellen .pptx auch analog mit .ppsx gehen - ich hab es allerdings nicht getestet.

[PPaB]

1. Wie schon zweimal vorher gesagt, möchte ich nicht die ganzen Dateien umbenennen, sondern sie so beibehalten.
2. Diese würde trotzdem nur die Möglichkeit geben, die Präsentation anzuschauen und über Esc wäre das ganze Powerpoint wieder geschlossen.

[johannes-h]

Zitat:

Das müsste den aktuellen .pptx auch analog mit .ppsx gehen - ich hab es allerdings nicht getestet.

Das tut es. Ich hab es gerade getestet.