Показать сообщение отдельно
  #5  
Старый 24.06.2014, 18:19
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  AStream: TFileStream;
begin
  AStream:=TFileStream.Create('lol.gif', fmCreate);
  IdHTTP1.Get('http://j2me.webservis.ru/images/lol.gif', AStream);
  AStream.Free;
  ShellExecute(0, 'open', 'lol.gif', nil, nil, SW_SHOWNORMAL);
end;

у меня .gif ассоциирован с ACDSee, поэтому в нем и открывает загруженый gif.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием