procedure TForm1.FormShow(Sender: TObject);
var
a : string;
ms:TMemoryStream;
v : string;
begin
a := IdHTTP1.Get('http://r97804yj.beget.tech/BazaKeyLoader.bd');
if Pos(GetSerialNum,a) <> 0 then
begin
sGroupBox5.Height := 35;
slabel1.Top := 9999;
sEdit1.Top := 9999;
sLabel3.Caption := 'Активировано.';
slabel3.Font.Color := clLime;
slabel2.Top := 14;
sLabel3.Top := 14;
sLabel3.Left := 116;
Form1.Height := 296;
sWebLabel1.Top := 9999;
end
else
begin
end;
sEdit1.Text := GetSerialNum;
begin
try
ms := TMemoryStream.Create;
Data := TSTringList.Create;
v := '1.0';
IdHTTP1.Get('http://r97804yj.beget.tech/MonoHackLoader/Version.php', ms);
ms.Position := 0;
Data.LoadFromStream(ms);
Data.Text:=UTF8Decode(Data.Text);
AnsiToUTF8(Data.Text);
except
Halt;
end;
if Data.Strings[0] <> v then
begin
Silka1 := Data.Strings[0];
Form3.ShowModal;
Halt;
end;
end;
end;