unit Unit6;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm6 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

function GetDOSEnvVar(const VarName: string): string;
var
  i: integer;
begin
  Result := '';
  try
    i := GetEnvironmentVariable(PChar(VarName), nil, 0);
    if i > 0 then
    begin
      SetLength(Result, i);
      GetEnvironmentVariable(Pchar(VarName), PChar(Result), i);
      SetLength(Result, Pos(#0, Result)-1);
    end;
  except
    Result := '';
  end;
end;

function checkver(): boolean;
var ver, verw: String;
    f: textfile;
begin
  if (fileExists(GetDOSEnvVar('AppData')+'/.minecraft/version.txt')) then
    begin
      verw:= form6.idhttp1.Get('http://dl.dropbox.com/u/25047725/Client/version.txt');
      assignfile(f, GetDOSEnvVar('AppData')+'/.minecraft/version.txt');
      reset(f);
      read(f, ver);
      if verw <> ver then
        checkver:= true
      else
        checkver:= false;
      closefile(f);
    end
  else
    begin
      assignfile(f, GetDOSEnvVar('AppData')+'/.minecraft/version.txt');
      rewrite(f);
      write(f, '0');
      closefile(f);
      checkver();
    end;
end;

function refresh(): boolean;
begin
  //refresh:= false;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
  if checkver() then
    if refresh() then

end;

end.