unit1.pas

飞思在线《Delphi7技术手册》配书源代码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, WordXP, ExcelXP;

type
  TfrmExcel = class(TForm)
    BtnBeginExcel: TButton;
    BtnEndExcel: TButton;
    BtnVisible: TButton;
    ExcelApp: TExcelApplication;
    procedure BtnBeginExcelClick(Sender: TObject);
    procedure BtnEndExcelClick(Sender: TObject);
    procedure BtnVisibleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExcel: TfrmExcel;

implementation

{$R *.dfm}

procedure TfrmExcel.BtnBeginExcelClick(Sender: TObject);
begin
  ExcelApp.Connect;
end;

procedure TfrmExcel.BtnEndExcelClick(Sender: TObject);
begin
  ExcelApp.Disconnect;
  ExcelApp.Quit;      
end;

procedure TfrmExcel.BtnVisibleClick(Sender: TObject);
begin
  ExcelApp.Visible[0]:=true;
end;

end.