如何用DELPHI打开coreldraw的CDR文件，然后导出成JPG格式的图片，谢谢！(100分)

用OLE就行，但我不知道VBA怎么写！

录制宏啊

这是我录制的打开的导出JPG的宏：
Sub Macro1()
'
' Recorded 2008-6-2
'
' Description:
'
'
Dim doc1 As Document
Set doc1 = OpenDocument("C:/Documents and Settings/becky/桌面/Temp/001.cdr")
Dim expflt As ExportFilter
Set expflt = doc1.ExportBitmap("C:/Documents and Settings/becky/桌面/Temp/002.jpg", cdrJPEG, cdrAllPages, cdrRGBColorImage, 1873, 2402, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
With expflt
.Progressive = False
.Optimized = False
.SubFormat = 0
.Compression = 10
.Smoothing = 10
.Finish
End With
doc1.Close
End Sub

不知道用DELPHI怎么写啊？！！

建议使用 ImageEn控件。　里需好像有对 coreldraw 文件的支持。

你到以下地址去找找，可能找得到你需要的答案。
http://iinsnian.cnblogs.com/
http://del.cnblogs.com/
这两个地址里介绍了很多ＤＥＬＰＨＩ的技艺，不知道你的运气好不好。

现在已经可以打开CDR格式的文件了，就是不知道怎么导出或者导出的方法是什么：

procedure TForm1.Button1Click(Sender: TObject);
var
Draw: OleVariant;
begin
Draw := CreateOleObject('CorelDraw.Automation.12');
Draw.FileOpen('C:/Documents and Settings/becky/桌面/Temp/001.cdr');
//接下来应该是导出了，不知道怎么写
end;

以下是我通过CorelDraw录制的打开和导出的宏，不知道用DELPHI怎么用：
Sub Macro1()
Dim doc1 As Document
Set doc1 = OpenDocument("C:/Documents and Settings/becky/桌面/Temp/001.cdr")
Dim expflt As ExportFilter
Set expflt = doc1.ExportBitmap("C:/Documents and Settings/becky/桌面/Temp/001.jpg", cdrJPEG, cdrAllPages, cdrRGBColorImage, 1873, 2402, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
With expflt
.Progressive = False
.Optimized = False
.SubFormat = 0
.Compression = 10
.Smoothing = 10
.Finish
End With
doc1.Close
End Sub

接下来怎么处理，请高手们帮忙看看！