<font color="green">if (ParamCount > 0) and FileExists(ParamStr(1)) then
PerformFileOpen(ParamStr(1));</span>
Nie będzie to działało na Windowsie starszym niż 2000 (jądro 98) w przypadku wystąpienia spacji w ścieżce.
var
parametr : string;
i: integer;
begin
parametr := '';
if (ParamStr(1) <> '') then
begin
i := 1;
repeat
if ParamStr(i) <> '' then parametr := parametr + ParamStr(i);
i := i + 1;
if ParamStr(i+1) <> '' then
parametr := parametr + ' ';
until ParamStr(i) = '';
// Teraz dopiero "fileopen(parametr) pisząc schematycznie :)
end;
PS: Dopisane: cholera kto tak spiepszył kolorowanie Delphi :|