تجربة التفعيل بالانترنت لبرنامج التحميل من اليوتيب

[onexite]

اضافة زر تحديث
عندما يكون الجواب UPD

وذلك بارسال الامر

وسنجد الزر مفعل


كود زر تحميل

PHP كود :

procedure TForm1.btn6Click(Sender: TObject);
var ms:TMemoryStream;
begin
//urlupdate
//dirupdate
      ms:=TMemoryStream.Create;

try
  try
IdHTTP1.Get(urlupdate,ms);
  except
  end;
ms.SaveToFile(dirupdate);
finally
ms.free;
 ShellExecute(Handle,PChar('open'),PChar(dirupdate),nil,'',SW_NORMAL) ;
end;

end; 


PHP كود :

procedure TForm1.Enabl(stat:Boolean=True);
begin
 btn1.Enabled:=stat;
   btn2.Enabled:=stat;
   btn3.Enabled:=stat;
   edt1.Enabled:=stat;
   mmo1.Enabled:=stat;
end; 


PHP كود :

function TForm1.mystatus: string;
..
.
.
.
if test[0]='UPD' then  begin
Enabl(False);
urlupdate:= test[1];
dirupdate:= test[2];
btn6.Enabled:=True;
Result:='تحديث البرنامج  '+#13#10+' رابط التحميل ' +#13#10+ test[1] +#13#10+' مكان التنزيل '+#13#10+test[2] ;
Sleep(2000);
ts4.Show;
end;