procedure TForm1.FormCreate(Sender: TObject);
begin
TSTREAMONLINEVERSION := TFileStream.Create('
./data/OnlineVersion.ini', fmCreate);
try
Downloader.Get('
http://www.gooogle.de/BatchMaker/Version.ini',TSTREAMONLINEVERSION);
finally
end;
assignfile(Version,'
./data/BatchMakerVersion.ini');
reset(Version);
// Öffne die Datei für den Schreib-Modus
ReadLn(Version, ReadenVersion);
CloseFile(Version);
assignfile(Versionfrominternet,'
./data/OnlineVersion.ini');
reset(Versionfrominternet);
// Öffne Datei für den Schreib Modus
ReadLn(Versionfrominternet,ReadenVersion2);
CloseFile(Versionfrominternet);
If ReadenVersion < ReadenVersion2
then // Wenn die Version im Internet neuer ist ...
begin
// Frag benutzer nach Aktion und wenn Ja, dann update
If MessageDlg('
Es sind Updates vorhanden ! Sollen diese Jetzt Gedownloadet werden ?', mtConfirmation, [mbyes, mbno], 0) = mrYes
then
begin
SetupPath := TFileStream.Create('
./data/setup.exe', fmCreate);
try
Downloader.Get('
http://www.gooogle.de/BatchMaker/setup.exe',SetupPath);
// Gedownloadet ...
except ShowMessage('
Entweder Haben sie Kein Internet oder der Hoster hat mich gekickt ^^;)');
// sage dem user dass die datei nicht gedownloaded hat können
end;
ShowMessage('
Das Update Wurde Erfolgreich Heruntergeladen ... Der Installer führt sie durch das Update');
ShellExecute(
Handle,
nil, SetupPath,
nil, PChar('
./'), SW_NORMAL);
// Starte die Setup.exe
Form1.Close
end;
end Else MessageDlg('
Abgebrochen. Sie Werden beim nächsten Start von Windows nocheinmal gefragt.', mtInformation, [mbOK], 0);
end.