1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, VGCore_TLB;
 8 
 9 type
10   TForm1 = class(TForm)
11     Button1: TButton;
12     Button2: TButton;
13   private
14     { Private declarations }
15   public
16     { Public declarations }
17   end; 
18 
19 //定义全局变量
20 var
21 　m_pApp: IVGApplication;
22 　Form1: TForm1;
23 
24 implementation
25 
26 {$R *.dfm}
27 
28 uses
29 　ComObj; //Delphi开发CorelDRAW利用的是COM编程，在这里需要添加COM对象
30  
31 //打开CDR窗口
32 procedure TForm1.Button1Click(Sender: TObject);
33 begin
34   m_pApp := CreateOLEObject('CorelDRAW.Application.12') as IVGApplication;
35   //在这里我们利用 CreateOLEObjec 函数来创建新的 CorelDRAW，从而实现打开 CorelDRAW。
36   m_pApp.Visible := True;
37   //创建了 CorelDRAW 需要对 CorelDRAW 的可见性进行定义，如果没有这一条，CorelDRAW 将不以窗口形式显现。
38 end;
39 
40 //关闭CorelDRAW窗口
41 procedure TForm1.Button2Click(Sender: TObject);
42 begin
43   try
44     m_pApp := GetActiveOleObject('CorelDRAW.Application.12') as IVGApplication;
45 　　//获得活动的CorelDRAW对象
46     m_pApp.Quit;
47   except
48     MessageBox(Handle, 'CorelDRAW没有运行', '提示', MB_OK + MB_iconinformation);
49   end;
50 end;
51 
52 end.