[terehovk]

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

[lmikle]

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

[terehovk]

дай код ф

[ApxaHGe1]

Код:

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-файле писать

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