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

[Guттer]

Нам понадобится:

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

3) Delphi: 1 штука

Шаг 1.
​

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

Шаг 2.

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

alphablend := true
alphablendvalue := 0

​

Спойлер: [COLOR=#4dff4d]В событие oncreate пишем[/COLOR]

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

​

Спойлер: [COLOR=#4dff4d]событие onshow[/COLOR]

Form1.Close;

компилируем и кидаем на хост​

​

​

Шаг 3.

Спойлер: [/COLOR][COLOR=#4dff4d]Закидываем код в свойство oncreate вышей программыИсточник[/COLOR][COLOR=#ffffff]

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;

​

​

​

 

[Guттer]

Бардак ! 4 минуты мало на редактирования (