Dateien per IDropTarget öffnen.

[Thomasl]

ParamStr öffnet mind 1 Datei aber auch 2-3 .aber nicht mehr

mein Code

Delphi-Quellcode:

// Wurde das Programm mit einem Parameter aufgerufen (zb öffnen mit)
// Nur dann wenn Anwedung neu gestartet wird
procedure TFMainForm.FormShow(Sender: TObject);
var
n : integer;
begin
  if (paramcount > 0) then
   begin
    for n := 1 to paramcount do
     begin
       if FileExists(paramstr(n)) then
       Playlist.items.Add(paramstr(n));
     end;
    Play1; //Sofort abspielen
  end;
end;

//Dateien öffnen wenn Anwendung schon läuft
procedure TFMainForm.OneInstance1GetParams(Sender: TObject;
  const Args: array of String);
var i: Integer;
begin
  for i := 0 to High(Args) do
    if (i > 0) and FileExists(Args[i]) then
    Playlist.items.Add(Args[i]);
end;

//Anwendung darf nur einmal gestartet werden
procedure TFMainForm.OneInstance1Allow(Sender: TObject;
  var Allow: Boolean);
begin
Allow := false;
end;

Ich möchte zb. 100 dateien im exlorer markieren und dann wie in winamp (Play oder Enqueue) alle in mein progamm einfügen.

PS. Ich habe mir einen MP3 player mit bass.dll programmiert.