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:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TfrmUpdate.btnDownloadClick(Sender: TObject);
var
  lStream: TFileStream;
  OldDir: String;
begin
  OldDir := GetCurrentDir();
  ChDir(ExtractFilePath(ParamStr(0)));
  if NOT FileExists('FileTransfer.old') then
    RenameFile('FileTransfer.exe', 'FileTransfer.old')
  else
  begin
    DeleteFile('FileTransfer.old');
    RenameFile('FileTransfer.exe', 'FileTransfer.old')
  end;
  Label6.Visible := true;
  ProgressBar1.Visible := true;
  lStream := TFileStream.Create('DATEINAME.exe', fmCreate or fmShareDenyNone);
  try
    idHTTP1.Get('http://DEINESEITE/DATEINAME.exe', lStream);
  finally
    lStream.Free;
  end;
  ShellExecute(Handle, 'open', 'DATEINAME.exe', nil, nil, SW_SHOWNORMAL);
  ChDir(OldDir);
  Application.Terminate;
end;

procedure TfrmUpdate.FormShow(Sender: TObject);
var
  LatestVersion,
  CurrentVersion: String;
begin
  LatestVersion := IdHttp1.Get('http://DEINESEITE/version.txt');
  CurrentVersion := GetFileVersion(Application.ExeName);
  Label3.Caption := CurrentVersion;
  Label4.Caption := LatestVersion;
  while Pos('.', CurrentVersion) > 0 do
    Delete(CurrentVersion, 1, Pos('.', CurrentVersion));
  while Pos('.', LatestVersion) > 0 do
    Delete(LatestVersion, 1, Pos('.', LatestVersion));
  if LatestVersion > CurrentVersion then
  begin
    btnDownload.Visible := true;
    btnCancel.Visible := true;
    Label5.Caption := 'Programm wird anschließend beendet und neu gestartet.';
  end
  else
    btnOk.Visible := true;
end;					

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:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

uses WinInet;
Function GetHTML(AUrl: String): String;
Var
  databuffer: Array[0..4095] Of char;
  ResStr: String;
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen, datalen, dwread, dwNumber: cardinal;
  dwcode: Array[1..20] Of char;
  res: pchar;
  Str: pchar;
Begin
  ResStr := '';
  If pos('http://', lowercase(AUrl)) = 0 Then
    AUrl := 'http://' + AUrl;
  hSession := InternetOpen('InetURL:/1.0',
    INTERNET_OPEN_TYPE_PRECONFIG,
    Nil,
    Nil,
    0);
  If assigned(hsession) Then Begin
    hfile := InternetOpenUrl(
      hsession,
      pchar(AUrl),
      Nil,
      0,
      INTERNET_FLAG_RELOAD,
      0);
    dwIndex := 0;
    dwCodeLen := 10;
    HttpQueryInfo(hfile,
      HTTP_QUERY_STATUS_CODE,
      @dwcode,
      dwcodeLen,
      dwIndex);
    res := pchar(@dwcode);
    dwNumber := sizeof(databuffer) - 1;
    If (res = '200') Or (res = '302') Then Begin
      While (InternetReadfile(hfile,
        @databuffer,
        dwNumber,
        DwRead)) Do Begin
        If dwRead = 0 Then
          break;
        databuffer[dwread] := #0;
        Str := pchar(@databuffer);
        resStr := resStr + Str;
      End;
    End
    Else
      ResStr := 'Status:' + res;
    If assigned(hfile) Then
      InternetCloseHandle(hfile);
  End;
  InternetCloseHandle(hsession);
  Result := resStr;
End;