Trial!! Hvordan???

hvorfor ik bare lave en begrænsning så programmet kun kan køre til en bestemt dato.

{
    In your project's file (.dpr):
}

uses
  Forms, Sysutils, Dialogs,
  MyProgr in my_prog1.pas {Form1};

const
  email = 'my.mail@provider.xyz';
  homepage = 'http://www.myhomepage.com';

  // Limit the execution time to 04/21/2003.
 

  YearExp = 2003;
  MonthExp = 4;
  DayExp = 21;

function CheckDate(y, m, d: Integer): Boolean;
begin
  Result := True;
  if (Date > EncodeDate(y, m, d)) then
  begin
    ShowMessage('End of usage exceeded. Download a new'+
                'version at' + ^j + homepage+ ^j + ' or contact: ' + email);
  Result := False;
  // halt;
end;

end;


{$R *.RES}

begin
  if CheckDate(YearExp, MonthExp, DayExp) then
  begin
    Application.Initialize;
    Application.Title := 'Some Title';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;

end.

Det virker ikke rigtig. Compileren siger der er fejl i hvert fald to steder. Det jan være det er mig der bruger den forkert.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, MPlayer;
  MyProgr in my_prog1.pas {Form1}; FEJL HER
  const
  email = 'my.mail@provider.xyz';
  homepage = 'http://www.myhomepage.com';

  // Limit the execution time to 04/21/2003.
 

  YearExp = 2003;
  MonthExp = 4;
  DayExp = 21;

function CheckDate(y, m, d: Integer): Boolean;


type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image2: TImage;
    MediaPlayer1: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Result := True; FEJL HER
  if (Date > EncodeDate(y, m, d)) then
  begin
    ShowMessage('End of usage exceeded. Download a new'+
                'version at' + ^j + homepage+ ^j + ' or contact: ' + email);
  Result := False;
  // halt;
end;

end;


{$R *.RES}

begin
  if CheckDate(YearExp, MonthExp, DayExp) then
  begin
    Application.Initialize;
    Application.Title := 'Some Title';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;


begin
label1.Visible:=false;
label2.Visible:=false;
label3.Visible:=true;
image1.Visible:=true;
image2.Visible:=false;
end;

end.

det er fordi du ikke har kommet koden i din *.dpr fil
her er eksemlet som fører fint hos mig.

program Project1;

uses
Forms, Sysutils, Dialogs,
Unit1 in 'Unit1.pas' {Form1};

const
  email = 'xxxxxxxxxxx.dk';
  homepage = 'http://wwwxxxxxxxxx.dk';

  // Limit the execution time to 04/21/2003.


  YearExp = 2003;
  MonthExp = 1;
  DayExp = 21;

function CheckDate(y, m, d: Integer): Boolean;
begin
  Result := True;
  if (Date > EncodeDate(y, m, d)) then
  begin
    ShowMessage('Programmet er udløbet. Download en ny ' +
                'version hos' + ^j + homepage+ ^j + ' eller kontakt: ' + email);
  Result := False;
  Form1.Close;      // if date expired application close

  // halt;
end;

end;

du har indsat din kode i din unit1
du skal indsætte din kode i din *.dpr fil (project file)

JEg har lige åbnet min .dpr fil i notepad og er ved at indsætte

du benøver ikke at åbne den i notepad
gå til file/view/forms og vælg project

Ok nu fik jeg det til at virke i notepad. Tak for hjælpen