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