Udløbs dato på program

lytter lige med (hvad kan dit program)

Det er et Web Writer program... Som der jo findes så mange af c:)

Men vi skal bruge det i forbindelse med den danske ThinkQuest konkurrence og vi er lidt bagefter i vores tidsplan!! Så vi har hårdt brug for hjælp (Og flere BETA-testere!)

En meget nem løsning ville være noget lign. nedenstående, men det er jo ret hardcodet *GG*

  if DateToStr(Date) > \'25-11-01\' then
    showmessage(\'Udløbet\')
  else
    showmessage(\'Virker endnu\');

Snowball

ossi> vil gerne være beta tester :-)

hvorfor laver du den ikke bare som en 30 dage prøve version

ups afvis lige mit svar

snowball> hvordan laver man den til et 30 dages prøver version

Maxium >> Det er jo også det jeg vil på en måde... Vi fastsætter en dato for hvornår der kommer en ny BETA og bliver den dato overskredet så kommet der en dialog boks og programmet lukkes...

Jeg sender et link til noget BETA sjov lige om lidt... (på email)

må jeg være betatester

ossi: Så kan du vel egentlig godt bruge min metode nu når det altid er en bestemt dato den skal udløbe og altså ikke 10 dage efter man har installeret den !? *S*

Snowball

det stykke kode fra snowball ser kun ud til at lave en message ikke distable dit program efter 25-11-01

Nej, men det kan jeg godt selv klare! Tak c:)

maximux: Nej ikke som det er der, men det var bare for at vise princippet i det. KAn da godt lige hurtigt lave den lukker programmet ;)

Snowball

  if DateToStr(Date) > \'18-11-01\' then begin
    showmessage(\'Udløbet\');
    Application.Terminate;
  end
  else
    showmessage(\'Virker endnu\');

;)

Snowball

Snowball >> Vil du ikke have point?!

Ja, det er den samme kode jeg bruger!!

Der manglede bare den der Terminate... c:)

Showball >> Lav lige et svar!!

snowball> med det stykke kode kan man jo bare skruge tilbage i tiden så virker programmet jo igen (kontakt mig lige på icq: 133378557)

Kommer nu :)

Snowball

maxium: Ja det er jeg klar over, men som jeg skrev var det jo også en meget simpel måde at løse det på. Hvis det skal være mere sikkert, så kan man jo bar skrive en krypteret dato et mærkeligt sted i registreringsdatabasen og så læse/dekryptere det når programmet starter ;)

Snowball

Det er jeg faktisk lige glad med!! Men det kunne jeg nu også godt selv fikse via noget reg_sjov...

Men kan du komme med en komplet løsning så... c:)

ossi: Tjooo, men det ta\'r lige lidt mere end 2 min at bikse sammen ! *GG*

Snowball

Kan du lave det og så sende til om et par timer?? Jeg er til net-party og går først hjem klokken 12:00!!

Tjooo, skal jo lave et eller andet, så det kan jeg da godt lige prøve og bikse sammen :)

Snowball

Sådan! Det tog lige lidt længere tid en beregnet da jeg lidt skulle finde en encrypt/decrypt funktion der var til at ha\' med og gøre :)

Du kan hente et færdig eksempel her:

http://home1.inet.tele.dk/j-cgeert/udloeb.zip

Hvis du ikke bruger Delphi 6, husk lige og fjern Variants under Uses da du ellers vil få en fejl !

Koden skal selvfølgelig lige tilpasses lidt (hvor i reg.DB\'en den skal gemme/hente dato\'en!) men det skulle være lige til at ændre !

Hvis du er i tvivl om noget, så bare spørg\' ;)

Snowball