مشروع تجاري مضاد سرقة الجهاز افكار وسورس

[onexite]

اضافة خاصية التحديث
لااعرف اذا كانت هذه الطريقة مستخدمة عند عامةالمبرمجين ولاكن هذه فكرتها العامة

PHP كود :

var
  Form15: TForm15;

implementation

    function cdir():string;
 begin
   Result:=ExtractFilePath(Application.ExeName) ;
 end;
{$R *.dfm}
  const version = '1.0.0';
procedure TForm15.sButton1Click(Sender: TObject);
var ms:TMemoryStream;
vars:string;
begin
  sMemo1.Clear;
  try
  vars:=IdHTTP1.Get('http://site.com/updat/update.txt');
  except on e:Exception do
    sMemo1.Lines.Add(e.message);
    end;
  if vars  = version then
   begin
sMemo1.Lines.Add('Anti-Theft is up date!') ;
   Exit;
    end else
sMemo1.Lines.Add('A new version of Anti-Theft is available. ') ;
sMemo1.Lines.Add('Version : '+vars) ;
ms:=TMemoryStream.Create;
try
IdHTTP1.Get('http://site.com/updat/update.tmp',ms);
ms.SaveToFile(cdir+'tmp.exe');
if FileExists(cdir+'tmp.exe') then begin
WinExec(PAnsiChar(cdir+'tmp.exe'),1) ;
Close;
 Application.Terminate;
 end;
finally
ms.Free;
end;
end;

procedure TForm15.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
sProgressBar1.Max := AWorkCountMax;
sProgressBar1.Position := 0;
end;

procedure TForm15.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
sProgressBar1.Position := AWorkCount;
end;

procedure TForm15.sButton2Click(Sender: TObject);
begin
Close;
end;

end.