En tu ejecutable guardas una constante llamada version.
En tu blog agregas una página que indique la versión activa
Desde tu aplicación, haces una llamada a esa página y comparas la respuesta con la constante.
Código Delphi
[-]
const Version = '1.0';
function EsVersionValida: boolean;
var
HTMLBody : string;
IdHTTP : TIdHTTP;
Peticion : string;
begin
Peticion := 'http://www.miblog.com/version_activa.php';
Result := false;
if WinInet.InternetGetConnectedState(nil, 0) then
begin
IdHTTP := TIdHTTP.Create(Application);
try
try
HTMLBody := IdHTTP.Get(Peticion);
HTMLBody := StringReplace(HTMLBody, '?', '', [rfReplaceAll]);
except
on e: Exception do
begin
HTMLBody := '404';
end;
end;
HTMLBody := Trim(HTMLBody);
Result := (Version = HTMLBody);
finally
IdHTTP.Free;
end;
end;
end;
[...]
procedure TFMMain.FormActivate(Sender: TObject);
begin
if (not EsVersionActiva) then
begin
ShowMessage('No es la última versión. Descargue nuevamente la aplicación. Gracias!');
Close;
end;
end;