Direkt Präsentation mit Powerpoint starten

[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