Dateien bei laufendem Programm in Liste einfügen

**Cylence**

Hi,

ich habe die Dateiendung mp3 mit einem von mir programmiertem Player verknüpft, wenn der Player nicht läuft, ist das auch kein problem, doppelklick auf die datei, und schon startet mein Player mit dem angeklicktem Lied, ich checke beim Oncreate ob Paramstr mehr als 0 ist, und wenn ja, dann füge ich diese meiner Playliste hinzu...

zusammenfalten · markieren

Delphi-Quellcode:

			 If (ParamCount>0) and

    (FileExists(ParamStr(1))) then begin

    Loaded1 := False;

      While Loaded1 = False do begin

        if Paramstr(XYZ) = '' then begin

           Loaded1 := True;                         //Dateien beim Klick in Explorer hinzufügen

        end

        else begin

           LoadedFiles.Add(ParamStr(XYZ));

           XYZ := XYZ +1;

        end;

      end;

das funtioniert ohne Probleme...

aber wenn das Programm schon läuft, wie mach ich das dann? Da das Programm dann ja schon läuft, wird nur nochmals das Programm gestartet und sofort wieder geschlossen, weil ich nicht möchte, das das Programm 2 mal gestartet werden kann...
--------------------------------
so hab ich das gemacht:

zusammenfalten · markieren

Delphi-Quellcode:

			unit not2times;

interface

implementation

uses windows,Dialogs,sysutils;

var mHandle: THandle;

Initialization

  mHandle := CreateMutex(nil,True,'SidebarXPV');

  if GetLastError = ERROR_ALREADY_EXISTS then begin

    {showMessage('Anwendung läuft bereits!!!!!');}

    Halt;

  end;

finalization

  if mHandle <> 0 then

    CloseHandle(mHandle)

end.

-----------------------------------

also wie kann man realisieren, das bei laufendem Programm angeklickte Lieder im Explorer zur Playliste hinzugefügt werden??? Wär echt super wenn mir jemand helfen könnte, selbst mein Chef hat keine Ahnung wie man das macht... und ich bin Lehrling...

Hope to hear from U

Danke schonmal im Vorraus!!!!!

tom

wer sich meinen Player...oder eher ne Sidebar mit Player anschaun will... es gibt hier schon die BETA Version:

http://mitglied.lycos.de/cylence666/...ncesidebar.exe

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

Dateien bei laufendem Programm in Liste einfügen

Dateien bei laufendem Programm in Liste einfügen

Forumregeln