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.