Programm Update??

[glotzer]

Delphi-Quellcode:

procedure download_neue_Version;
var
fs: TFileStream;
temp : String;
begin
  temp := Main_Form.idHTTP1.Get('http:\\glotzer.gl.funpic.de/BreakIt/check_version.php?Version='+Version);
  if temp <> '' then
  begin
      if MessageDlg('Eine neue Version von BreakIt ist verfügbar, soll diese jetzt heruntergeladen werden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
          showMessage('Neue Version wird nach einem Klick auf OK heruntergeladen, dies kann einen Moment dauern.');
          fs := TFilestream.Create(ExtractFilePath(Application.ExeName)+'Neue_Version.zip', fmcreate);
          Main_Form.IdHTTP1.Get('http:\\glotzer.gl.funpic.de/BreakIt/Version.php', fs);
          fs.free;
          showMessage('Neue Version liegt dort: '+ExtractFilePath(Application.ExeName)+'Neue_Version.zip');
          showMessage('Das Programm wird jetzt beendet, bitte starten sie die neue Version.');
          halt;
  end;
end;

so habs ich in meiner BreakIt Version 1.3 gelöst. die procedure wird in FormCreat aufgerufen.
Thema in dem Forum