Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#3

Re: "Öffnen mit" und Dateiproblem

  Alt 6. Apr 2007, 12:09
Hallo Nils,

ParamCount enthält die Anzahl n der tatsächlichen Programmparameter, die zugehörigen Werte stehen in ParamStr(1)..ParamStr(n). In ParamStr(0) findest du den vollständigen Namen der .exe-Datei.

Der Wert von ArrayIndex ist nach der FOR-Schleife undefiniert, du solltest nicht mehr darauf zugreifen. Wenn die Extensions bereits in einem Array FileExt vorliegen, kannst du mit StrUtils.AnsiIndexText prüfen:

Delphi-Quellcode:
var
  Extension : string;
begin
  Extension := ExtractFileExt(ParamStr(i));
  case AnsiIndexText(Extension, FileExt) of
    0..High(FileExt): (* vorhanden *)
  else
    (* nicht vorhanden *)
  end;
end;
Gruß Hawkeye
  Mit Zitat antworten Zitat