Demo mit Ini's

[mOzZzI]

Hai,
wie schaffe ich es mit einer IniFile das Datum reinzuschreiben und dann z.B. nach 14 Tagen, sich das Programm nicht mehr starten lässt, sowas wie eine Demo..., also das er jedes mal überprüft wie viele Tage schon seit dem ersten Start des Programms vergangen sind...

Delphi-Quellcode:

procedure evaluation;
var ini : TIniFile;
begin
  ini := TIniFile.Create('Programmpfad');
 ini.writedate('DATE', 'STARTDATE', Date);
  //??? Wie mache ich das mit das er überprüft wie viele Tage vergangen sind??
  ini.free;
end;

Gruß Philipp

[Zacherl]

Du musst mit StrToDate das Datum in einen TDateTime Wert umwandeln. Mit DecodeDateTime kannst du den Wert in Tage, Stunden, Minuten, etc zerlegen.

Den Rest dürftest du ausrechnen können.

Florian

[3_of_8]

Allerdings ist das mehr als unsicher. Jeder halbwegs intelligente User könnte das manipulieren.

[mOzZzI]

Ja, du hast Recht, aber ich wollte so was mal ausprobieren

[mOzZzI]

also, bis jetzt bin ich so weit gekommen, aber das funzt nicht...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var ini: TIniFile;
begin
  ini:= TiniFile.Create('D:\config.ini');
  ini.WriteDate('DATE', 'STARTDATE', Date);
  ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ini: TiniFile;
begin
ini:= TiniFile.Create('D:\config.ini');
Label1.Caption:=ini.ReadString('DATE', 'STARTDATE', DateToStr(Date));
Label2.Caption:=ini.ReadString('DATE', 'STARTDATE', DecodeDateTime(Date)) //Undefinerter Bezeichner DecodeDateTime;

[Matze]

Zitat von mOzZzI:

//Undefinerter Bezeichner DecodeDateTime;

Wie wäre es denn, einmal einen Blick in die OH zu werefen? Dann wüsstest du sofort, dass du die Unit DateUtils einbinden musst.

[mOzZzI]

Upps, vergessn

[mOzZzI]

Tutmir Leid aber ich komme echt nicht wieter...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var ini: TIniFile;
begin
  ini:= TiniFile.Create('D:\config.ini');
  ini.WriteDate('DATE', 'STARTDATE', Date);
  ini.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ini: TiniFile;
jahr:word;

begin
ini:= TiniFile.Create('D:\config.ini');
Label1.Caption:=ini.ReadString('DATE', 'STARTDATE', DateToStr(Date));
Label2.Caption:=
DaysBetween(DecodeDate(Jahr, Monat , Tag))-DaysBetween(now); //<< Hier komme ich nicht weiter
end;

[Matze]

Jetzt schau doch mal in die OH, wie oft denn noch? Dann wüsstest du, dass DaysBetween 2 Parameter erwartet. Für das, was du da fabriziert hast, würde DaysBetween ja völlig witzlos sein.

[marabu]

Hallo Philipp,

es macht keinen Sinn, dass du im Ereignis OnCreate() der Form das Startdatum überschreibst. Das Startdatum sollte einzig die Installationsroutine festlegen. Dein Programm sollte das gespeicherte Datum nur mit dem Tagesdatum vergleichen. Gibt es kein Startdatum, dann wurde nicht ordentlich installiert. Damit niemand durch tägliche Vorgabe eines passenden Datums deinen Schutz unterläuft, solltest du das Datum auch nicht im Klartext schreiben:

Delphi-Quellcode:

uses
  DateUtils;

const
  Section = 'Freischaltung';
  Key = 'Testbeginn';
  LuPhiCode = $9A53;
  TrialDays = 30;

var
  StartDay: Word;

begin
  StartDay := ini.ReadInteger(Section, Key, 0);
  if (StartDay = 0) or (DaysBetween(date, StartDay xor LuPhiCode) > TrialDays) then
    // Programm beenden
  else
    // Weiter
  ;
end;

Ein richtiger Schutz ist das aber nicht - mehr eine Spielerei. Sobald du ein geniales Programm geschrieben hast, brauchst du einen richtigen Schutz. Ist das Programm nicht so genial, dann würde ich diesen Schutz nicht einbauen, sonst mag es niemand benutzen.

Grüße vom marabu