![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Кто знает как приделать своей программе проверку наличия обновлений в интернете и закачку например версия 2.2 проверила и увидела версию 2.3 спросила пользователя если да закачала как это релизовать подскожите пожалуйсто
![]() |
|
#2
|
||||
|
||||
|
Можно сделать так:
Код:
procedure Update;
const
Verison = //Текущая версия;
var
LastVersion: Real;
LastVersionFile: TFileStream;
begin
LastVersion:=StrToFloat(IdHTTP1.Get('http://yoursite/LastVersion.txt'));
if LastVersion > Verison then
begin
if MessageDlg('Обновить программу?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
LastVersionFile:=TFileStream.Create('Файл, в который сохранить новую версию', fmCreate);
IdHTTP1.Get('http://yoursite/LastVersion.exe', LastVersionFile);
LastVersionFile.Free;
end;
end
else ShowMessage('У вас самая последняя версия');
end; |
|
#3
|
|||
|
|||
|
Большое спосибо очень помогло
![]() |