[Alegun]

Интересная ситуация, это что ж, выходит обман пользователя - он думает что скачивает из сети, а в результате файл локальный оказывается, оригинально

Как вариант

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var i: integer; begin  for i := Length(Edit1.Text) downto 1 do   if Edit1.Text[i] = '/' then    begin     ShellExecute(Handle, 'open',     'C:\' + Copy(Edit1.Text, i+1, Length(Edit1.Text)),      nil, nil, SW_SHOWNORMAL);    Exit;   end; end;