1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

beep;
MessageDlg('Chatspass Quick-Login verbindet sich nun mit dem Update-Server.'+chr(13)+'Dies kann je nach Internetgeschwindigkeit einige Zeit in anspruch nehmen.'+chr(13)+'In dieser Zeit reagiert das Programm nicht. Warten Sie auf weitere Meldungen vom Programm.',mtinformation,[mbok],0);
URLDownloadToFile(nil,'http://www.marcelkukelka.de/cs/ver.txt','c:\ver.txt',0, nil);
  if fileexists('c:\ver.txt') then
    memo2.lines.loadfromfile('c:\ver.txt');
newver2:=memo2.lines[0];
if memo2.lines[0]='' then
 begin
  beep;
  MessageDlg('Konnte keine Verbindung zum Server aufbauen. Updateprüfung wurde abgebrochen.',mtinformation,[mbok],0);
 end
else
begin
newver:=strtoint(newver2);
oldver:=strtoint(version);
if oldver<newver then
  begin
    beep;
    if MessageDlg('Es sind Updates verfügbar!'+chr(13)+'Möchten Sie den Download der Setup-Datei beginnen?', mtConfirmation, [mbYes, mbNo], 0) =mrYes then
      begin
        download:=memo2.Lines[2];
        webbrowser1.Navigate(download);
        beep;
        MessageDlg('Hinweis!'+chr(13)+'Schließen Sie nach dem Download Chatspass Quick-Login, und starten Sie die Setup-Datei.', mtInformation, [mbok], 0)
      end
    else
      begin
        beep;
        MessageDlg('Updateprüfung wurde abgebrochen!',mtinformation,[mbok],0);
      end;
  end
else
  begin
    beep;
    MessageDlg('Es sind zur Zeit keine Updates verfügbar.'+chr(13)+'Sie besitzen die aktuellste Version.',mtinformation,[mbok],0);
  end;

deletefile('c:\ver.txt');
end;					

1:

uses {...}, Urlmon, Wininet