URL öffnen Link abfangen...

[himitsu]

[delete]

[BUG]

Ich habe das jetzt mal ausprobiert

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  memo1.Clear;
  for i := 0 to Paramcount-1 do memo1.lines.add(ParamStr(i));
end;

Liefert:

Code:

C:\Program Files (x86)\Mozilla Firefox\firefox.exe
-requestPending
-osint
-url

Richtig wäre:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  memo1.Clear;
  for i := 0 to Paramcount do memo1.lines.add(ParamStr(i));
end;

Ergebnis:

Code:

C:\Program Files (x86)\Mozilla Firefox\firefox.exe
-requestPending
-osint
-url
http://delphipraxis.net

ParamCount zählt anscheinend den Anwendungspfad nicht mit.

[DeddyH]

Richtig, ParamCount enthält nur die Anzahl der tatsächlich übergebenen Kommandozeilen-Parameter, da ParamStr(0) immer gesetzt ist.