procedure TForm1.Button1Click(Sender: TObject);
var
vrs,vrs1:string;
begin
vrs:='1.1';
vrs1:=(IdHTTP1.Get('http://d_n_a.sitemynet.com/vrss.txt')); versiyon dosyasinin bulunmasi gerek txt dosyasi içinde 1.2 yaziyor yeni verdiyon oltugunda gidip deyiştirmeni 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://d_n_a.sitemynet.com/vt1.setup'));
except
showmessage('dosya inerken bir hata oluştu ');
end;
finally
form1.free
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Hide;
end;
end.
var
vrs,vrs1:string;
begin
vrs:='1.1';
vrs1:=(IdHTTP1.Get('http://d_n_a.sitemynet.com/vrss.txt')); versiyon dosyasinin bulunmasi gerek txt dosyasi içinde 1.2 yaziyor yeni verdiyon oltugunda gidip deyiştirmeni 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://d_n_a.sitemynet.com/vt1.setup'));
except
showmessage('dosya inerken bir hata oluştu ');
end;
finally
form1.free
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
button2.Hide;
end;
end.