unit1.pas

这是天翼外挂的源代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, XPMenu, StdCtrls, BusinessSkinForm, jpeg,myini;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    XPMenu1: TXPMenu;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Edit1: TEdit;
    Edit2: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Button1: TButton;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Edit3: TEdit;
    Edit4: TEdit;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    ComboBox1: TComboBox;
    Button2: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Button3: TButton;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    StaticText13: TStaticText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form2.Enabled:=true;
  form1.Release;
end;

end.