Q&A
- 베타버젼 배포시에 한달간만 쓸 수 있게 하고싶은데 어떻게 해야 하나요?
제목 그대로입니다...
인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요...
어떻게 해야 하나요?
또는 날짜를 정해 놓고서 그날짜까지만 사용이 가능하게 하려면 어떻게 해야 합니까?
인스톨쉴드에서 해야 하나요? 아니면 프로그램상에서 해줘야 하나요?
변경이 불가하게(?) 레지스트리의 파일날짜를 비교해서 하는 방법은 없나요?
가능하다면 약간의 힌트를 부탁합니다.....
인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요...
어떻게 해야 하나요?
또는 날짜를 정해 놓고서 그날짜까지만 사용이 가능하게 하려면 어떻게 해야 합니까?
인스톨쉴드에서 해야 하나요? 아니면 프로그램상에서 해줘야 하나요?
변경이 불가하게(?) 레지스트리의 파일날짜를 비교해서 하는 방법은 없나요?
가능하다면 약간의 힌트를 부탁합니다.....
5
COMMENTS
-
-
FIniFile:TRegIniFile; <---- 에러
TRegIniFile is a low-level wrapper for the Windows 95/NT system registry.
윈도95/NT시스템레지스트리에 대하여 낮은 레벨을 감싼다(?)
Regist:TRegistry; <---- 에러
TRegistry is a low-level wrapper for the system registry and functions that operate on the registry
시스템레지스트리와 레지스트리에 접하여 움직이는 함수에 대하여 낮은 레벨을 감싼다
Ini :TIniFile; <---- 에러
TIniFile is a low-level wrapper for the 16-bit Windows 3.x INI file system that enables storage and retrieval of application-specific information and settings in an application-specific INI file.
ini파일이 있는 어플리케이션과 정보를 갖고있는 어플리케이션에 대하여 저장과 복구할 수 있는 16-bit Windows 3.x INI file system에 대하여 낮은 레벨을 감싼다
위의 도움말을 해석한게 맞는지 모르겠네요.. 웨퍼.. 쩝.. 감싸? 뭘 감싸냠..ㅠ.ㅠ
위의 세줄이 에러가 나서.. 에러가 왕창 나거든요..
지금 윈98을 쓰는데..그래서 안되는 것일까요? 아니면... 무엇일까요..
음.. 소스 해석도 못 했는데... 질문부터 올리려니까.. 죄송스럽습니다...ㅠ.ㅠ
도망가지 마시고 .... 도움말 좀 주세요.......
> Const ShareWare = False; // 데모버전(True) 정품(False) 구분
>
> implementation
>
> ..
> ..
>
> procedure TISPASSF.FormShow(Sender: TObject);
> begin
> if ShareWare then ProgramRegist(Sender);
> end;
>
> procedure TISPASSF.ProgramRegist(Sender: TObject);
> var FIniFile:TRegIniFile;
> Regist:TRegistry;
> Section,Key,sPName:string;
> a,b:Dword;
> sRSV:TStrings;
> H, C, D: String;
> Ini :TIniFile;
> BsMoneyCount, InputString: String;
>
> function EncodeLock(H:String) : String;
> var Str : String;
> i,j : integer;
> begin
> j := Length(H);
> Str := H;
> for i :=1 to Length(H) do begin
> Str[i] := chr(ord(Str[i]) + ord(Str[j]));
> Dec(j);
> end;
> Result := Str;
> end;
> function DecodeLock(H:String) : String;
> var Str : String;
> i,j : integer;
> begin
> j := Length(H);
> Str := H;
> for i :=1 to Length(H) do begin
> Str[j] := chr(ord(Str[j]) - ord(Str[i]));
> Dec(j);
> end;
> Result := Str;
> end;
>
> begin
> //Registry 읽고 쓰기
> sRSV := TStringList.Create;
> Key := '';
> sRSV.Clear;
> Regist := TRegistry.Create;
> Regist.RootKey := HKEY_CURRENT_USER;
> FiniFile := TRegIniFile.Create('SOFTWARE'); // License
> Section := 'License'; // <= 이부분에 류응철님이 원하시는 레지스트리이름을 적으세요~
> FiniFile.ReadSectionValues(Section,sRSV);
> if (sRSV.Count = 0) then // 없으면 프로그램 시작일을 Registry에 저장한다.
> begin
> H := EncodeLock(FormatDateTime('YYYY-MM-DD',Date));
> FiniFile.WriteString(Section,Section,H);
> Application.MessageBox('"모모모" 프로그램으로 오신것을 환영합니다.'+#13#13 +
> '이 프로그램은 연습용으로써 '+ #13#13 +
> '최초 실행일부터 한달(30일)간 사용할 수 있습니다.', MB_OK);
> Key := FiniFile.FileName;
> sRSV.Free;
> FiniFile.Free;
> Regist.Free;
> end else
> begin
> a := Pos('=',sRSV[0]); b := Length(sRSV[0]);
> H := DecodeLock(Copy(sRSV[0],a+1,b-a));
> if (StrToDate(H) < Date - 30) or (StrToDate(H) > Date + 30) then
> begin
> if H <> '1900-01-01' then
> begin
> H := EncodeLock('1900-01-01');
> FiniFile.WriteString(Section,Section,H);
> end;
> Application.MessageBox('"모모모" 프로그램 사용기간이 만료되었습니다.'+#13#13 +
> '정품을 구입하시면 제한없이 사용할 수 있으며 ' +#13#13 +
> '많은 해택을 드립니다.' ,'확인', MB_OK);
> sRSV.Free;
> FiniFile.Free;
> Regist.Free;
> Application.Terminate;
> end else
> begin
> Application.MessageBox('"모모모" 프로그램으로 오신것을 환영합니다.'+#13#13 +
> '정품을 구입하시면 제한없이 사용할 수 있으며 ' +#13#13 +
> '많은 해택을 드립니다.','확인', MB_OK);
> Key := FiniFile.FileName;
> sRSV.Free;
> FiniFile.Free;
> Regist.Free;
> end;
> end;
> end;
>
-
맨위
interface
uses문에 아래두개를 추가시키세요
Registry, Inifiles
TRegIniFile하고 TRegistry는 Registry유닛에 포함되어있고
TIniFile은 Inifiles유닛에 포함되어있습니다..
소스에서 TRegIniFile부분에 마우스를 갖다대고 콘트롤키하고 같이 클릭해보시면
선언되어있는 소스가 팔짝 튀어나올겁니다..^^
헬프에서도 보면 두번째 줄에 Unit .. 어쩌고 나오죠..^
추가시키시면 에러없을겁니다..
수고하세요~
-
컨트롤 + 마우스클릭해서.. 저두 해보려 했는데...
관련소스가 안튀어나와서... 그래서 ㅠ.ㅠ(앙.. 초보당..ㅠ.ㅠ)
정말 답변 빨리 올리시네요..정말 고맙습니다...
조복기 wrote:
>
> 맨위
> interface
> uses문에 아래두개를 추가시키세요
> Registry, Inifiles
>
>
> TRegIniFile하고 TRegistry는 Registry유닛에 포함되어있고
> TIniFile은 Inifiles유닛에 포함되어있습니다..
>
> 소스에서 TRegIniFile부분에 마우스를 갖다대고 콘트롤키하고 같이 클릭해보시면
> 선언되어있는 소스가 팔짝 튀어나올겁니다..^^
> 헬프에서도 보면 두번째 줄에 Unit .. 어쩌고 나오죠..^
> 추가시키시면 에러없을겁니다..
>
> 수고하세요~
>
-
우앙 소스까지 주셨네요... 정말 감사합니다...
밑에 있는 소스 참조 하여... 열띠미 해보겠습니다..
앙.. 정말 감사합니다.....
조복기 wrote:
> 류응철 wrote:
> > 제목 그대로입니다...
> >
> > 인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요...
> >
> > 어떻게 해야 하나요?
> >
> > 또는 날짜를 정해 놓고서 그날짜까지만 사용이 가능하게 하려면 어떻게 해야 합니까?
> >
> > 인스톨쉴드에서 해야 하나요? 아니면 프로그램상에서 해줘야 하나요?
> >
> > 변경이 불가하게(?) 레지스트리의 파일날짜를 비교해서 하는 방법은 없나요?
> >
> > 가능하다면 약간의 힌트를 부탁합니다.....
>
>
> 안녕하세요~
> 제가 일하는곳에 있는 개발프로그램중에 한 부분입니다..
> 소스가 좀 엉망인데요 (민망~)
> 대충 설명하면
> 맨처음 그 프로그램이 실행될때 레지스트리값이 존재하는지 판단하고
> 없으면 첨 실행된 시스템날짜를 Encode시켜서 레지스트리에 보관하고
> 담에 다시 실행할때면 실행되는 날짜와 레지스트리에 기록된 날짜와 비교해서
> 한달이 넘으면 사용을 막아버립니다..
> 근데 중요한건 한번 한달이 넘어버리면 날짜를 1900-01-01로 기록해버려서
> 사용자가 임으로 날짜를 조작해서 사용하지못한다는거죠..
> (이거 꽁수인것같음^^)
> 밑에 소스보시면
> Section 부분이 있는데요 이 섹션이름을 사용자가 눈치못채게
> 어려운 이름이 바꾸시면 좋겠죠?
> 예를들어 'Usb Controller Setting' 등의 이름..
> 아래에선 폼show에다 걸었는데 원하시는 곳에 루틴을 활용하시기바랍니다..
> 그리고 소스 맨위에 상수로 값만 변경하면 데모 및 정품을 쉽게 변경가능할겁니다..
>
> 사실 전 이런거(날짜막아버리는거..) 젤 싫어하는데
> 회사에 있다보니 어쩔수없는 현실이군여..쩝..
> 그냥 이렇게도 쓸수있다는걸로 참고하세요
>
> 에러난다면 도망가야쥐..^^
>
> 좋은하루되세요~
>
>
> Const ShareWare = False; // 데모버전(True) 정품(False) 구분
>
> implementation
>
> ..
> ..
>
> procedure TISPASSF.FormShow(Sender: TObject);
> begin
> if ShareWare then ProgramRegist(Sender);
> end;
>
> procedure TISPASSF.ProgramRegist(Sender: TObject);
> var FIniFile:TRegIniFile;
> Regist:TRegistry;
> Section,Key,sPName:string;
> a,b:Dword;
> sRSV:TStrings;
> H, C, D: String;
> Ini :TIniFile;
> BsMoneyCount, InputString: String;
>
> function EncodeLock(H:String) : String;
> var Str : String;
> i,j : integer;
> begin
> j := Length(H);
> Str := H;
> for i :=1 to Length(H) do begin
> Str[i] := chr(ord(Str[i]) + ord(Str[j]));
> Dec(j);
> end;
> Result := Str;
> end;
> function DecodeLock(H:String) : String;
> var Str : String;
> i,j : integer;
> begin
> j := Length(H);
> Str := H;
> for i :=1 to Length(H) do begin
> Str[j] := chr(ord(Str[j]) - ord(Str[i]));
> Dec(j);
> end;
> Result := Str;
> end;
>
> begin
> //Registry 읽고 쓰기
> sRSV := TStringList.Create;
> Key := '';
> sRSV.Clear;
> Regist := TRegistry.Create;
> Regist.RootKey := HKEY_CURRENT_USER;
> FiniFile := TRegIniFile.Create('SOFTWARE'); // License
> Section := 'License'; // <= 이부분에 류응철님이 원하시는 레지스트리이름을 적으세요~
> FiniFile.ReadSectionValues(Section,sRSV);
> if (sRSV.Count = 0) then // 없으면 프로그램 시작일을 Registry에 저장한다.
> begin
> H := EncodeLock(FormatDateTime('YYYY-MM-DD',Date));
> FiniFile.WriteString(Section,Section,H);
> Application.MessageBox('"모모모" 프로그램으로 오신것을 환영합니다.'+#13#13 +
> '이 프로그램은 연습용으로써 '+ #13#13 +
> '최초 실행일부터 한달(30일)간 사용할 수 있습니다.', MB_OK);
> Key := FiniFile.FileName;
> sRSV.Free;
> FiniFile.Free;
> Regist.Free;
> end else
> begin
> a := Pos('=',sRSV[0]); b := Length(sRSV[0]);
> H := DecodeLock(Copy(sRSV[0],a+1,b-a));
> if (StrToDate(H) < Date - 30) or (StrToDate(H) > Date + 30) then
> begin
> if H <> '1900-01-01' then
> begin
> H := EncodeLock('1900-01-01');
> FiniFile.WriteString(Section,Section,H);
> end;
> Application.MessageBox('"모모모" 프로그램 사용기간이 만료되었습니다.'+#13#13 +
> '정품을 구입하시면 제한없이 사용할 수 있으며 ' +#13#13 +
> '많은 해택을 드립니다.' ,'확인', MB_OK);
> sRSV.Free;
> FiniFile.Free;
> Regist.Free;
> Application.Terminate;
> end else
> begin
> Application.MessageBox('"모모모" 프로그램으로 오신것을 환영합니다.'+#13#13 +
> '정품을 구입하시면 제한없이 사용할 수 있으며 ' +#13#13 +
> '많은 해택을 드립니다.','확인', MB_OK);
> Key := FiniFile.FileName;
> sRSV.Free;
> FiniFile.Free;
> Regist.Free;
> end;
> end;
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 이광주
- 2000.06.21 18:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 제로니스
- 2000.06.21 07:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 해릿
- •
- 2000.06.21 07:04
- 1 COMMENTS
- /
- 0 LIKES
-
방기남•2000.06.21 07:24안녕하세요. 좀 다르게 생각을 하면 어떻겠습니까? 테잎이든 책이든 대여이후 반납일이 정해져 있을 겁...
-
- 원영준
- •
- 2000.06.21 06:16
- 3 COMMENTS
- /
- 0 LIKES
-
노태협•2000.06.21 19:04database컴포넌트의 params에서 username과 password를 입력하시면됩니다... loginprompt는 false로 하...
-
방기남•2000.06.21 07:28안녕하세요. 저는 델 + 오라클을 사용하지만, 비슷한 것 같아서 몇 자 적습니다. 일반적으로 디자인 타...
-
원영준•2000.06.21 18:17방기남 wrote: > > 안녕하세요. 저는 델 + 오라클을 사용하지만, 비슷한 것 같아서 몇 자 적습니다. > ...
-
- 김인수
- •
- 2000.06.21 06:11
- 2 COMMENTS
- /
- 0 LIKES
-
김범석•2000.06.22 21:02우선 excel자료를 save as..에서 dbase format으로 저장하시고 델파이의 data pump를 이용하여 oracl...
-
김인수•2000.06.22 21:23안녕하세요 정말루 고맙습니다 그런 좋은 방법이 있는줄 몰랐습니다 감사합니다 >김범석 wrote: > ...
-
- 강진호
- •
- 2000.06.21 09:08
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.21 19:51안녕하세요. 최용일입니다. 2차원인 스트링그리드의 내용을 1차원 바이트 배열로 바꾸는 예제를 간단히 ...
-
- 워니99
- •
- 2000.06.21 05:16
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.21 06:26안녕하세요. 최용일입니다. 아마도 열때 'Open'으로 실행시키셨나보네요. 그럼 디폴트로 메모장으로 읽...
-
- 김선호
- 2000.06.21 05:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보.......t(t--)
- •
- 2000.06.21 04:37
- 1 COMMENTS
- /
- 0 LIKES
-
임형호•2000.06.21 04:53초보.......t(t--) wrote: > 흠냐리.. 델파이루 간단한 프로그램을 만들었는디엽음 아이콘이 이쁜게 없네...
-
- 까마귀
- •
- 2000.06.21 03:54
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.21 04:19까마귀 wrote: > 안녕하세요. > 까마귀입니다. > > 제목대로인데요. > DBGrid의 속성중에 Options라...
-
방기남•2000.06.21 07:30또는 이렇게 해보세요. DBGrid1.Option := DBGrid1.Option -[dgRowLines]; assembly@hitel.net
-
- 이진배
- •
- 2000.06.21 03:44
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.06.21 05:19한델의 도구 메뉴에 아스키코드를 보세요. 이진배 wrote: > keypress이벤트시 key 값좀 알려주세요 ...
-
- 김동식
- 2000.06.21 03:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 박정훈
- •
- 2000.06.21 03:20
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.21 04:34새로운 프로젝트를 실행하면 기본적으로 폼이 한개가 추가되어 버리죠... 이때 메뉴에서 File>New..를 선...
-
- 김범석
- •
- 2000.06.21 02:53
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.21 04:24최대커서 열기수를 초과했다는 에러메시지를 말씀하시는듯 싶군요... 만약에 그렇다면 서브루틴에서 동...
-
- 과객
- •
- 2000.06.21 02:38
- 1 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.01 07:12과객 wrote: 제가 미루어 짐작하곤데 아마도 Windows에 국가별 설정에 날짜설정이 yy-mm-dd로 되어 있을거...
-
- 김지훈
- •
- 2000.06.21 02:15
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.06.21 02:20김지훈 wrote: > 금번 제작한 프로그램을 오피스 제품군에 연계하여 사용하고 싶은데 어떤 방법이 > 있을...
-
- 공주마마
- •
- 2000.06.21 02:10
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.21 04:37구체적인 에러메시지와 에러가 발생하는 부분의 소스코드를 함께 올려서 질문하셔야 할것같습니다. 그리...
-
- 김범석
- •
- 2000.06.21 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.21 17:30김범석 wrote: > 고수님들의 조언 많이 기다리겠습니다 > > 스플레쉬 화면에서 한 5초정도 되는 MPEG ...
-
- 류응철
- •
- 2000.06.21 01:42
- 5 COMMENTS
- /
- 0 LIKES
제목 그대로입니다... 인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요... 어떻게 해야 하나요? 또는 날짜를 정해 놓고서 그날짜까지만 사용이 가능하게 하려면 어떻게 해야 합니까? 인스톨쉴드에서 해야 하나요? 아니면 프로그램상에서...-
조복기•2000.06.21 04:00류응철 wrote: > 제목 그대로입니다... > > 인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요... > ...
-
류응철•2000.06.21 19:59FIniFile:TRegIniFile; implementation > > .. > .. > > procedure TISPASSF.FormShow(Sende...
-
조복기•2000.06.21 20:22맨위 interface uses문에 아래두개를 추가시키세요 Registry, Inifiles TRegIniFile하고 TRe...
-
류응철•2000.06.21 20:46컨트롤 + 마우스클릭해서.. 저두 해보려 했는데... 관련소스가 안튀어나와서... 그래서 ㅠ.ㅠ(앙.. 초보당...
-
류응철•2000.06.21 18:47우앙 소스까지 주셨네요... 정말 감사합니다... 밑에 있는 소스 참조 하여... 열띠미 해보겠습니다.. 앙....
-
- 혀노
- •
- 2000.06.21 01:40
- 2 COMMENTS
- /
- 0 LIKES
-
임형호•2000.06.21 02:37혀노 wrote: > 오라클에서 필드 Type은 Date형이고 > 테이블에서 필터링을 시키는데 > 테이블.Filter = ...
-
과객•2000.06.21 02:34혀노 wrote: > 오라클에서 필드 Type은 Date형이고 > 테이블에서 필터링을 시키는데 > 테이블.Filter = ...
> 제목 그대로입니다...
>
> 인스톨해서 한달동안만 쓸 수있게끔 하고 싶은데요...
>
> 어떻게 해야 하나요?
>
> 또는 날짜를 정해 놓고서 그날짜까지만 사용이 가능하게 하려면 어떻게 해야 합니까?
>
> 인스톨쉴드에서 해야 하나요? 아니면 프로그램상에서 해줘야 하나요?
>
> 변경이 불가하게(?) 레지스트리의 파일날짜를 비교해서 하는 방법은 없나요?
>
> 가능하다면 약간의 힌트를 부탁합니다.....
안녕하세요~
제가 일하는곳에 있는 개발프로그램중에 한 부분입니다..
소스가 좀 엉망인데요 (민망~)
대충 설명하면
맨처음 그 프로그램이 실행될때 레지스트리값이 존재하는지 판단하고
없으면 첨 실행된 시스템날짜를 Encode시켜서 레지스트리에 보관하고
담에 다시 실행할때면 실행되는 날짜와 레지스트리에 기록된 날짜와 비교해서
한달이 넘으면 사용을 막아버립니다..
근데 중요한건 한번 한달이 넘어버리면 날짜를 1900-01-01로 기록해버려서
사용자가 임으로 날짜를 조작해서 사용하지못한다는거죠..
(이거 꽁수인것같음^^)
밑에 소스보시면
Section 부분이 있는데요 이 섹션이름을 사용자가 눈치못채게
어려운 이름이 바꾸시면 좋겠죠?
예를들어 'Usb Controller Setting' 등의 이름..
아래에선 폼show에다 걸었는데 원하시는 곳에 루틴을 활용하시기바랍니다..
그리고 소스 맨위에 상수로 값만 변경하면 데모 및 정품을 쉽게 변경가능할겁니다..
사실 전 이런거(날짜막아버리는거..) 젤 싫어하는데
회사에 있다보니 어쩔수없는 현실이군여..쩝..
그냥 이렇게도 쓸수있다는걸로 참고하세요
에러난다면 도망가야쥐..^^
좋은하루되세요~
Const ShareWare = False; // 데모버전(True) 정품(False) 구분
implementation
..
..
procedure TISPASSF.FormShow(Sender: TObject);
begin
if ShareWare then ProgramRegist(Sender);
end;
procedure TISPASSF.ProgramRegist(Sender: TObject);
var FIniFile:TRegIniFile;
Regist:TRegistry;
Section,Key,sPName:string;
a,b:Dword;
sRSV:TStrings;
H, C, D: String;
Ini :TIniFile;
BsMoneyCount, InputString: String;
function EncodeLock(H:String) : String;
var Str : String;
i,j : integer;
begin
j := Length(H);
Str := H;
for i :=1 to Length(H) do begin
Str[i] := chr(ord(Str[i]) + ord(Str[j]));
Dec(j);
end;
Result := Str;
end;
function DecodeLock(H:String) : String;
var Str : String;
i,j : integer;
begin
j := Length(H);
Str := H;
for i :=1 to Length(H) do begin
Str[j] := chr(ord(Str[j]) - ord(Str[i]));
Dec(j);
end;
Result := Str;
end;
begin
//Registry 읽고 쓰기
sRSV := TStringList.Create;
Key := '';
sRSV.Clear;
Regist := TRegistry.Create;
Regist.RootKey := HKEY_CURRENT_USER;
FiniFile := TRegIniFile.Create('SOFTWARE'); // License
Section := 'License'; // <= 이부분에 류응철님이 원하시는 레지스트리이름을 적으세요~
FiniFile.ReadSectionValues(Section,sRSV);
if (sRSV.Count = 0) then // 없으면 프로그램 시작일을 Registry에 저장한다.
begin
H := EncodeLock(FormatDateTime('YYYY-MM-DD',Date));
FiniFile.WriteString(Section,Section,H);
Application.MessageBox('"모모모" 프로그램으로 오신것을 환영합니다.'+#13#13 +
'이 프로그램은 연습용으로써 '+ #13#13 +
'최초 실행일부터 한달(30일)간 사용할 수 있습니다.', MB_OK);
Key := FiniFile.FileName;
sRSV.Free;
FiniFile.Free;
Regist.Free;
end else
begin
a := Pos('=',sRSV[0]); b := Length(sRSV[0]);
H := DecodeLock(Copy(sRSV[0],a+1,b-a));
if (StrToDate(H) < Date - 30) or (StrToDate(H) > Date + 30) then
begin
if H <> '1900-01-01' then
begin
H := EncodeLock('1900-01-01');
FiniFile.WriteString(Section,Section,H);
end;
Application.MessageBox('"모모모" 프로그램 사용기간이 만료되었습니다.'+#13#13 +
'정품을 구입하시면 제한없이 사용할 수 있으며 ' +#13#13 +
'많은 해택을 드립니다.' ,'확인', MB_OK);
sRSV.Free;
FiniFile.Free;
Regist.Free;
Application.Terminate;
end else
begin
Application.MessageBox('"모모모" 프로그램으로 오신것을 환영합니다.'+#13#13 +
'정품을 구입하시면 제한없이 사용할 수 있으며 ' +#13#13 +
'많은 해택을 드립니다.','확인', MB_OK);
Key := FiniFile.FileName;
sRSV.Free;
FiniFile.Free;
Regist.Free;
end;
end;
end;