12 lines
244 B
ObjectPascal
12 lines
244 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
uses System.Net;
|
|||
|
|
|
|||
|
|
const
|
|||
|
|
address = 'www.yandex.ru';
|
|||
|
|
filename = 'LogoPABCNET2010_Rus.png';
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var w := new WebClient();
|
|||
|
|
w.DownloadFile('http://pascalabc.net/images/logo/'+filename,filename);
|
|||
|
|
Exec(filename);
|
|||
|
|
end.
|