Doppelklick auf Datei öffnet die Datei in meinem Programm

[choose]

In meiner Version (D7) steht's inzwischen so

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

var
  i: Integer;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    else if LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

Mal wieder ein Beispiel dafür, dass man Dinge nicht blos abtippen sondern auch verstehen sollte und auch "die Profis" Fehler machen ;)

[edit]
für alle, die es nicht aufmerksam angesehen haben:

Delphi-Quellcode:

var
  i: Integer;
  // <-- hier fehlt das begin!
  for i := 1 to ParamCount do

:cyclops: [/edit]