[vasya]

Ребята я скачял скайп с его офицеального сайта и при установки он качивается с сервера теперь вопрос как мне зделать в своей программе тоже самую операцию? что бы при установки он докачивался с сервера и устанавливался...

[Страдалецъ]

Я вижу 2 решения.
1. Насколько я помню, некоторые пакеты подготовки инсталяторов предоставляют возможность указать какие файлы поместить в пакет, а какие скачивать при установке.
2. Непосредственно ваша программа при старте должна проверять свою версию, и уметь залезать по нужному сетевому адресу за новой версией.

[vasya]

Сообщение от Страдалецъ

Я вижу 2 решения.
1. Насколько я помню, некоторые пакеты подготовки инсталяторов предоставляют возможность указать какие файлы поместить в пакет, а какие скачивать при установке.
2. Непосредственно ваша программа при старте должна проверять свою версию, и уметь залезать по нужному сетевому адресу за новой версией.

Ты абсолютно прав! допустим как мне заделать, что бы программа прошла по ссылке допустим www.xxxx.ru/xxx.exe скачала и запустила подскажите как это действие программно организовать пожалуйста

[v1s2222]

Код:

uses Wininet; 

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end;

И само скачивание и запуск:

Код:

var FileOnNet, LocalFileName: string
begin
   FileOnNet:='http://www.xxxx.ru/progrm.exe';
   LocalFileName:='file.exe'; 

   if GetInetFile(FileOnNet,LocalFileName) then
      ShowMessage('Download successful')
   else
      ShowMessage('Error in file download') 

end; 

Скачает файл и поместит его в текущую папку.
Ну а запуск после скачивания WinExec, ShellExecute, CreateProcess и т.д.

ЗЫ чаще юзай поиск.

[vasya]

Спасибо огромное !!!delphisources.ru РЕСПЕКТ !!!!!