in paramstr(0) steht der pfad zum player, habe das mit den attributen bei einzelnen dateien schon hinbekommen, aber wie schaffe ich es mehrere attribute zu behandeln?
hier ist mein bisheriger code:
Code:
procedure TForm1.FormCreate(Sender: TObject);
var j:integer;
begin
If (ParamCount>0) and
(FileExists(ParamStr(1))) then begin
for j := 1 to paramcount do begin
timer1.enabled := true;
timer2.Enabled := true;
timer3.Enabled := true;
listbox2.Items.Add(paramstr(j));
end;
end;
end;
der funktioniert aber leider nicht, wenn ich meine musik mit meinem programm verknüpfe, mehrere dateien markiere und diese dann öffne, dann wird mein programm pro datei einmal geöffnet, und jede datei wird gleichzeitig abgespiel, man kann sich vorstellen dass das bei z.b. einem album ein ganz schönes durcheinander gibt ... danke schonmal
stromer