Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Вниз

Запрет на запуск   Найти похожие ветки 

 
Twister1222   (2005-08-16 20:25) [0]

Приветствую уважаемые,

Тут такое дело, как бы реализовать следующие:

Запретить запускать программу на компах в определенных странах. Т.е. к примеру чтобы у французов эта прога не запустилась.


 
Almaz ©   (2005-08-16 21:20) [1]

Определить страну, указанную в региональных настройках ОС можно с помощью функции GetLocalInfo.

var
 Buffer: array [0..255] of Char;
begin
 if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_ICOUNTRY, Buffer, sizeof(Buffer)) <> 0 then
   ShowMessage("Код страны: " + Buffer);
 if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, Buffer, sizeof(Buffer)) <> 0 then
   ShowMessage("Название страны на английском: " + Buffer);
end;


Ну а запретить запуск, я думаю вы сможете и сами.

Удачи.

p.s. А чем вам так французы насолили ? :)


 
Twister1222   (2005-08-17 00:41) [2]

Almaz 10x, ну а если у него там Германия к примеру указана ?


 
Almaz ©   (2005-08-17 01:00) [3]


> Twister1222   (17.08.05 00:41) [2]
> Almaz 10x, ну а если у него там Германия к примеру указана
> ?

Значит определиться как Германия. CTRY_GERMANY = 49.


 
Германн ©   (2005-08-17 01:50) [4]

А вот тут я просто не понимаю, почему этот топик до сих пор не в "Начинающих"?

Как может "кусок железа"+"небольшое количество кристаллического кремния(с теми или иными примесями)+"различного рода и вида пластмассы", решить "В КАКОЙ СТРАНЕ ОН РАБОТАЕТ?"


 
Twister1222   (2005-08-17 17:44) [5]

Германн > По существу бы, а не кидать в "для начинающих".
Вопрос был задан конкретно, пока решен на 50 процентов (даже мастерами)
Алмаз спасибо, может ещё идеи ?


 
BiN ©   (2005-08-17 17:57) [6]

Тут без GPS не обойтись.


 
Almaz ©   (2005-08-17 18:12) [7]


> Алмаз спасибо, может ещё идеи ?

Определить географическое положение компьютера без привлечения каки-либо внешних навигационных устройств не обойтись.

Если компьютер подключен к интернету, то можно теоритически сделать traceroute к какому-нибудь серверу, например тот же delphimaster.com проанализировать, получить IP провайдера к которому подключен данный компьютер, потом программно подключиться к www.geoip.net/geoip/ и найти на географическое положение провайдера. С вероятностью 99%, ИМХО, провайдер и компьютер имеют очень близкое географическое положение.

Удачи.


 
Германн ©   (2005-08-18 02:01) [8]

2 Twister1222   (17.08.05 17:44) [5]

2Германн > По существу бы, а не кидать в "для начинающих".

"По существу" я уже ответил. См. Германн ©   (17.08.05 01:50) [4]

> Вопрос был задан конкретно, пока решен на 50 процентов (даже мастерами)
А чем меряешь процент решения?

Вот далее Almaz ©   (17.08.05 18:12) [7] предложил идею. Но, имхо, очень это "геморройно"! Там термин "Если" - главный, а результат получается приемлемым, если "всё тип-топ"!


 
Alexander Panov ©   (2005-08-18 04:16) [9]

Задача не решаема в общем случае.

И даже в частных случаях ее можно решить с большой натяжкой.


 
kblc ©   (2005-08-18 07:05) [10]

Автор, а может быть на компе есть какое-нибудь специальное железо?



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.047 c
14-1127966936
Mike Kouzmine
2005-09-29 08:08
2005.10.23
Новые подтверждения наличия ядерной программы у Кубы


3-1126093577
stud
2005-09-07 15:46
2005.10.23
сортировка в dxMemData


4-1124416633
Kripton
2005-08-19 05:57
2005.10.23
Прозрачность в TglListBox (class(TCustomListBox))


3-1126646105
TALLA
2005-09-14 01:15
2005.10.23
MySQL через ADO, invalid field size


3-1126674133
erika
2005-09-14 09:02
2005.10.23
Порядковый номер в наборе данных





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский