Dateien bei laufendem Programm in Liste einfügen

[Cylence]

Hi,

also so ganz klappts noch nich, ich hab das nun so gmeacht, mit der Komponente OneInstance und bei Onshow dies:

XYZ := 0;
If (ParamCount>0) and
(FileExists(ParamStr(1))) then begin
While XYZ < (ParamCount -1) do begin
LoadedFiles.Add(ParamStr(XYZ));
XYZ := XYZ +1;
Loaded1 := True;
end;
end;

if Loaded1 = True then begin
Form8.JvPlayList1.AddItems(LoadedFiles); //wenn Programm mit Parametern gestartet wurde...
end;


da startet dann das Prog zwar, aber übernimmt keinen der Paramstr in die Playliste...

und bei OneInstance habe ich ONSwitch dies eingebaut:



procedure TForm1.OneInstance1Switch(Parameters: TStrings);
begin
Form8.JvPlaylist1.AddItems(Parameters);
end;

und das sollte doch eigentlich auch stimmen, oder nicht???

Hoe to hear from you!!

Thanx

tom