Delphi-Programm durch Klicken auf Datei-Icon starten

[Gelmo]

Hallo!
Schreibe gerade an einem Kalenderprogramm, zu dem eine Termindatei angelegt werden kann, aber nicht muss. Die Termindateie wird mit einer eigenen Extension, sagen wir '.xyz' gespeichert. Beim Klicken auf das Icon erscheint natürlich der Dialog zum Zuweisen dieser Datei zu einem Programm. Nachdem ich so diese Datei-Erweiterung meinem Programm zugewiesen habe, wird das Programm zwar gestartet, aber die Datei wird noch nicht geladen. Wie kann ich erreichen, dass dies nach Anklicken des Datei-Icons geschieht?
Herzlichen Dank für Eure Unterstützung
MfG Gelmo

P.S. Arbeite mit TurboDelphi 2006 Explorer und bin noch lange nicht so weit, dass sich ein Kauf von Delphi Professional für mich rentieren würde.

[DeddyH]

Hallo und Willkommen in der DP :dp:,

ich denke, ParamCount() und ParamStr() sind Deine Freunde. In ParamCount steht die Anzahl der dem Programm übergebenen Parameter und in ParamStr(Index) der jeweilige Parameter (also ggf. der Dateiname) selbst.

[edit] Nach einem 2. Blick hätte es wohl eher Willkommen zu Deinem 1. Beitrag heißen müssen :lol: [/edit]

[Gelmo]

Hallo!
Habe gerade festgestellt, dass in ParamStr(0) der Pfad des Programms selbst und in ParamStr(1) der Pfad der angeklickten Datei enthalten ist, wenn das Programm durch Anklicken der Datei gestartet wurde. Dagegen wird beim Starten des Programmes direkt offenbar kein ParamStr übergeben.
Mit dem Ergebnis kann ich weiter machen.
Herzlichen Dank für die schnelle und präzise Hilfe!
MfG Gelmo

[DeddyH]

Zitat:

Zitat von Gelmo

Habe gerade festgestellt, dass in ParamStr(0) der Pfad des Programms selbst und in ParamStr(1) der Pfad der angeklickten Datei enthalten ist, wenn das Programm durch Anklicken der Datei gestartet wurde.

Exakt. Das hatte ich vergessen zu erwähnen, falls es nicht in der Hilfe stehen sollte.

[fatalerror]

Kleine Präzisierung: es wird oft vergessen dass selbstverständlich auch mehrere Dateien als Parameter übergeben werden können (zb mit Drag and Drop auf das Programmicon). Eine Überprüfung einzig auf paramstr(1) ist deshalb oft zu ungenau.

Als Gedankenanstoss (ungetestet):

Delphi-Quellcode:

var
i: integer;
begin
if ParamCount > 0 then
  begin
     for i:= 1 to ParamCount  do
     ShowMessage(ParamStr(i));
  end;
end;

[DeddyH]

Wobei die Abfrage unnötig ist, da die For-Schleife bei einem ParamCount von 0 gar nicht ausgeführt wird ;)