Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 6
1

демо версия

28.05.2012, 23:42. Показов 964. Ответов 5
Метки нет (Все метки)

для курсовой работы нужна демо версия
курсач сделал )
и демо версия не получается
этот код работает на любом другом проекте а именно на моем не хочет рабоать ругается на строке rewrite(f)
говорят что я с формой что то напортачил
что же это может быть
вот сам код
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.FormActivate(Sender: TObject);
begin
if filesearch('mediadirectory','j:\;')<>'j:\mediadirectory' then
begin
assignfile(f,'j:\mediadirectory');
y:=strtoint(formatdatetime('yyyy',Date));
y:=y-1;
m:=strtoint(formatdatetime('mm',Date));
m:=m-1;
d:=strtoint(formatdatetime('dd',Date));
rewrite(f); <==== вот эта строка
p:=y*365+m*30+d;
writeln(f,p);
closefile(f);
application.MessageBox('Осталось 30 дней', 'внимание!', MB_OK+MB_iconinformation);
end else begin
   assignfile(f,'j:\mediadirectory');
   reset(f);
   read(f,p);
   if p<>0 then begin
y:=strtoint(formatdatetime('yyyy',Date));
y:=y-1;
m:=strtoint(formatdatetime('mm',Date));
m:=m-1;
d:=strtoint(formatdatetime('dd',Date));
a:=y*365+m*30+d;
showmessage('Осталось '+inttostr(30-abs(a-p))+' дней ');
if abs(a-p)>30 then begin
 
   showmessage('Истек срок лицензии!');close;end;
   closefile(f);
 
end else  closefile(f);
end
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2012, 23:42
Ответы с готовыми решениями:

Демо версия программы
Всем привет, у меня такой вопрос! Пишу сейчас программу и хочу чтобы программа имелла...

Как сделать демо версию программы, имея только exe?
Есть exe файл, исходников нет, можно ли как то сделать из этой программы демо верисю. Нужно...

Демо версия игры
Здравствуйте! Выкладываю демоверсию игры + мои наброски концепта .

Демо версия программы
Хочу сделать программу на Ассемблере. Сама программа создаёт файл и выводит на экран &quot;Привет мир!&quot;....

5
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
29.05.2012, 00:21 2
Код ошибки компилятора какой?
0
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 6
29.05.2012, 08:05  [ТС] 3
вот такая ошhttps://www.cyberforum.ru/atta... 264299ибка
0
Миниатюры
демо версия  
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 6
29.05.2012, 08:29  [ТС] 4
Цитата Сообщение от PolarFoG Посмотреть сообщение
Код ошибки компилятора какой?
ошибка сверху)
0
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
29.05.2012, 12:51 5
Это не в форме ошибка.
Возможно файл mediadirectory с атрибутом Только для чтения или у пользователя недостаточно прав для изменения файлов на диске J.
0
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 6
29.05.2012, 15:04  [ТС] 6
Цитата Сообщение от PolarFoG Посмотреть сообщение
Это не в форме ошибка.
Возможно файл mediadirectory с атрибутом Только для чтения или у пользователя недостаточно прав для изменения файлов на диске J.
я проверял на новом проекте этот же код на этом же компе... там все работает а именно на моем не хоче работать
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2012, 15:04

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Демо-версия программы
Ребят. нужно сделать демо-версии моей программы (связана с базой SQL Server) на C#, но увы,...

Демо версия с ограничениями
Доброй ночи. Такая проблема у меня. Я вот написал одну небольшую систему управления сайтам,...

Закончилась демо версия
Закончилась демо версия (прошли даже 2 недели) и сайт заблокирован. Есть ли актуальные решения для...

Демо-версия программы
Вобщем задача такая- программа должна отработать на компьютере ровно 30 минут , после должно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.