|
C временем - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
16.05.2013, 11:41
|
#1
|
|
|
|
Разведчик
|
Регистрация: 14.05.2013
Сообщений: 7
Популярность: 289
Сказал(а) спасибо: 7
Поблагодарили 49 раз(а) в 29 сообщениях
|
C временем
Мне нужно чтоб при первом запуске програмыы пошёл обратный отщёт времени ну допустим 12 часов и чтоб после выключения программы или выключение компа, при другом запуске проги показывало сколько осталось времени с момента первого запуска.
Помогите кто знает, не могу понять как это сделать.
Последний раз редактировалось WinMon; 16.05.2013 в 15:15.
|
|
|
17.05.2013, 09:03
|
#2
|
|
|
|
Разведчик
|
Регистрация: 19.03.2010
Сообщений: 12
Популярность: 143
Сказал(а) спасибо: 23
Поблагодарили 3 раз(а) в 3 сообщениях
|
Re: C временем
Сделай запись в файл просто.
Код можно переделать, а можно просто значения таймера записывать на label и считывать оттуда же.
ОПАСНОСТЬ!!! Слишком быдлокод!!!
Пример кода
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var fi:TextFile;
s : string;
begin
s:=sLabel.Text; // Или caption, не помню, на память пишу
assignfile(fi,'time');
Rewrite(fi); //очищаем файл и записываем заново
writeln(fi,s);
closefile(fi);
end;
procedure TForm1.FormShow(Sender: TObject);
var
list: TStringList;
fi: TextFile;
begin
if FileExists('time') then
begin
list := TStringList.Create;
list.LoadFromFile ('time');
sLabel.Text := list[0];
list.Free;
end
else
begin
assignfile(fi,'time');
Rewrite(fi); //очищаем файл и записываем заново
writeln(fi,'24:00')
closefile(fi);
end;
end;
Кстати стоит этот файл засунуть оооочень глубоко (можно даже без файла... Просто воткнуть значение в реестр. Кстати так будет надежнее) или зашифровать файл(!). Шифровок на просторах очень много. Выбирай. Если помог кому-нибудь - лойс :3
Как сам обратный отсчет, я полагаю, найдёшь как сделать. Лучше запихивай эти данные в реестр. Желательно не как у меня (formShow formClose), а каждые 2-е секунды, т.к. можно будет закрывать прогу через ctrl+shift+esc и таймер будет запускаться с того места,с какого он начинал
Последний раз редактировалось KiRo_Lajt; 17.05.2013 в 09:27.
|
|
|
17.05.2013, 12:55
|
#3
|
|
|
|
Сержант
|
Регистрация: 10.08.2011
Сообщений: 136
Популярность: 1781
Сказал(а) спасибо: 60
Поблагодарили 246 раз(а) в 145 сообщениях
|
Re: C временем
|
|
|
17.05.2013, 13:31
|
#4
|
|
|
|
Разведчик
|
Регистрация: 19.03.2010
Сообщений: 12
Популярность: 143
Сказал(а) спасибо: 23
Поблагодарили 3 раз(а) в 3 сообщениях
|
Re: C временем
|
|
|
17.05.2013, 15:03
|
#5
|
|
|
|
Разведчик
|
Регистрация: 14.05.2013
Сообщений: 7
Популярность: 289
Сказал(а) спасибо: 7
Поблагодарили 49 раз(а) в 29 сообщениях
|
Re: C временем
Спасибо на этом, дальше буду думать сам как доработать
|
|
|
Пользователь сказал cпасибо:
|
|
17.05.2013, 16:13
|
#6
|
|
|
|
Старший сержант
|
Регистрация: 25.12.2011
Сообщений: 191
Популярность: 5259
Сказал(а) спасибо: 31
Поблагодарили 235 раз(а) в 135 сообщениях
|
Re: C временем
я бы задумался о сервере лицензий в таком случае. Хранить такое на компе - грех.
|
|
|
17.05.2013, 16:19
|
#7
|
|
|
|
Фельдмаршал
|
Регистрация: 22.02.2011
Сообщений: 949
Популярность: 34698
Сказал(а) спасибо: 939
Поблагодарили 2,534 раз(а) в 911 сообщениях
|
Re: C временем
|
Цитата: |
|
|
|
|
|
|
|
|
|
я бы задумался о сервере лицензий в таком случае. Хранить такое на компе - грех.
|
|
|
|
|
|
Если это только грандиозный и прибыльный проэкт.
А если это мелочовка, то будет накладно.
Декомпиль не кто не отменял.
И найди delphiantihexeditor, она поможет в кодировке текста.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 18:32.
|
|