
19.04.2010, 00:04
|
|
Познающий
Регистрация: 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;
|
|
|