[GrinJ]

Здравствуйте, у меня такая проблема: нужно при запуске программы нужно закачать файл в корень диска С:\. Мне подсказали код, но он не работает:

Код:

URLDownloadToFile(nil, PChar('http://mysite.ru/Sound.wav'), PChar('C:\'), 0, nil);

Скажите в чем ошибка. Пожалуйста, мне это очень нужно!

[RusMaXXX]

подключи это:

Код:

uses UrlMon;

и указывай полное имя, не так:

Код:

URLDownloadToFile(nil, PChar('http://mysite.ru/Sound.wav'), PChar('C:\'), 0, nil);

а вот так:

Код:

URLDownloadToFile(nil, PChar('http://mysite.ru/Sound.wav'), PChar('C:\sound.wav'), 0, nil);

[t116]

Код:

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
const 
 SourceFile = 'http://mysite.ru/Sound.wav'; 
   DestFile = 'C:\sound.wav'; 
begin 
  if DownloadFile(SourceFile, DestFile) then 
  begin 
    ShowMessage('Файл закачан'); 
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile), 
      PChar(''), nil, SW_NORMAL) 
  end 
  else 
    ShowMessage('Балалайку') 
end; 

Может быть так

[t116]

А вообще есть инет - ищи, не хочешь голову напрягать - понапрягай хотя бы пальцы