Вниз
Скачать: CL | DM;

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

 
Алексей   (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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c
4-1104417010
Katy
2004-12-30 17:30
2005.02.20
"Программа не отвечает", но она не виснет, вып незримые действия


1-1107768751
Юрий К
2005-02-07 12:32
2005.02.20
Является ли буквой символ Unicode?


3-1105977027
PZ
2005-01-17 18:50
2005.02.20
Поиск СЛОВА в базе данных


9-1099355998
ballack
2004-11-02 03:39
2005.02.20
DelphiX, движение пули


3-1106123155
slaga
2005-01-19 11:25
2005.02.20
Как лучше сравнить два разнотипных DateSet




   Наверх