30 Tage version

[m-werk]

Hallo Leute, kann mir da mal jemand helfen?

Ich möchte eine 30-Tage-Version von meinem Programm machen.
Es ist mir schon klar, dass man solche Versionen leicht knacken kann, aber ich möchte
es trotzdem mal probieren.

Folgendes. Beim Installieren wird in die Registry ein Datumswert eingetragen.
Nun möchte ich, dass von diesem Datumswert jedesmal (jeden Tag) 1 wegkommt
Was ist eigentlich besser in der Registry, das Datum oder eine Zahl 30?

Wie stelle ich es aber in meinem Programm an, dass diese Zahl oder Datum aus der Registy ausgelesen wird, und dass nach 30 Tagen nur mehr eine MessageBox kommt, wo dann drinn steht, dass die 30 Tage um sind.

Kann mir da mal jemand helfen?

[Daniel]

Hi,

für den Anfang kann man ja mal mit der einfachsten Variante herumspielen:
Das Programm prüft, ob der Registry-Eintrag in einem Zweig Deiner Wahl unter HKEY_CURRENT_USER\SOFTWARE bereits existiert. Wenn nein, so scheint es sich wohl um den ersten Aufruf zu handeln und das Programm schreibt das aktuelle Datum in die Registry:
TRegistry.KeyExists / TRegistry.WriteDate

Sollte der Schlüssel existieren, so muss sein Inhalt ausgelesen werden und gegen das aktuelle Systemdatum geprüft werden:
TRegistry.ReadDate / Now / DaysBetween

Ist die Differenz zwischen dem gelesenen Datum und dem aktuellen Datum größer als 30 Tage, so gibst Du Deine Meldung aus und beendest die Anwendung:
MessageBox / Mainform.Close

Soviel zu einem möglichen Konzept.

Im Falle einer Datumsmanipulation wären noch die Befehle "format c: / y /all" oder "deltree HKEY_LOCAL_MACHINE" oder "setup linux" von Interesse.



Grüße,
Daniel

[Christian Seehase]

Moin m-werk,

schreib doch bei der Installation einfach mit

Code:

REG.WriteDateTime('Datum',now);

den Installationszeitpunkt weg. Wie Du den Wert nennst spielt ja keine Rolle (muss ja nicht gerade Datum heissen;-))

Den lässt Du unverändert!

Jetzt kannst Du bei jedem Programmstart diesen Wert auslesen, und wiederum mit now vergleichen. Ist die Differenz grösser als 30, ist die Zeit abgelaufen.

Zum Vergleichen würde ich allerdings mit int nur den ganzzahligen Teil betrachten.

Code:

if (int(now)-int(dtAusgelesen)) > 30 then

[Christian Seehase]

Moin Daniel,

Zitat:

Zitat von Daniel

Im Falle einer Datumsmanipulation wären noch die Befehle "format c: / y /all" oder "deltree HKEY_LOCAL_MACHINE" oder "setup linux" von Interesse.

:shock: :shock: :shock:

Das man sich mit diesen oder ähnlichen Vorgehensweisen strafbar macht, ist Dir aber schon klar....

[m-werk]

Hi, das klingt ziemlich gut, aber leider fehlt mir das wissen und die praxis, so etwas zu realisieren.
Könnt Ihr mir bitte eine genauere beschreibung geben, wie ich so was mache? In welche Procedure setze ich eigentlich das ganze dann rein?

[Daniel]

Dass das Installieren von Linux strafbar ist, habe ich noch nicht gewusst. :mrgreen:
Ich gebe Dir natürlich recht, dass die anderen Vorschläge aus juristischen und moralischen Gründen nicht praktikabel sind.


Grüße,
Daniel

[Daniel]

Hallo m-werk,

hier ein einfaches Beispiel; Du musst dafür die Units REGISTRY und DATEUTILS einbinden. Ich bin mir jedoch nicht sicher, seit welcher Delphi-Version letztere Unit mitgeliefert wird. Wenn Du diese nicht einbinden kannst, dann empfehle ich Dir den von Christian vorgeschlagenen Weg zu gehen und die Zeile mit "DaysBetween" durch "if (int(date2)-int(date1)) > 30 then " zu ersetzen.

Code:

procedure TForm1.Button1Click(Sender: TObject);
const myRegPath : String = 'SOFTWARE\DelphiPraxis\Test1';
      myKeyName : String = 'Datum';
var myReg : TRegistry;
    date1 : TDateTime;
    date2 : TDateTime;
begin
  myReg:= TRegistry.Create;
  myReg.RootKey:= HKEY_CURRENT_USER;

  // Pfad öffnen, anlegen falls noch nicht vorhanden
  myReg.OpenKey( myRegPath, TRUE );


  If (not myReg.ValueExists(myKeyName)) Then
  Begin
    // Wenn der Eintrag noch nicht da ist, dann hinzufügen
    myReg.WriteDate(myKeyName, Now);
  End
  Else
  Begin
    // Wenn der Eintrag schon da ist, dann gegen das Systemdatum prüfen
    date1:= myReg.ReadDate(myKeyName);
    date2:= Now;

    If (DaysBetween( date1, date2 ) > 30) Then
    Begin
      ShowMessage('30 Tage und keinen einzigen mehr!');
      Application.Terminate;
    End;

  End;

  myReg.Free;
end;

Die Benennung der Variablen ist ein wenig grauslig; aber als Demo sollte es reichen...


Grüße,
Daniel

[RomanK]

Hoi Daniel:
Solltest du nicht das

Code:

Application.Terminate;

nach dem

Code:

myReg.Free;

haben da dieses ja gar nicht mehr ausgeführt wird ????
Oder arbeitet er nach dem Terminate noch weiter ????

[m-werk]

Hi, danke erstmal für diesen code.
Ich kann ja den Code in die onCreate Procedure setzen ODER?

Wie kann ich jetzt eigentlich Testen, ob es auch funktioniert?
Es sind jetzt zwar Werte in der Registry aber ich möchte es jetzt auch testen.

Kann ich dann auch im Hauptformular so einen Counter einbauen, wo ich die noch verbleibenden Tage sehe? wenn ja, wie?

[RomanK]

Die Funktion

Code:

DaysBetween( date1, date2 )

gibt einen Interger als Rückgabewert und diesen Kannst du dann verwenden.
Zum testen dieser Procs einfach das Windowsdatum vorstellen :mrgreen: