UrlMon 유닛을 추가해준다..
procedure TForm1.Button1Click(Sender: TObject);
var
hr: HRESULT;
UrlFile, SaveFile: String;
begin
UrlFile := 'http://user.borahome.net/~basic201/tool/Borland C++ 5.5 setup.exe';
SaveFile := 'C:bc.exe';
hr := URLDownloadToFile(nil, PChar(UrlFIle), PChar(SaveFile), 0, nil);
if hr = S_OK then ShowMessage('성공');
end;
|