Online Update für Programme

[Uncle Cracker]

Probier's mit der Funktion von EnSaCom

Code:

{
Die Datei update.ini wird heruntergeladen und als update.000 abgespeichert.
Die Datei update.upd wird heruntergeladen und gespeichert.
Es wird geprüft ob die Datei update.ini verfügbar ist
Wenn sie verfügbar ist, wird überprüft ob das Datum darin älter als das Datum in
update.000 ist. Wenn es älter ist dann wird die update.ini gelöscht, die update.000
in update.ini umbenannt und die Datei update.upd entpackt.
Wenn das Datum in der heruntergeladenen Datei update.ini nicht neuer als das Datum
in der vorhandenen Update.ini ist, werden die Dateien update.upd und update.000
gelöscht
}


procedure TForm1.Update2Click(Sender: TObject);
var
  old, new : string;
begin
if DownloadFile('http://www.ensacom.de/Delphiprogramme/Delphimanager/update.ini',(Extractfilepath(Application.exename)+'Update\update.000')) then
begin
  DownloadFile('http://www.ensacom.de/Delphiprogramme/Delphimanager/update.upd',(Extractfilepath(Application.exename)+'Update\update.upd'));
end;
 iniold := tinifile.Create(Extractfilepath(Application.exename)+'Update\update.ini');
  try
  old := iniold.ReadString('Version','Datum','');
  finally
  iniold.Free;
  end;

  ininew := tinifile.Create(Extractfilepath(Application.exename)+'Update\update.000');
  try
  new := ininew.ReadString('Version','Datum','');
  finally
  ininew.Free;
  end;

  if old < new then begin
  if MessageDlg('Es ist ein neues Update verfügbar. Jetzt installieren?',
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
     deletefile(Extractfilepath(Application.exename)+'Update\update.ini');
     renamefile(Extractfilepath(Application.exename)+'Update\update.000',(Extractfilepath(Application.exename)+'Update\update.ini'));

    UpdateInstallieren(self);
    CB_THEMEN.Items.LoadFromFile(PathTHM+'\Themen.thm');
    CB_Themen.DropDownCount:=CB_THEMEN.Items.Capacity;
    CB_THEMEN.ItemIndex:=0;
    CB_ThemenSelect(self);
  end;
  end
  else
  begin
     showmessage('Kein neues Update verfügbar!');
     deletefile(Extractfilepath(Application.exename)+'Update\update.000');
     deletefile(Extractfilepath(Application.exename)+'Update\update.upd');
  end;
end;