Mit Mehreren Datein ein Program Starten

[Christian Seehase]

Moin No Voices,

Zitat:

Zitat von No Voices

Wenn ich ParamCount abfrag bekomme ich immer nur eine 1.

Dass muss auch so sein.

Das Funktionsprinzip ist hierbei folgendes:

1. Im Explorer werden mehrere Dateien markiert, die das Programm öffnen soll.
2. Es wird "öffnen" angewählt.
3. Windows "sieht nach", mit welchem Programm die Datei geöffnet werden soll.
4. Das Programm wird gestartet, und der Pfad zu einer Datei übergeben.
5. Das Programm prüft, ob schon eine Instanz von sich läuft. Ist das der Fall wird der Pfad per WM_COPYDATA an die laufende Instanz übergeben, und das Programm beendet sich. Läuft noch keine Instanz, wird die Datei geladen.
6. Weiter mit Punkt 4, bis alle Dateien geladen wurden.

Es wird also an das Programm immer nur eine Datei als Parameter übergeben. Weitere Dateipfade erhält eine laufende Instanz dann per WM_COPYDATA.

[No Voices]

Hallo,

danke für die erleuterung, das verstehe ich auch. Jedoch klapt das alles nicht. Ich habe keine ahnung wie ich das anstellen soll. Alle Codes die ich ausprobiert habe gehen nicht. Ich kann immer nur das programm mit einer datei starten oder nur eine datei hinzufügen.So langsam werde ich echt :evil:

[Christian Seehase]

Moin No Voices,

ich hab' Dir hier mal eine komplette Demo hochgeladen.
Im Gegensatz zu dem anderen Thread als SDI Version.

BTW:
Einen oder mehrere Dateitypen hattest Du aber schon auf das Programm registriert?

[No Voices]

Danke Danke,

Das mit der Demo hat echt hingehauen. Habe nur noch ein problem damit.
Jedesmal wen ich vor habe dateien hinzuzufügen soll die (PlayList) gelöscht werden. Ich bin soweit das er das ja macht aber natürlich vor jeder Datei. Wenn ich nun z.b. 4 Dateien markiere soll er nur vor der ersten datei die (PlayList) löschen.

[SirThornberry]

liste durchlaufen und nachschauen ob eintrag markiert ist. Wenn das der fall ist den eintrag merken. Danach alle dateien bis zum markierten aus der liste rausschmeissen

bsp.:

Delphi-Quellcode:

index := -1;
count := 0;
while (count < liste.items.count) and (index = -1) do
begin
  if liste.selected[count] then index := count;
  count := count + 1;
end;

if index = -1 then index := liste.items.count;
for count := index - 1 downto 0 do
  liste.items.delete[count];

[No Voices]

Das ist ja schon ne gute idee, jedoch markiere ich die Dateien ausserhalb meines Programms. Ich habe das so wie in der Demo von Christian Seehase das funktioniert ja so ganz gut. Aber egal was ich mir da ausdenke, es funktioniert nicht.