[terehovk]

как сделать чтоб програма смотрела обнавление

[lmikle]

На сайте хранишь маленький xml файлик с текущей версией.
Из программы читаешь этот файлик и сравниваешь с версией текущей программы.

[terehovk]

дай код ф

[ApxaHGe1]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Cver:='1.0'; FS:=TMemoryStream.Create; IdHTTP1.Get('http://192.168.0.10/releaser/update.ini', FS); fs.SaveToFile('update.ini'); FS.Free; AssignFile (up,'update.ini'); Reset (up); Read (up,Nver); CloseFile (up); except if Cver = Nver then ShowMessage ('Вы используете последнию версию программы'); if Cver < Nver then answer:=MessageDlg('Доступна новая версия программы!'+#13+'Хотите загрузить обновление?',mtInformation,[mbYes,mbNo],0); if answer = mrYes then begin Erase (up); FS:=TMemoryStream.Create; IdHTTP1.Get('http://192.168.0.10/releaser/Releaser.exe', FS); fs.SaveToFile('Releaser_.exe'); FS.Free; Rewrite (up,'Update.bat'); WriteLn (up,'pause 5'); WriteLn (up,'DEL Releaser.exe'); WriteLn (up,'DEL Update.ini'); WriteLn (up,'RENAME Releaser_.exe Releaser.exe'); WriteLn (up,'pause 10'); WriteLn (up,'Releaser.exe'); CloseFile(up); ShellExecute(0,'open','update.bat',nil,nil,SW_NORMAL); Application.Terminate;

[terehovk]

а что в ini-файле писать

[lmikle]

Сообщение от terehovk

а что в ini-файле писать

Вот мой проект.
Там и редактор, и сама процедура проверки.