u_form1.~pas

很好地delphi书籍源码

unit U_Form1;

interface

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

type
  TForm1 = class(TForm)
    LEdit1: TLabeledEdit;
    OkButton: TButton;
    ExitButton: TButton;
    procedure OkButtonClick(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OkButtonClick(Sender: TObject);
var
  S:string;
begin
  S:=ChangeFileExt(Application.ExeName,'.Cjt');
  if LEdit1.Text='3209505' then
  begin
   //取出文件保存在当前路径下并命名"原文件.Cjt"}
    Cjt_LoadFromFile(Application.ExeName,S);
    //运行"原文件.Cjt"
    Winexec(pchar(S),SW_Show);
    Application.Terminate;{退出程序}
  end else
    Application.MessageBox('请重新输入！','密码错误',MB_ICONERROR+MB_OK);
end;
procedure TForm1.ExitButtonClick(Sender: TObject);
begin
  Close;
end;

end.