ksAutoUpdater
Easy to use interface for adding auto-update functionality to your Delphi applications.
The interface uses the ETag of the remote file to determine if it is different to the one running. If it finds a different ETag to the one stored locally, then it will download the updated version and can also check the build of the updated version before updating to ensure it's a newer version.
It will check for an update 5 seconds after creation, then it will use the "interval" seconds which was passed as the parameter to the CreateAutoUpdater call.
Note: I use the Amazon S3 service to host my update files. If you plan on using another storage service, this should work provided it supports the ETag property.
Example use
uses ksAutoUpdater;
type
TForm1 = class(TForm)
private
FAutoUpdater: IksAutoUpdater;
procedure DoUpdateFound(Sender: TObject; AETag: string);
public
...
end;
constructor TForm1.Create(AOwner: TComponent);
begin
FAutoUpdater := CreateAutoUpdater('https://eres.s3-eu-west-1.amazonaws.com/blah/blah/yourExe.exe',
LastStoredETag,
10,
DoUpdateFound);
end;
procedure TForm1.DoUpdateFound(Sender: TObject; AETag: string);
begin
if (MessageDlg('Update found!'+#13+#10+''+#13+#10+'Install update now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
// you will want to store the AEtag parameter in an ini file (or DB) so it can be read the next time the application loads
// to prevent unnessessary downloading of the same *.exe again.
FAutoUpdater.DoUpdate(True);
end;
end;