Demo mit Ini's

[mOzZzI]

Danke marabu,
aber wo genau, binde ich das ein?

Ich will ja beim ersten Starten erstmal die ini schreiben, und dann überprüfen, wieviele Tage vergangen sind, nach dem ersten Start...

Gruß Philipp

[Khabarakh]

Zitat von mOzZzI:

Danke marabu,
aber wo genau, binde ich das ein?

Zeig doch mal _etwas_ Eigeninitiative. Wo wäre ein guter Ort für den Code, damit er ein einziges Mal und beim Start des Programmes aufgerufen wird?

[mOzZzI]

OnCreate?

[Waldteufel]

Tätärätäääää! Der Kandidat hat 100 Punkte!

[mOzZzI]

Zitat von Waldteufel:

Tätärätäääää! Der Kandidat hat 100 Punkte!

[Delphiturbo]

Was steckt in LuPhiCode ?

Ich habe den Code so eingebaut, bekomme ich aber immer das 30 Tage Trial vorbei !!!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DateUtils, StdCtrls, shellapi, IniFiles;
  const
  Section = 'Freischaltung';
  Key = 'Testbeginn';
  LuPhiCode = $9A53;
  TrialDays = 30;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ini: TiniFile;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  StartDay: Word;

begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'config.ini');
  StartDay := ini.ReadInteger(Section, Key, 0);
  if (StartDay = 0) or (DaysBetween(date, StartDay xor LuPhiCode) > TrialDays) then
   ShowMessage('30 Tage Trial vorbei') // Programm beenden
  else
   ShowMessage('Trial weiter');
   end; // Weiter

end.

Waran liegt das ?

[Garfield]

Zitat von Delphiturbo:

Was steckt in LuPhiCode ?

Das ist nur eine Konstante:

Zitat von Delphiturbo:

Delphi-Quellcode:

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

Wenn Du in der INI keinen "StartDay" eingetragen hast ist die Trial wegen StartDay=0 immer abgelaufen.

[mkinzler]

Eine Sicherung einer Demoversion per ini-datei ist nicht sehr sicher; man könnte so weit gehen zu sagen das deine Mühen umsonst sind
http://www.delphipraxis.net/internal...t.php?t=121822

[Delphiturbo]

Zitat von Garfield:

Wenn Du in der INI keinen "StartDay" eingetragen hast ist die Trial wegen StartDay=0 immer abgelaufen.

Das habe ich eingetragen
Und so sieht meine config.ini aus:

Code:

[DATE]
STARTDAY=28.10.2007

[NormanNG]

Hi,

Zitat:

STARTDAY=28.10.2007

das wird so nichts werden...

Die Prüfung liest das Startdate als (kodierten) Integer ein. Du musst eine Art "Installationsprogramm" schreiben, in dem der INI-Eintrag einmalig (kodiert) gesetzt wird...