unit warn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi;

type
  Twarnform = class(TForm)
    OK: TButton;
    maintext: TLabel;
    remember: TCheckBox;
    sectext: TLabel;
    hyperlink: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure hyperlinkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  warnform: Twarnform;
  aurl : string;
  ww : boolean;

function showwarning(caption : string; main : string;secondary : string;urltext : string;url : string;w : boolean) : boolean; export;

implementation
uses main;

{$R *.DFM}

function showwarning(caption : string; main : string;secondary : string;urltext : string;url : string;w : boolean) : boolean; export;
begin
warnform:=twarnform.create(application);
  try
    warnform.caption:=caption;
    warnform.maintext.caption:=main;
    warnform.sectext.caption:=secondary;
    warnform.hyperlink.caption:=urltext;
    aurl:=url;
    ww:=w;
    warnform.Showmodal;
    finally
       result:=not warnform.remember.checked;
      warnform.Free;
  end;
end;



procedure Twarnform.FormActivate(Sender: TObject);
begin
if aurl='' then hyperlink.visible:=false;
if ww=false then remember.visible:=false else remember.visible:=true;
end;

procedure Twarnform.hyperlinkClick(Sender: TObject);
begin
ShellExecute (0, nil, pchar(aurl), nil, nil, SW_SHOWNORMAL);
end;

end.