MSWINDOWS
WIN32
LINUX
KYLIX
CLR
VSNET
CONSOLE
DEBUG
RELEASE
PDEBUGS
UNICODE
UNICODESTRING

begin
{$IFDEF VER200}
ShowMessage('这是 Delphi 2009');
{$ENDIF}
{$IF DEFINED(VER200)}
ShowMessage('这是 Delphi 2009');
{$IFEND}
end;

begin
{$IFNDEF VER150}
ShowMessage('这不是 Delphi 7');
{$ENDIF}
{$IF NOT DEFINED(VER150)}
ShowMessage('这不是 Delphi 7');
{$IFEND}
end;

begin
{$DEFINE AAA}
{$DEFINE BBB}
{$IF DEFINED(AAA) OR DEFINED(BBB)}
ShowMessage('条件标识符 AAA 和 BBB 其中一个定义了');
{$IFEND}
{$IF DEFINED(AAA) AND DEFINED(BBB)}
ShowMessage('条件标识符 AAA 和 BBB 都定义了');
{$IFEND}
end;

begin
ShowMessage(FloatToStr(CompilerVersion)); {在 Delphi 2009 中, CompilerVersion = 20.0}
{$IF CompilerVersion >= 17.0}
ShowMessage('这是 Delphi 2005 或以上的版本');
{$IFEND}
end;

begin
{$IFOPT B+}
ShowMessage('指令 B 已打开');
{$ELSE}
ShowMessage('指令 B 已关闭');
{$ENDIF}
{$B+}
{$IFOPT B+}
ShowMessage('Ok!');
{$ENDIF}
end;

begin
{$IFDEF MSWINDOWS}
ShowMessage('Windows');
{$ENDIF}
{$IFDEF LINUX}
ShowMessage('Linux');
{$ENDIF}
end;

begin
{$DEFINE WANYI}
{$IFDEF WanYi}
ShowMessage('标识符 WanYi 已定义');
{$ELSE}
ShowMessage('标识符 WanYi 未定义');
{$ENDIF}
end;

begin
{$DEFINE WANYI}
{$IFDEF WANYI}
ShowMessage('确认标识符 WanYi 是否定义');
{$ENDIF}
{$UNDEF WANYI}
{$IFDEF WANYI}
ShowMessage('再次确认标识符 WanYi 是否定义');
{$ENDIF}
end;

begin
{.$DEFINE WANYI}
{$IFDEF WANYI}
ShowMessage('确认标识符 WanYi 是否定义');
{$ENDIF}
{.$UNDEF WANYI}
{$IFDEF WANYI}
ShowMessage('再次确认标识符 WanYi 是否定义');
{$ENDIF}
end;

begin
{$IFDEF DEBUG}
ShowMessage('调试模式');
{$ENDIF}
{$IFDEF RELEASE}
ShowMessage('发布模式');
{$ENDIF}
end;

begin
SystemParametersInfo(SPI_GETFLATMENU, 0, {$IFNDEF CLR}@{$ENDIF}FlatMenus, 0);
end;

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
{$WARN SYMBOL_DEPRECATED ON}
{$WARN SYMBOL_LIBRARY ON}
{$WARN SYMBOL_PLATFORM ON}
{$WARN SYMBOL_EXPERIMENTAL ON}
{$WARN UNIT_LIBRARY ON}
{$WARN UNIT_PLATFORM ON}
{$WARN UNIT_DEPRECATED ON}
{$WARN UNIT_EXPERIMENTAL ON}
{$WARN HRESULT_COMPAT ON}
{$WARN HIDING_MEMBER ON}
{$WARN HIDDEN_VIRTUAL ON}
{$WARN GARBAGE ON}
{$WARN BOUNDS_ERROR ON}
{$WARN ZERO_NIL_COMPAT ON}
{$WARN STRING_CONST_TRUNCED ON}
{$WARN FOR_LOOP_VAR_VARPAR ON}
{$WARN TYPED_CONST_VARPAR ON}
{$WARN ASG_TO_TYPED_CONST ON}
{$WARN CASE_LABEL_RANGE ON}
{$WARN FOR_VARIABLE ON}
{$WARN CONSTRUCTING_ABSTRACT ON}
{$WARN COMPARISON_FALSE ON}
{$WARN COMPARISON_TRUE ON}
{$WARN COMPARING_SIGNED_UNSIGNED ON}
{$WARN COMBINING_SIGNED_UNSIGNED ON}
{$WARN UNSUPPORTED_CONSTRUCT ON}
{$WARN FILE_OPEN ON}
{$WARN FILE_OPEN_UNITSRC ON}
{$WARN BAD_GLOBAL_SYMBOL ON}
{$WARN DUPLICATE_CTOR_DTOR ON}
{$WARN INVALID_DIRECTIVE ON}
{$WARN PACKAGE_NO_LINK ON}
{$WARN PACKAGED_THREADVAR ON}
{$WARN IMPLICIT_IMPORT ON}
{$WARN HPPEMIT_IGNORED ON}
{$WARN NO_RETVAL ON}
{$WARN USE_BEFORE_DEF ON}
{$WARN FOR_LOOP_VAR_UNDEF ON}
{$WARN UNIT_NAME_MISMATCH ON}
{$WARN NO_CFG_FILE_FOUND ON}
{$WARN IMPLICIT_VARIANTS ON}
{$WARN UNICODE_TO_LOCALE ON}
{$WARN LOCALE_TO_UNICODE ON}
{$WARN IMAGEBASE_MULTIPLE ON}
{$WARN SUSPICIOUS_TYPECAST ON}
{$WARN PRIVATE_PROPACCESSOR ON}
{$WARN UNSAFE_TYPE OFF}
{$WARN UNSAFE_CODE OFF}
{$WARN UNSAFE_CAST OFF}
{$WARN OPTION_TRUNCATED ON}
{$WARN WIDECHAR_REDUCED ON}
{$WARN DUPLICATES_IGNORED ON}
{$WARN UNIT_INIT_SEQ ON}
{$WARN LOCAL_PINVOKE ON}
{$WARN MESSAGE_DIRECTIVE ON}
{$WARN TYPEINFO_IMPLICITLY_ADDED ON}
{$WARN RLINK_WARNING ON}
{$WARN IMPLICIT_STRING_CAST ON}
{$WARN IMPLICIT_STRING_CAST_LOSS ON}
{$WARN EXPLICIT_STRING_CAST OFF}
{$WARN EXPLICIT_STRING_CAST_LOSS OFF}
{$WARN CVT_WCHAR_TO_ACHAR OFF}
{$WARN CVT_NARROWING_STRING_LOST OFF}
{$WARN CVT_ACHAR_TO_WCHAR OFF}
{$WARN CVT_WIDENING_STRING_LOST OFF}
{$WARN XML_WHITESPACE_NOT_ALLOWED ON}
{$WARN XML_UNKNOWN_ENTITY ON}
{$WARN XML_INVALID_NAME_START ON}
{$WARN XML_INVALID_NAME ON}
{$WARN XML_EXPECTED_CHARACTER ON}
{$WARN XML_CREF_NO_RESOLVE ON}
{$WARN XML_NO_PARM ON}
{$WARN XML_NO_MATCHING_PARM ON}

{$R *.dfm}
//圆角矩形
procedure DrawRndRectRegion(hWnd: HWND; Rect: TRect);
var
rgn : HRGN;
begin
rgn := CreateRoundRectRgn(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom, 30, 30);
SetWindowRgn(hWnd, rgn, True);
end;

//椭圆1
procedure DrawEllipticRegion(hWnd: HWND; Rect: TRect); overload;
var
rgn : HRGN;
begin
rgn := CreateEllipticRgn(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
SetWindowRgn(hWnd, rgn, True);
end;

//椭圆2
procedure DrawEllipticRegion(hWnd: HWND); overload;
var
rgn : HRGN;
myBrush, myDC : Longint ;
begin
myBrush := CreateSolidBrush(clRed );
myDC := GetDC(hWnd);
BeginPath (myDC) ;
SelectObject(myDC, mybrush);
Ellipse(myDC, 100, 100, 510, 360);
DeleteObject(mybrush);
EndPath (myDC);
rgn := PathToRegion(mydc);
SetWindowRgn(hWnd, rgn, True);
end;

//多边形
procedure DrawPolygonRegion(hWnd: HWND; Rect: TRect; NumPoints: Integer; IsStar: Boolean);
const
RadConvert = PI/180;
Degrees = 360;
MaxLines = 100;
var
rgn : HRGN;
x, y, xCenter, yCenter, radius, pts, I : Integer;
angle, rotation: Extended;
arPts : Array[0..MaxLines] of TPoint;
begin
xCenter := (Rect.Right - Rect.Left) div 2;
yCenter := (Rect.Bottom - Rect.Top) div 2;
if IsStar then begin
rotation := Degrees/(2*NumPoints);
pts := 2 * NumPoints;
end else begin
rotation := Degrees/NumPoints; //得到每个顶点的度数
pts := NumPoints ;
end;
radius := yCenter;
for I := 0 to pts - 1 do begin
if IsStar then
   if (I mod 2) = 0 then
    radius := Round(radius/2)
   else
    radius := yCenter;
angle := ((I * rotation) + 90) * RadConvert;
x := xCenter + Round(cos(angle) * radius);
y := yCenter - Round(sin(angle) * radius);
arPts[I].X := x;
arPts[I].Y := y;
end;
rgn := CreatePolygonRgn(arPts, pts, WINDING);
SetWindowRgn(hWnd, rgn, True);
end;

//汉字
procedure SetRgn_Chs(hWnd: HWND; ACanvas : TCanvas; AChs: string);
var
rgn : HRGN;
begin
BeginPath(ACanvas.Handle);
SetBkMode( ACanvas.Handle, TRANSPARENT );
ACanvas.Font.Name := '宋体';
ACanvas.Font.Size := 60;
ACanvas.TextOut( 0, 10, AChs);
EndPath(ACanvas.Handle);
rgn := PathToRegion(ACanvas.Handle);
SetWindowRgn(hWnd, rgn, True );
end;

注:（1）计算机职业英语（一级）在北京、天津、辽宁、安徽、湖北、湖南等省市开考。
（2）四级三个科目考试仍只有笔试，上机考核要求在笔试中体现。
软件变化
所有上机考试科目均在Windows XP环境下进行（考试机）。一级MS Office及一级B两个科目的上机考试使用MS Office2003替代MS Office2000；二级Access数据库程序设计科目的上机考试使用Access2003。

1.微型计算机最害怕的是灰尘和静电.
2.计正常工作15-35度、低15可能引起磁盘读写错误、高35影响机内电子元件正常工作.
3.在多媒体技术中，语言编码、文本编码、图像编码属于表示媒体.
4.多媒体电脑的最重要特点是集成性和交互性.
5.多媒体计算机系统一般由多媒体计算机硬件系统和多媒体计算机软件系统组成。
6.磁盘容量=磁道数 X 扇区数 X 扇区内字节数 X 面数 X 磁盘片数.
Cache的含义是高速缓冲存储器、设置高速缓冲存储器有利于提高计算机运行速度.
7.直接受CPU控制的存储器 在CPU中集成了高速缓冲存储器（Cache)，这样CPU就可直接从Cache中存取数据了.
8.Rom掉电后数据不会丢失
9.常用打印机的两种类型：击打式打印机和激光打印机
10.在安装打印机驱动程序时，一般选择的端口为LPT1端口。COM1、COM2端口连接的是鼠标和键盘。
11.针式打印机术语中，24针是指打印头内有24根针.
12.PROM的中文含义是可编程只读存储器.
13.存储器中，内存储器存取速度最快，存取周期最短.
14.运算器主要由一个加法器、若干个寄存器和一些控制线路组成.
15.主频是指CPU的时钟频率（1秒钟内发出的脉冲数），以兆赫兹（MHZ）为单位.
16.操作系统包括五大功能模块：处理器管理、作业管理、存储器管理、设备管理、文件管理.
17.语言编译软件按分类来看属于系统软件.
18. 一条指令必须包括操作码和地址码两部分，操作码指出该指令完成操作的类型，地址码指出参与操作的数据和操作结果存放的位置.
19.汉字国标码规定了6763个汉字代码、其中一级常用字、模拟计算机、混合计算机三类
世界上公认的第一台计算机是数字积分计算机ENIAC
20.Windows2000操作系统是单用户多任务系统.

1.WORD内的格式化分为字符、段落和页面格式化3类.
2.从系统的功能来看，计算机网络主要由资源子网和通信子网组成。

Delphi键盘按键伪码

用法：if key = chr(VK_RETURN) then...

常数名称                          十六进制值          十进制值     对应按键

VK_LBUTTON                       01          1        鼠标的左键

VK_RBUTTON                       02          2        鼠标的右键

VK-CANCEL                        03          3        Ctrl+Break(通常不需要处理)

VK_MBUTTON                       04          4        鼠标的中键（三按键鼠标)

VK_BACK                          08          8        Backspace键

VK_TAB                            09          9        Tab键

VK_CLEAR                         0C          12       Clear键（Num Lock关闭时的数字键盘5）

VK_RETURN                        0D          13       Enter键

VK_SHIFT                         10          16       Shift键

VK_CONTROL                       11          17       Ctrl键

VK_MENU                          12          18       Alt键

VK_PAUSE                         13          19       Pause键

VK_CAPITAL                       14          20       Caps Lock键

VK_ESCAPE                        1B          27      Ese键

VK_SPACE                         20          32       Spacebar键

VK_PRIOR                         21          33       Page Up键

VK_NEXT                          22          34       Page Domw键

VK_END                            23          35       End键

VK_HOME                          24          36       Home键

VK_LEFT                          25          37       LEFT ARROW 键(←)

VK_UP                             26          38       UP ARROW键(↑)

VK_RIGHT                         27          39       RIGHT ARROW键(→)

VK_DOWN                          28          40       DOWN ARROW键(↓)

VK_Select                        29          41       Select键

VK_PRINT                         2A          42      

VK_EXECUTE                       2B          43       EXECUTE键

VK_SNAPSHOT                      2C          44       Print Screen键（抓屏）

VK_Insert                        2D          45       Ins键(Num Lock关闭时的数字键盘0)

VK_Delete                        2E          46       Del键(Num Lock关闭时的数字键盘.)

VK_HELP                          2F          47       Help键

VK_0                              30          48       0键

VK_1                              31          49       1键

VK_2                              32          50       2键

VK_3                              33          51       3键

VK_4                              34          52       4键

VK_5                              35          53       5键

VK_6                              36          54       6键

VK_7                              37          55       7键

VK_8                              38          56       8键

VK_9                              39          57       9键

VK_A                              41          65       A键

VK_B                              42          66       B键

VK_C                              43          67       C键

VK_D                              44          68       D键

VK_E                              45          69       E键

VK_F                              46          70       F键

VK_G                              47          71       G键

VK_H                              48          72       H键

VK_I                              49          73       I键

VK_J                              4A          74       J键

VK_K                              4B          75       K键

VK_L                              4C          76       L键

VK_M                              4D          77       M键

VK_N                              4E          78       N键

VK_O                              4F          79       O键

VK_P                              50          80       P键

VK_Q                              51          81       Q键

VK_R                              52          82       R键

VK_S                              53          83       S键

VK_T                              54          84       T键

VK_U                              55          85       U键

VK_V                              56          86       V键

VK_W                              57          87       W键

VK_X                              58          88       X键

VK_Y                              59          89       Y键

VK_Z                              5A          90       Z键

VK_NUMPAD0                       60          96       数字键0键

VK_NUMPAD1                       61          97       数字键1键

VK_NUMPAD2                       62          98       数字键2键

VK_NUMPAD3                       62          99       数字键3键

VK_NUMPAD4                       64          100      数字键4键

VK_NUMPAD5                       65          101      数字键5键

VK_NUMPAD6                       66          102      数字键6键

VK_NUMPAD7                       67          103      数字键7键

VK_NUMPAD8                       68          104      数字键8键

VK_NUMPAD9                       69          105      数字键9键

VK_MULTIPLY                      6A          106      数字键盘上的*键

VK_ADD                            6B          107      数字键盘上的+键

VK_SEPARATOR                     6C          108      Separator键

VK_SUBTRACT                      6D          109      数字键盘上的-键

VK_DECIMAL                       6E          110      数字键盘上的.键

VK_DIVIDE                        6F          111      数字键盘上的/键

VK_F1                             70          112      F1键

VK_F2                             71          113      F2键

VK_F3                             72          114      F3键

VK_F4                             73          115      F4键

VK_F5                             74          116      F5键

VK_F6                             75          117      F6键

VK_F7                             76          118      F7键

VK_F8                             77          119      F8键

VK_F9                             78          120      F9键

VK_F10                            79          121      F10键

VK_F11                            7A          122      F11键

VK_F12                            7B          123      F12键

VK_NUMLOCK                       90          144      Num Lock 键

VK_SCROLL                        91          145      Scroll Lock键

上面没有提到的：（都在大键盘）                     

VK_LWIN                                      91       左win键

VK_RWIN                                      92       右win键

VK_APPS                                      93       右Ctrl左边键，点击相当于点击鼠标右键，会弹出快捷菜单

                                               186      ;(分号)

                                               187      =键

                                               188      ,键(逗号)

                                               189      -键(减号)

                                               190      .键(句号)

                                               191      /键

                                               192      `键(Esc下面)

                                               219      [键

                                               220      \键

                                               221      ]键

                                               222      '键(引号)

二、实数类型
类型   所点字节数   取值范围
Real       6        ±2.9×10的负39次方到1.7×10的38次方
Single     4        ±1.1×10的负45次方到1.1×10的38次方
double     8        ±5.0×10的负324次方到1.7×10的308次方
extended 10        ±3.4×10的负4932次方到1.1×10的4932次方
Comp       8         -263-262

三、字符类型
字符类 所点字节数 容纳字符范围
ansichar    1      一个ASCii字符
widechar    2      一个单代码字符
Char        1      一个ASCII字符

四、字符串类型
类型        容纳类型 是否以空字节结束 长度范围
shortstring   Char         否           255
ansistring    Char        允许         约3GB
string        Char        不限        255或3GB
widestring widechar      允许         约1.5GB

五、布尔类型
类型      范围 所点字节数
bool       字      2
boolean 一字节    1
bytebool 字节     1
wordbool   字      2
longbool 双字节    4

//长字符串 AnsiString; 在当前版本(2007)中的默认状态下, String 就是 AnsiString
var
str: AnsiString;
begin
str := '万一';
ShowMessage(IntToStr(Length(str))); {长度是: 4}
end;

//宽字符串 WideString (效率不及 AnsiString)
var
str: WideString;
begin
str := '万一';
ShowMessage(IntToStr(Length(str))); {长度是: 2}
end;

//定长字符串
var
str1: String[6]; {指定大小不能超过 255}
str2: String[100];
begin
{少给了也会占那些内存}
str1 := '万一';
ShowMessage(str1);                   {万一}
ShowMessage(IntToStr(Length(str1))); {4; 这是字符串的长度}
ShowMessage(IntToStr(SizeOf(str1))); {7; 这是占内存大小}

{多给了会被截断}
str1 := '万一的 Delphi 博客';
ShowMessage(str1);                   {万一的}
ShowMessage(IntToStr(Length(str1))); {6; 这是实际保存的字符串长度}
ShowMessage(IntToStr(SizeOf(str1))); {7; 这是占内存大小}

{问题: 不是声明大小为 6 吗? 怎么 SizeOf 是 7 ? }
{因为定长字符串会多出一个首字节来记忆字符串的实际长度}

{举例说明, 如果给 str2 按如下赋值, 那它的首字节(str2[0])肯定储存着字符 'A'}
str2 := 'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii'; {65个}
ShowMessage(str2[0]);                {A}
ShowMessage(IntToStr(Ord(str2[0]))); {65; 这是 'A' 在 ASCII 序列中的序号, 用的就是它}

{那以后可以用 Ord(str2[0]) 来代替 Length 判断字符串的长度吗? }
{对定长字符串是可以的; 不但能读取, 还可以像 SetLength 一样设置}
end;

//ShortString; 它相当于 String[255]
var
str: ShortString;
begin
str := '万一的 Delphi 博客';
ShowMessage(str);                   {万一的 Delphi 博客}
ShowMessage(IntToStr(SizeOf(str))); {256; 这是大小}
ShowMessage(IntToStr(Length(str))); {18 ; 这是实际长度}
ShowMessage(IntToStr(Ord(str[0]))); {18 ; 这是从首字节中取出的长度}
end;

//单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大小)
var
  c: Char; {Char 类型的取值范围是: #0..#255, 用十六进制表示是: #$0..#$FF}
begin
  {用十进制方式赋值:}
  c := #65;
  ShowMessage(c); {A}

  {用十六进制方式赋值:}
  c := #$41;
  ShowMessage(c); {A}

  {用 Chr 函数代替 # 符号}
  c := Chr(65);
  ShowMessage(c); {A}
  c := Chr($41);
  ShowMessage(c); {A}

  {Char 长度当然会是 1}
  ShowMessage(IntToStr(Length(c))); {1}

  {Char、AnsiChar 允许这样方便地赋值(也就是和 1 字节长度的字符串是兼容的):}
  c := 'B';
  ShowMessage(c); {B}
end;


//UniCode 字符 WideChar; 和 AnsiChar 不同, WideChar 是占 2 字节大小.
var
  c: WideChar; {WideChar 的取值范围是: #0..#65535, 用十六进制表示是: #$0..#$FFFF}
begin
  {WideChar 兼容了 AnsiChar 的 #0..#255; 但占用了 2 字节大小}
  c := #65;
  ShowMessage(c); {A}
  ShowMessage(IntToStr(Length(c))); {1; 这是字符长度}
  ShowMessage(IntToStr(SizeOf(c))); {2; 但占用 2 个字节}

  {用十六进制赋值}
  c := #$4E07;
  ShowMessage(c); {万}
  ShowMessage(IntToStr(Length(c))); {1; 这是字符长度}
  ShowMessage(IntToStr(SizeOf(c))); {2; 但占用 2 个字节}

  {用十进制赋值}
  c := #19975;
  ShowMessage(c); {万}

  {如果不超出 #255 的范围是可以直接赋值的}
  c := 'B';
  ShowMessage(c); {万}

  {这样不行}
  //c := '万'; {这是 Delphi 的支持问题, 估计 Delphi 2008 应该可以解决}

  {可以这样变通一下:}
  c := WideString('万')[1];
  ShowMessage(c); {万}

  {用 WideChar 的方式显示我的名字}
  ShowMessage(#19975#19968);    {万一}
  ShowMessage(#19975 + #19968); {万一}
  ShowMessage(#$4e07#$4e00);    {万一}
end;


//字符指针 PChar、PAnsiChar; 在当前版本(2007)中它们没有区别.
var
  p: PChar;
  str: string;
begin
  {可以给 PChar 直接赋予字符串常量}
  p := '万一';
  ShowMessage(p);                   {万一}
  ShowMessage(IntToStr(Length(p))); {4}

  {给变量值需要转换}
  str := '万一的 Delphi 博客';
  p := PChar(str); {转换}
  ShowMessage(p);                   {万一的 Delphi 博客}
  ShowMessage(IntToStr(Length(p))); {18}
end;


//宽字符指针 PWideChar
var
  p: PWideChar;
  str: WideString; {注意这里不是 String}
begin
  {可以给 PWideChar 直接赋予字符串常量}
  p := '万一';
  ShowMessage(p);                   {万一}
  ShowMessage(IntToStr(Length(p))); {2}

  {给变量值需要转换}
  str := '万一的 Delphi 博客';
  p := PWideChar(str); {转换}
  ShowMessage(p);                   {万一的 Delphi 博客}
  ShowMessage(IntToStr(Length(p))); {13}
end;

唉~: 代码着色在这里又出现问题, 不过现在没心情修改了, 以后再说吧.

procedure TForm1.SaveToEx1Click(Sender: TObject);
var
   ExcelApp,xlSheet : Variant;
   i,j: integer;
   FileNM : string;
begin
   try
     ExcelApp := CreateOleObject('Excel.Application');
     xlsheet := CreateOleObject('Excel.Sheet');

   Except
     ShowMessage('請檢查您的機器有沒有安裝Excel!');
     ExcelApp.Quit;
     ExcelApp := Unassigned;
   end;

   try
      xlSheet := ExcelApp.WorkBooks.Add;

     for i := 1   to StringGrid1.ColCount do
     begin
       for j := 1 to StringGrid1.RowCount do
       xlSheet.WorkSheets[1].Cells[j, i] := StringGrid1.Cells[i - 1,j - 1];
     end;
     if SaveDialog1.Execute then
       FileNM := SaveDialog1.FileName;
     xlSheet.SaveAs(FileNm);
     ShowMessage('導出數據完成!');
   finally
     xlSheet.Close;
     ExcelApp.Quit;
     ExcelApp := UnAssigned;
   end;
end;

http://hi.baidu.com/yueyun889/blog/item/0dd9848fc8dfcaf8503d9275.html