[Delphi7]Jak zrobić autoupadate

Jak zrobić auto update ze jak klikniesz button to Od razu pobiera plik z FTP.

Spróbuj URLDownloadToFile

Edit:
http://www.przeklej.pl/plik/pobieranie-rar-00243lb9qagh
Pobierz i dodaj, jako formę. Potem:

Download.Pobierz('plik na serwerze (BEZ ADRESU SERWERA)', 'gdzie zapisać plik')

Oczywiście, najpierw w pliku zmodyfikuj nazwę usera, serwer i hasło.
PS.Wymaga FTPSend.pas (bodajże Synapse).

Ja już Formę mam zrobioną ;p i Chcę do tej Formy dodać Buttona który będzie pobierać Aktualizacje mojego projektu ;)

Chyba nie tak to zrozumiałeś.
TDownload to forma, na której jest pokazane, ile już pobrało.
Czyli:
Pobierasz pliki z linku wyżej.
Wypakowujesz.
Wklejasz oba pliki do katalogu z kodem źródłowym.
Teraz:
1.Z menu "Project" wybierz "View Source".
2.Powinien otworzyć się nowy plik. Coś typu:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

3.Dodajesz nowy Unit - Pobieranie.pas

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1}, //ważne, aby tutaj był przecinek
  Pobieranie in 'Pobieranie.pas'; //taka konstrukcja

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

4.Dodajesz jeszcze:

  Application.Initialize; //powinno być
  Application.CreateForm(TForm1, Form1); //powinno być
  Application.CreateForm(TDownload, Download); //TO dopisz (tak jak jest)
  Application.Run; //powinno być

A potem w tym Twoim buttonie:
Download.Pobierz('nazwa_pliku_na_serwerze', 'gdzie_zapisać_plik');

Oczywiście nie zapomnij w pliku "Pobieranie.pas" zmienić danych dostępu do serwera.

Const Serwer   = 'TUTAJ WPISZ SERWER';            //np.: ftp.friko.pl
      Haslo    = 'TUTAJ WPISZ SWOJE HASŁO';       //np.: abecadło
      UserName = 'TUTAJ WPISZ NAZWĘ UŻYTKOWNIKA'; //np.: myuser

KPW ?

Czyli, np:

Const Wersja = 1.0;
{...}
Procedure TForm1.PobierzClick(Sender: TObject);
Var Ini: TIniFile;
Begin
 Download.Pobierz('version.ini', 'c:\version.ini');
 Ini := TIniFile.Create('c:\version.ini');
 if Ini.ReadFloat('version', 'najnowsza_wersja', 1.0) > Wersja Then
 Begin
  Ini.Free;
  DeleteFile('c:\version.ini');
  Download.Pobierz('CosTam_Installer.exe', 'c:\CosTam_Installer.exe'); //będzie pokazany postęp pobierania
  WinExec('c:\CosTam_Installer.exe', 0);
 End;
End;

Chyba się nie pomyliłem...

Już załapałem ;p Jak będę mieć problemy napiszę do ciebie na pw ;)

Jak na razie to masz problemy z samodzielnym myśleniem i używaniem Google.
Nie truj d**y ludziom tylko rusz łbem, bo kompletnie się na niczym nie znasz.
Forum to ostateczność.