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

Вниз

Ограниченние запуска программы   Найти похожие ветки 

 
Алексей   (2005-02-02 22:39) [0]

Помогите!!!
Нужно наложить ограничение на программу по количеству запусков.
Т.Е. допустим разрешается открыть прогамму 20 раз после чего должно появится окно с предложением зарегистрироваться.
Помогите очень нужно .


 
Alex_Petr ©   (2005-02-02 22:51) [1]

function TestDblStart(Mut:PAnsiChar):Boolean;
var
Hand:THandle;
begin
Hand:=CreateMutex(nil,True,PAnsiChar("Global\"+Mut));
Result:=GetLastError=ERROR_ALREADY_EXISTS;
if Result then Result:=Hand=0 else CloseHandle(Hand);
end;

// "Global\" добавляешь, если надо глобально


 
Anatoly Podgoretsky ©   (2005-02-02 23:33) [2]

N := N - 1;
if N <= 0 then Приглашение;


 
diabolik ©   (2005-02-03 05:13) [3]

Могу предложить писать количество уже произведенных запусков в свою ветку в реестре. А само количество вычислять как предложил Anatoly Podgoretsky. Можно еще хранить в dll все это вместе с функцией а в программу возвращить только результат - true false/ Так наверное даже лучше будет!


 
Gloomer ©   (2005-02-03 09:04) [4]

Пожалуй, лучшее место хранения - это реестр. Только ни в коем случае не стоит хранить количество запусков в открытой форме. Применяй кодирование по своему уникальному алгоритму.
Недостаток такого метода: при помощи regmon находим ключ реестра к которому обращается прога и удаляем его.
Поэтому в процессе инсталяции задаем значение ключа и если ключа в реестре нет, значит выдаем приглашение.Но и это все равно можно обойти - запоминаем значение сразу после инсталяции и затем регулярно его восстанавливаем.


 
Proga   (2005-02-03 12:31) [5]

Alex_Petr, чёто не пойму - а где задаётся количество разрешаемых запусков?


 
Alex175   (2005-02-03 14:22) [6]

Надо ввобще смириться и дать использовать людям программу сколько они хотят. :)


 
Proga   (2005-02-03 17:11) [7]

Нет! Самому надо такое. Ну прикиньте-пишете прогу, карячитесь над ней ночами, а потом кто-то взял и присвоил и спасибо не сказал!


 
SaveDialog12331   (2005-02-03 21:57) [8]

Напиши DLL которая запускается rundll32.exe после закрытия программы и вносит изменения в EXE :))))Тупой совет


 
Anatoly Podgoretsky ©   (2005-02-03 22:30) [9]

Мультик про Простоквашино - теперь ты за ним еще день будешь бегать, почему? Чтобы отдать.


 
Печкин   (2005-02-04 02:02) [10]


>  [9] Anatoly Podgoretsky ©   (03.02.05 22:30)



> ...теперь ты за ним еще день будешь бегать, почему? Чтобы отдать.


Чтобы поддать?



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

Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.049 c
4-1104825364
Tomkat
2005-01-04 10:56
2005.02.20
Получить группу текущего пользователя


1-1107755628
Vovka_the_Carrot1
2005-02-07 08:53
2005.02.20
Печать Chart


1-1107533343
Aleksandr.
2005-02-04 19:09
2005.02.20
Ааа! Как ускорить работу Делфи 2005?!


14-1107207759
Logun
2005-02-01 00:42
2005.02.20
ВАС ИЗ ДАС .NET


3-1106139080
Valeriya
2005-01-19 15:51
2005.02.20
Fast Report, проблемы с открытием датасета





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