[ADM]

Есть исходник программы которая обновляет файлы из интернета, т.е. если встречается файл с таким же именем, но размер разный то заменяет его.
Вот сам вопрос как сделать чтобы и мой ехе обновлялся т.е. как мне вывести его из памяти, заменить и перезапустить???

[NumLock]

сделать еще один и назвать его updater.exe

[Asinkrit]

Как вариант,
В программе генерируется командный файл (*.cmd) и кладется возле программы. дальше программа запускает его и завершается.
В батнике следующий механизм. В начале пауза или ожидание завершения основной программы.Потом удаление старой версии, копирование новой и запуск новой. В самой программе, при старте всегда проверяешь, не лежит ли рядом с программой командный файл, если да, то удаляешь его.

[ADM]

А можно по подробнее, как создать такой файл?

[Asinkrit]

Что конкретно тебе не понятно?

[ADM]

я бы хотел увидеть пример.

[Asinkrit]

Готовое решение значит ждешь?
Вот кусок кода из проекта, писал его когда только начал вплотную изучать дельфи, должен помочь)

[ADM]

У меня возникла проблема. Не работает процедура close; , при закрытий моей формы она всё равно остаёться, если хочу вручную закрыть то выдаёт ошибку.

[Asinkrit]

Я не телепат, что за ошибку выдает?

[ADM]

ошибка просто связана с адрессом в памяти как я понял вот скрин

[Asinkrit]

Теперь код покажи, что ты понаписал...

[ADM]

Вот кусок который как бы должен отвечать за обновление ехе:

PHP код:

if ADest=UpExe then
  begin
                   AssignFile(F,'Clients.cmd');
                   Rewrite(F);
                   Writeln(F,'@echo off');
                   Writeln(F,'Pause');
                   Writeln(F,'Del l2updater.exe /F /Q');
                   Writeln(F,'Ren l2updater1.exe l2updater.exe');
                   Writeln(F,'Start l2updater.exe /I');
                   Writeln(F,'Del Clients.cmd /F /Q');
                   CloseFile(F);
                   FMain.Close;
                   ShellExecute(Application.Handle,'open', PCHAR(ExtractFileDir(Application.ExeName)+'\Clients.cmd'), nil, nil, SW_SHOWNORMAL);

  end 


[Asinkrit]

Close должен идти после метода ShellExecute.

[PhoeniX]

Очередной апдейтер для Ладвы
Чем готовые решения не устроили (некоторые даже open-source есть)?

[ADM]

Так я их и использую, вот только само обновления как я понял здесь нет.
Переставил close всё равно такая ошибка.
Вот полностью вся процедура:

PHP код:

procedure GFilesThread.DoUncompress(const ASource, ADest: TFileName);
var
  Source, Dest: TStream;
  UpExe : string;
  F: TextFile;
begin
  UpExe:=Dir+'l2updater1.exe';
  Source := TFileStream.Create(ASource, fmOpenRead + fmShareDenyWrite);
  try
  if ADest=UpExe then
  begin
                   AssignFile(F,'Clients.cmd');
                   Rewrite(F);
                   Writeln(F,'@echo off');
                   Writeln(F,'Pause');
                   Writeln(F,'Del l2updater.exe /F /Q');
                   Writeln(F,'Ren l2updater1.exe l2updater.exe');
                   Writeln(F,'Start l2updater.exe /I');
                   Writeln(F,'Del Clients.cmd /F /Q');
                   CloseFile(F);
                   ShellExecute(Application.Handle,'open', PCHAR(ExtractFileDir(Application.ExeName)+'\Clients.cmd'), nil, nil, SW_SHOWNORMAL);
                   FMain.close;
  end
  else
  begin
    Dest := TFileStream.Create(ADest, fmCreate);
    try
      DoUncompressStream(Source, Dest);
    finally
      Dest.Free;
    end;
  end;
  finally
    Source.Free;
    DeleteFile(ASource);
  end;
end;