VersiyoN KontroL

programınız versiyonunu geliştirdiniz müsterilerinize email atmak yerine programınıza versiyon kontrol ettirin

buyrun kod geliştimek size kalmış ben sadece yolu gösteriyorum
:


procedure TForm1.Button1Click(Sender: TObject);
var
vrs,vrs1:string;

begin
vrs:='1.1';
vrs1:=(IdHTTP1.Get('http://hede.com/hodo.txt')); //versiyon dosyasinin bulunmasi gerek

if vrs>vrs1 then

begin
showmessage('yeni versiyon üretildi indirmek için tıklayin');
button2.show
else
showmessage('versiyon yenilenmemiş');

end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
IdHTTP1.Get('http://hede.com/hodo.setup'));
except
showmessage('dosya inerken bir hata oluştu ');
end;
finally
form1.free
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Hide;
end;

end.