[El Sanchez]

1. Проверка на ГЕО (US,CA,GB). »

Скрытый текст

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
const
  GEOCLASS_NATION = 16;
  GEO_ISO2 = $0004;

function GetUserGeoID(GeoClass: DWORD): DWORD; external 'GetUserGeoID@kernel32.dll stdcall';
function GetGeoInfo(Location, GeoType: DWORD; lpGeoData: string; cchData: Integer; LangId: DWORD): Integer; external 'GetGeoInfo{#A}@kernel32.dll stdcall';

////////////////////////////
function GetUserGeo: string;
var
  GeoID: DWORD;
begin
  GeoID := GetUserGeoID(GEOCLASS_NATION);
  SetLength(Result, GetGeoInfo(GeoId, GEO_ISO2, '', 0, 0));
  SetLength(Result, GetGeoInfo(GeoId, GEO_ISO2, Result, Length(Result), 0) - 1);
end;

function InitializeSetup: Boolean;
begin
  MsgBox(GetUserGeo, mbInformation, MB_OK);
end;

2. Проверка реестра на определённые ключи. »

RegKeyExists