unit Unit1;

interface

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


type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormClick(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    { Private declarations }
  public
   function GetExePath: String;
    { Public declarations }
    end;

var
  Form1: TForm1;
  username,unright,filename:string;


implementation

uses Unit2, Unit3;



{$R *.dfm}

function Tform1.GetExePath: String;
//該函數用于取得當前應用程序所在的路徑
begin
  Result:=ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\' then
    Result:=Result+'\';
end;


procedure TForm1.FormClick(Sender: TObject);
begin
 login.Show;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
login.ShowModal;
end;

end.