[ Авто обновление программы ]

  • Для просмотра чата и остального функционала вам нужно авторизоваться или пройти регистрацию!

Guттer

Активный пользователь
Автор темы
12 Ноя 2014
32
19
41
Нам понадобится:

1) Хост: 1 штука
2) Руки: 2 штуки
3) Delphi: 1 штука

Шаг 1.

Создаем txt файл, открываем его и пишем версию программы.
Кидаем на хост


Шаг 2.

Открываем delphi. У формы ставим значение

alphablend := true
alphablendvalue := 0

varStream:TMemoryStream;beginif DeleteFile('имя.exe') then
begin
Stream:=TMemoryStream.Create;IdHTTP1.Get('тут адрес скачивания новой версии',Stream);Stream.SaveToFile('имя сохраняемого файла.exe');Stream.Free;Form1.Close;endelseShowMessage('Ошибка Соединения');




Form1.Close;

компилируем и кидаем на хост
Шаг 3.
varversion, vers:WideString;Stream:TMemoryStream;begin
vers := 'тут пишем версию';
trybegin
version:=IdHTTP1.Get('http://site.ru/version.txt'); //
парсим последнию версиюif version = vers then
Form1.Label1.Caption := versionelsebegin
Stream:=TMemoryStream.Create;IdHTTP1.Get('http://путь к файлу.ru/имя обновлялки.exe',Stream);Stream.SaveToFile('up.exe');Stream.Free;ShellExecute(Form1.Handle, 'open','up.exe',nil, nil, SW_SHOWNORMAL);Form1.Close;end;end;except
begin
ShowMessage('Ошибка'); // форма зависнет :(, можно поставить задержку чтоб пользователь успел нажать ок Form1.Close;end;end;










 
  • Like
Реакции: >DENIS<

Guттer

Активный пользователь
Автор темы
12 Ноя 2014
32
19
41
Бардак ! 4 минуты мало на редактирования (
 

Пользователи, просматривающие эту тему

Сейчас на форуме нет ни одного пользователя.