@ 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