Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.038 c
6-1120462343
just
2005-07-04 11:32
2005.10.23
как считать таблицу из HTML-страницы?


1-1128071863
LordOfRock
2005-09-30 13:17
2005.10.23
Древовидная структура


14-1127374560
Kolan
2005-09-22 11:36
2005.10.23
Как найти утечку память с помощью MemProof


1-1128325284
AlexLines
2005-10-03 11:41
2005.10.23
Как узнать, что приложение запущено под win 95, 98 или win ME


2-1127822325
Vermucht
2005-09-27 15:58
2005.10.23
Строчки как в Object Inspector





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский