
24.06.2014, 18:19
|
 |
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.
__________________
Пишу программы за еду.
__________________
|