---

Hej,
er der en måde at begrænse hvor længe etprogram kan bruges. Jeg har forsøgt
med den kode, men det virker ikke.

vh
Harald



program XYZ;

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

const
YearExp = 2003;
MonthExp = 12;
DayExp = 31;

{$R *.RES}

function CheckDate(y, m, d: Integer): Boolean;
begin
Result := True;
if (Date > EncodeDate(y, m, d)) then
begin
ShowMessage('Programmet er udløbet. ');
// Result := False;
Form1.Close; // if date expired application close
// halt;
end;
end;

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

---

"Harald" <harald_thomsenATyahoo.com> wrote in message
news:3fda431b$0$70009$edfadb0f@dread12.news.tele.dk...
> Hej,
> er der en måde at begrænse hvor længe etprogram kan bruges. Jeg har
forsøgt
> med den kode, men det virker ikke.

if date>encodedate(2003,12,31) then close;

Dit program kalder ikke CheckDate, så selvfølgelig sker det ikke noget,
men princippet er OK.

---

mange tak,
det var vist over min sengetid

vh
harald

"Uffe Kousgaard" <look_at_www.routeware.dk> skrev i en meddelelse
news:3fda4c8a$0$30065$edfadb0f@dtext01.news.tele.dk...
> "Harald" <harald_thomsenATyahoo.com> wrote in message
> news:3fda431b$0$70009$edfadb0f@dread12.news.tele.dk...
> > Hej,
> > er der en måde at begrænse hvor længe etprogram kan bruges. Jeg har
> forsøgt
> > med den kode, men det virker ikke.
>
> if date>encodedate(2003,12,31) then close;
>
> Dit program kalder ikke CheckDate, så selvfølgelig sker det ikke noget,
> men princippet er OK.
>