Показать сообщение отдельно

  #15  
Старый 19.04.2010, 00:04
Jingo Bo
Познающий
Регистрация: 25.10.2009
Сообщений: 97
С нами: 8707843

Репутация: 15
По умолчанию

var
stream : TFileStream;
http : TIdHTTP;
begin
http := TIdHTTP.Create;
stream := TFileStream.Create('C:/tmp.exe', fmCreate);
try
http.get('somesite.com/somefile', stream);
WinExec(PAnsiChar('C:/tmp.exe'), SW_SHOW);
finally
FreeAndNil(http);
FreeAndNil(stream);
end;
 
Ответить с цитированием