Главная страница
    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.045 c
2-1128003394
Тюменский
2005-09-29 18:16
2005.10.23
Вопрос по Delphi и MySQL


14-1127972011
Ega23
2005-09-29 09:33
2005.10.23
С днем рождения! 29 сентября


1-1128075034
Николай1
2005-09-30 14:10
2005.10.23
MDIChild и TreeView не возвращается фокус


4-1124343984
Shopot
2005-08-18 09:46
2005.10.23
Давайте вместе разберемся с TAPI.


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