Doppelklick auf Datei öffnet die Datei in meinem Programm

[Nalincah]

Hi. Leider hab ich in der DP nichts dazu gefunden.

Ich hab ne Datei, wenn man die öffnen will, startet mein Programm. Jetzt will ich den Filename der Datei in meinem Programm benutzten. Habs so ausprobiert:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i :Integer;
begin
  for i := 0 to ParamCount -1 do
  begin
    Memo2.Lines.Add(ParamStr(i));
  end;
end;

Leider liefert mir das nur den Filename des Programms zurück (ParamStr(0))

[MathiasSimmack]

Ich bin ein bisschen enttäuscht. Ich meine, es steht sogar in der Delphi-Hilfe, was es mit paramstr(0) auf sich hat.

[Nalincah]

Das weiß ich doch!!! Hab ich doch oben geschrieben. Das ist auch überhaupt nicht meine Frage. Wie kann ich auslesen auf welche Datei doppelt geklickt wurde?

Bspl.:

Doppelklick auf "C:\Test\Datei1.abc" öffnet die Datei im Programm "ABC-Öffner". Also als Paramater sollte dann "C:\Test\Datei1.abc" übergeben werden. Wie bei Word-Dokumenten. Doppelklick aus doc-Datei öffnet das Dokument in Word

[roderich]

dann geh mal im Source auf ParamStr und drücke F1.

ParamStr(i) ist belegt von 0 bis ParamCount. Im Index 0 steht der Programmpfad selber, wie Matthias schon zu erklären versuchte.

Roderich

[Nalincah]

DAS WEIß ICH DOCH!!!
Ich will doch nur wissen wie ich den Dateinamen des Dokumentes als Parameter übergebe!!!!!
Ich behaupte mal das hat nichts mit Delphi an sich zu tun, sondern mit Windows!!
Windows soll mein Programm SO starten

Code:

C:\MeinProg\ABC-Öffner.exe /open "C:\test\blabla.abc"

Der PROGRAMM (Nicht DOKUMENTEN) Pfad interessiert mich hierbei nicht
Die Parameter auslesen krieg ich auf die Reihe

[edit]Sorry, wenn das jetzt etwas direkt klingt[/edit]

[roderich]

ok, dann nochmal ganz langsam für dich.

ich habe geschrieben:

Zitat:

ParamStr(i) ist belegt von 0 bis ParamCount.

dein Code:

Zitat:

for i := 0 to ParamCount -1 do

na ?!?

Roderich

[Nalincah]

AHHHHHHHHHHHHHHHHHHHHHHH!!!!
Ich dummer Idiot!!

Ich bin so dran gewöhnt (ListBox, ComboBox etc.) das ich davon ausgegangen bin das es da genau so ist

Warum hast du das nicht gleich geschrieben?

[MathiasSimmack]

Wir haben es von Anfang an gesagt, nur eben nicht so deutlich, das wollten wir dir überlassen:

Zitat von General2003:

AHHHHHHHHHHHHHHHHHHHHHHH!!!!
Ich dummer Idiot!!

[Jens Schumann]

Hallo
in der Delphi-Hilfe steht bei mir folgendes als Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  for i := 0 to ParamCount – 1 do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep(10000,1000)
    else if (LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

Hier ist die Hilfe falsch !!!

[scp]

In der D6 Hilfe stehts aber richtig