delphiword另存為

⑴ 怎麼vba實現word表格批量轉為excel

註：vba偶並不太熟（偶一般是用c#和delphi的）,VBA只是稍有了解，以下代碼大部分是偶google到的內容拼出來的。。。。。

如下，使用時先更改test下的docpath和xlspath路徑設定，docpath即你的word的目錄，此目錄包括子目錄下的所有doc將被讀取，xlspath即輸出目錄，需要存在

在VBA窗口中，先在視圖下顯示立即窗口以觀察進度，程序最後的輸出類似這樣
正在讀取[1]:->D:\1\Resume.doc
正在生成:->d:\2\Resume
正在讀取[2]:->D:\1\簡歷(簡).doc
正在生成:->d:\2\簡歷(簡)
正在讀取[3]:->D:\1\計數器說明.doc
正在生成:->d:\2\計數器說明
共耗時0分41秒

Option Explicit
Dim docpath As String, xlspath As String
'ResultFlag=0 獲取路徑
'ResultFlag=1 獲取文件名
'ResultFlag=2 獲取擴展名
Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim SplitPos As Integer, DotPos As Integer
SplitPos = InStrRev(FullPath, "\")
DotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
Case 0
SplitPath = Left(FullPath, SplitPos - 1)
Case 1
If DotPos = 0 Then DotPos = Len(FullPath) + 1
SplitPath = Mid(FullPath, SplitPos + 1, DotPos - SplitPos - 1)
Case 2
If DotPos = 0 Then DotPos = Len(FullPath)
SplitPath = Mid(FullPath, DotPos + 1)
Case Else
Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function

Public Function FileFolderExists(ByVal strFullPath As String) As Boolean
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
On Error GoTo 0
End Function

Sub Test() '使用雙字典，旨在提高速度
Dim MyName, Dic, Did, I, T, F, TT, MyFileName, Doc, Ke
Dim count As Integer
count = 0
T = Time

docpath = "D:\1\"
xlspath = "d:\2\"

Set Dic = CreateObject("Scripting.Dictionary") '創建一個字典對象
Set Did = CreateObject("Scripting.Dictionary")
Dic.Add (docpath), ""
I = 0
Do While I < Dic.count
Ke = Dic.keys '開始遍歷字典
MyName = Dir(Ke(I), vbDirectory) '查找目錄
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(Ke(I) & MyName) And vbDirectory) = vbDirectory Then '如果是次級目錄
Dic.Add (Ke(I) & MyName & "\"), "" '就往字典中添加這個次級目錄名作為一個條目
End If
End If
MyName = Dir '繼續遍歷尋找
Loop
I = I + 1
Loop
'Did.Add ("文件清單"), "" '以查找D盤下所有EXCEL文件為例
For Each Ke In Dic.keys
MyFileName = Dir(Ke & "*.doc")
Do While MyFileName <> ""
Doc = Ke & MyFileName
Did.Add (Doc), ""

count = count + 1
Debug.Print "正在讀取[" & count & "]:->" & Doc
doc2xls (Doc)
MyFileName = Dir
Loop
Next

' For Each Sh In ThisWorkbook.Worksheets
' If Sh.Name = "XLS文件清單" Then
' Sheets("XLS文件清單").Cells.Delete
' F = True
' Exit For
' Else
' F = False
' End If
' Next

'If Not F Then
' Sheets.Add.Name = "XLS文件清單"
'End If
'Sheets("XLS文件清單").[A1].Resize(Did.Count, 1) = WorksheetFunction.Transpose(Did.keys)

TT = Time - T
Debug.Print "共耗時" & Minute(TT) & "分" & Second(TT) & "秒"
End Sub

Sub doc2xls(filename As String)
Dim xlApp As Object, xlSheet As Object, outfile As String, c As Object
Set xlApp = CreateObject("Excel.Application")
Set xlSheet = xlApp.Workbooks.Add.Sheets(1)

Dim Wapp As Object, Doc As Object, GetDocText As Object 'Word Application 對象、Document 對象
Set Wapp = CreateObject("Word.Application") '創建Word Application 對象
Set Doc = Wapp.Documents.Open(filename, ReadOnly:=True) '打開文檔,返回一個文檔對象

'xlSheet.Range("A1") = Doc.Content.Text
Doc.Application.Selection.WholeStory ''''全選
Doc.Application.Selection.Copy ''''''''''復制

xlSheet.Range("A1").Select
xlSheet.Paste

outfile = xlspath + Replace(SplitPath(filename, 1), ".doc", ".xls")
Debug.Print "正在生成:->" & outfile

xlSheet.Parent.SaveAs outfile

xlApp.Quit
Set xlSheet = Nothing
Set xlApp = Nothing

Wapp.Quit
Set Doc = Nothing
Set Wapp = Nothing

End Sub

⑵ Delphi7鎬庝箞璋冪敤Word2007鍙﹀瓨涓篜DF鐨勫姛鑳

delphi 璋冪敤 word 2007錛堟垨鍏朵粬鐗堟湰錛夛紝鍙浠ヤ嬌鐢 CreateOleObject 鏂規硶錛岄氳繃 OLE 寤虹珛瀵 Word 鐨勫硅薄寮曠敤錛屽啀璋冪敤鍏跺彟瀛樹負PDF鐨勫嚱鏁幫紝紺轟緥浠ｇ爜濡備笅錛

procereTForm1.Button1Click(Sender:TObject);
var
oWordApp,oDoc,oDocs:OleVariant;
begin
oWordApp:=CreateOleObject('Word.Application');
oDocs:=oWordApp.Documents;
oDoc:=oDocs.Open('d:	est.docx');

oDoc.ExportAsFixedFormat(OutputFileName:=
'd:	est.pdf',ExportFormat:=17);
end;

鍏朵腑錛孍xportAsFixedFormat 鐨勫嚱鏁板０鏄庡備笅錛

⑶ delphi中把查詢出來的數據導入word中

我將我的商用《旅行社管理系統》的 發團通知 部分奉獻給您，望對您有所幫助。
procere TFrmMain.N327Click(Sender: TObject);
var
FWord :Variant;
FDoc :Variant;
strSQL :string;
begin
//首先創造對象,如果出現異常就做出提示
try
FWord := CreateOleObject('Word.Application');
//WOrd程序的執行是否可見，值為false時，程序在後台運行。
FWord.Visible := True;
except
messagebox(0,'創建word對象失敗！','警告',MB_OK+MB_ICONINFORMATION);
exit;
end;

strSQL :='select * From "B_T_Company_Infor"';
with dm.ClientDataSet_Temp do
begin
if Active then Active:=False;
CommandText:=strSQL;
Open;
end;

//現在打開的Word中，創建一個新的頁面，然後在其中鍵入需要的內容
try
FDOC :=FWord.Documents.Add;
{對於Word的新頁面}
FWord.Selection.Font.Name :='宋體';
FWord.Selection.Font.Size :=20;
FWord.Selection.Font.Bold :=2;
FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter;
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString);
FWord.Selection.Typeparagraph;//換行
FWord.Selection.Typeparagraph;
FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft;
FWord.Selection.Font.Size :=12;
FWord.Selection.Font.Bold :=0;
FWord.Selection.TypeText(' 現將我社組團部的');
FWord.Selection.TypeText(' ');
FWord.Selection.TypeText('團計劃發出，各地請按下列行程做接待，並及早落實'+
'團隊計劃和選派優秀導游員。各地代訂住宿、火車票、機票務必安排好接待，日程'+
'如有變更，及時與下站接待社或本社聯系，各地接團時請舉【'+
dm.ClientDataSet_Temp.Fields[0].AsString+'】接站牌。');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('請速回傳真確認，謝謝合作！');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.Typeparagraph;//換行

FWord.Selection.TypeText('人數：');
FWord.Selection.TypeText('人數：');
FWord.Selection.TypeText('國籍：');
FWord.Selection.TypeText('國籍：');
FWord.Selection.TypeText('等級：');
FWord.Selection.TypeText('等級：');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('這里是團隊安排');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.Typeparagraph;//換行

FWord.Selection.TypeText('TO: ');
FWord.Selection.TypeText('12345678901234567890');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('TEL: ');
FWord.Selection.TypeText('12345678901234567890');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('FAX: ');
FWord.Selection.TypeText('12345678901234567890');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('______________________________________________');
FWord.Selection.Typeparagraph;//換行
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('FROM: ');
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString);
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('TEL: ');
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString);
FWord.Selection.Typeparagraph;//換行
FWord.Selection.TypeText('FAX: ');
FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString);
FWord.Selection.Typeparagraph;//換行
Except
on e: Exception do
Messagebox(0,Pchar(e.Message),'警告',MB_OK+MB_ICONINFORMATION);
end;
//保存文檔
FWord.Caption := '組團計劃保存在: '+ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc';
FDOC.SaveAS(ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc');
if messagebox(0,'組團計劃已經保存成功!'+chr(13)+chr(13)+
'單擊【確定】退出Word,返回到程序中!','您確信要退出Word嗎？',
MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES then
begin
FWord.Quit;
FWord := Unassigned;
end;

end;
-----------------------------
Delphi與Word之間的融合技術(1)
一、VBA代碼含義
Microsoft Word是一個集成化環境，是美國微軟公司的字處理系統，但是它決不僅僅是一個字處理系統，它集成了Microsoft Visual Basic，可以通過編程來實現對Word功能的擴展。
Microsoft Visual Basic在word中的代碼即Word的宏，通過編寫Word宏，可實現一些文檔處理的自動化，如實現文檔的自動備份、存檔等，可擴展Word文檔的功能，因此，能夠充分利用Word的特性，甚至使Word成為自己軟體的一部分。
Word的宏既有有利的一部分，因為它能夠幫助我們實現文檔的自動化，但是Word的宏也不是純粹的有利，有時它可能危害我們的文檔、計算機系統甚 至網路，從最開始的Taiwan NO1宏病毒到現在的Melissa宏病毒，從最開始的簡單的提示，耗盡系統資源到現在的亂發電子郵件，將個人的信息發送到網路上，甚至向硬碟的 Autoexec.bat(自動批處理文件)中添加Deltree C: -y，破壞整個Windows系統。
二、Word中內嵌的Com技術
可以說Word是對Com技術支持最好的軟體，這樣說似乎是太極端了一點，但是Word提供的強大的編程介面技術卻能夠是我們通過程序控制Word的任何一部分。無論是文件的打開、存檔、列印還是文檔中表格的自動繪制。

通過編程軟體，可以靈活的操縱word，這里只以Borland Delphi為例，進行詳細描述：
1、 在Delphi中調用Word軟體／文件的方法
在Word中調用Word軟體，歸納起來有三種方法：
。通過Delphi的控制項TOleContainer 將Word嵌入

a.使用Delphi提供的Servers控制項調用Word，使用Word的屬性

b.通過真正的Com技術，將Office軟體目錄中文件MSWORD9.OLB中的類庫全部導入Delphi中，利用Com技術編程

c.使用CreateOleObject將啟動Word，然後以Ole方式對Word進行控制。
2、對幾種方法的難易程度的判別
a.通過Delphi的控制項TOleContainer 將Word嵌入
這是最簡單的Ole嵌入，能夠直接將Word文檔調用，只需要使用ToleContainer.Run就可以將Word文檔直接啟動。且這樣啟動的 Word文檔與Delphi程序是一個整體（從界面上看），但是它存在不可克服的缺點，即不能通過Delphi控制Word文檔，也就不能實現將靈活操縱 Word的目的。
b.使用Delphi提供的Servers控制項調用Word，使用Word的屬性

使用Delphi的Servers控制項來操縱 Word，在編程時Delphi能夠實現代碼提示，總體上看能夠較好的實現Delphi對Word的控制，但是還有一些Word的功能不能在Delphi 中調用（比如自己編寫的VBA宏代碼）。且實現功能時本來在VBA代碼中可選則參數在Delphi調用的時候必須添加，否則，連編譯都不能通過。本方式啟 動的Word與Delphi程序分屬兩個窗體。此辦法僅能作為一個參考。
c.通過真正的Com技術，將Office軟體目錄中文件MSWORD9.OLB中的類庫全部導入Delphi中，利用Com技術編程利用真正的 Com技術，將MsWord9.OLD文件類庫導入，然後利用Com技術進行使用。整體上類似使用Delphi的Servers控制項，稍微比 Servers控制項麻煩，優缺點與Servers控制項相同。
d.使用CreateOleObject將啟動Word，然後以Ole方式對Word進行控制。

本辦法是使用以CreateOleObjects方式調用Word，實際上還是Ole，但是這種方式能夠真正做到完全控制Word文件，能夠使用Word的所有屬性，包括自己編寫的VBA宏代碼。

與Servers 控制項和com技術相比，本方法能夠真正地使用Word的各種屬性，和在VBA中編寫自己的代碼基本一樣，可以預設的代碼也不需要使用。本方式啟動的 Word與Delphi程序分屬兩個窗體。缺點是使用本方法沒有Delphi代碼提示，所有異常處理均需要自己編寫，可能編寫時探索性知識比較多。
三、Word宏編輯器
Word能夠真正地進行VBA代碼的編輯，可以編寫窗體、函數。

進入Word宏編輯器的方法：工具->宏-> Visual Basic編輯器，可進入Visual Basic編輯器界面。Word的Visual Basic編輯器界面和真正的Visual Basic編輯器基本相同，在此不再向詳述。在VBA代碼中，可以添加用戶窗體、模塊、類模塊。用戶窗體、模塊、類模塊的概念和Visual Basic完全相同。注釋也與Visual Basic完全相同。

可以將游標停留在窗體、模塊的任何一個子程序上，直接按「F5」運行當前子程序。
四、Word的宏的概述
Word充分地將文檔編輯和VB結合起來，真正地實現文檔的自動化。使用Word編程，類似於使用Visual Basic，所不同的是，在Word中，能夠直接運行某一個子程序，直接看見結果，Word的宏，只能解釋運行，而Visual Basic，現在已經能夠編寫成真正的機器碼，從代碼的保護上來說，應該盡可能地減少Word的VBA代碼數量，尤其是關鍵的代碼。
VBA宏，可分成四種：
1、和命令名相同的宏

如FileSave，FileOpen，如果在VBA代碼中包含與Word同名的函數，則直接執行這些VBA代碼，忽略Word本身的命令。
2、Word內特定的宏

這些宏包含AutoExec（啟動 Word 或載入全局模板）、AutoNew（每次新建文檔時）、AutoOpen（每次打開已有文檔時）、AutoClose（每次關閉文檔時），AutoExit（退出 Word 或卸載全局模板時）。

如果VBA代碼中含有這些名稱的函數，則滿足相應的條件，相應代碼就自動執行。
3、相應事件的VBA宏

這些宏是由事件觸發的宏，如Document_Close在文檔關閉的時候觸發事件，Document_New在新建文檔的時候觸發，Document_Open在打開文檔的時候觸發。
4、獨立的宏

自己編寫的VBA代碼，即不屬於上面幾種情況的VBA代碼，可以被其他VBA代碼調用，更重要的是，可以被其他程序調用。

這樣，我們就可以屏棄Word自動執行的宏，通過Delphi直接調用相應宏來達到目的。
五、Word命令宏的詳細描述
Word本身的命令函數包含很多，但是無論是word聯機幫助還是MSDN幫助，都沒有這方面的介紹，因此只能憑自己的實驗取探索，初步探測的函數如下：
宏名 解釋 注釋

FileNew 新建

FileNewDefault 新建空白文檔

FileSaveAs 另存為

FileOpen 打開

FileClose 關閉

FilePrint 列印

FilePrintPreview 列印預覽

ToolsCustomize 工具欄裡面的自定義

ToolsOptions 工具選項

ToolsRevisions 突出顯示修訂

ToolsReviewRevisions 接受或拒絕修訂

ToolsRevisionMarksAccept 接受修訂

ToolsRevisionMarksReject 拒絕修訂

ToolsRevisionMarksToggle 修訂

ToolsMacro 宏

ToolsRecordMacroToggle 錄制新宏

ViewSecurity 安全性

ViewVBCode 查看VB編輯器環境

FileTemplates 模板和可載入項

ToolsProtectUnprotectDocument 解除對文檔的保護

InsertHyperlink 插入超級鏈接

EditHyperlink 編輯超級鏈接

DeleteHyperlink 刪除超級鏈接

EditLinks 查看、刪除鏈接

EditPasteAsHyperlink 粘貼超級鏈接

FormatStyle 樣式

EditBookMark 書簽
Delphi與Word之間的融合技術(2)
OleWord時一些用用的代碼
一、Delphi程序啟動Word

採用CreateOleObjects的方法來啟動Word，調用VBA代碼，具體實現過程為：

首 先使用GetActiveOleObject(''Word.Application'')判斷當前內存中是否存在Word程序，如果存在，則直接連接， 如果沒有Word程序，則使用CreateOleObject(''Word.Application'')啟動Word
二、Delphi程序新建Word文稿
格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)

Template： 使用模板的名稱，

NewTemplate： 新建文檔的類型，True表示為模板，False表示為文檔

DocumentType： 文檔類型，默認為空白文檔

Visible： 打撈的窗口是否可見
舉例：Doc_Handle:=Word_Ole.Documents.Add(Template:=''C:\Temlate.dot'',NewTemplate:=False);
三、Delphi程序打開Word文稿
格式：WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,

PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,

Format,Encoding,Visible)
FileName： 文檔名（包含路徑）

Confirmconversions： 是否顯示文件轉換對話框

ReadOnly： 是否以只讀方式打開文檔

AddToRecentFiles： 是否將文件添加到"文件"菜單底部的最近使用文件列表中

PassWordDocument： 打開此文檔時所需要的密碼

PasswordTemplate： 打開此模板時所需要的密碼

Revert： 如果文檔已經，是否重新打開文檔

WritePasswordDocument： 保存對文檔更改時所需要的密碼

WritePasswordTemplate： 保存對模板進行更改時所需要的密碼

Format： 打開文檔時所需使用的文件轉換器

Encoding： 所使用的文檔代碼頁

Visible： 打開文檔的窗口是否可見
舉例：

Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,

AddToRecentFiles:=False);
四、Delphi程序保存Word文稿
格式：WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,

AddToRecentFiles, WritePassword, ReadOnlyRecommended,

EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,

SaveAsAOCELetter)
FileName： 文件名。默認為當前文件夾和文件名。

FileFormat 文檔保存的格式。

LockComments 如果為 True，則此文檔只允許進行批註。

Password 打開文檔時的口令。

AddToRecentFiles 如果為True，則將文檔添至"文件"菜單中最近使用的文檔列表中。

WritePassword 保存對文檔的修改所需的口令。

ReadOnlyRecommended 如果為 True，在每次打開文檔時，Word 將建議用戶採用只讀方式。

EmbedTrueTypeFonts 如果為 True，則將文檔與 TrueType 字體一起保存。

SaveNativePictureFormat 如果為 True，則從其他系統平台（例如 Macintosh）導入的圖形僅保存其 Windows 版本。

SaveFormsData 如果為 True，則將窗體中用戶輸入的數據存為一條數據記錄。

SaveAsAOCELetter 如果文檔包含一個附加，當此屬性值為 True 時，將文檔存為一篇 AOCE 信箋（同時保存郵件）。
舉例：

Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,

AddToRecentFiles=False);
Delphi與Word之間的融合技術(3)
五、從資料庫讀取文件到本地硬碟和從本地硬碟讀取文件到資料庫
在資料庫上使用Image二進制欄位保存，使用Stream流的方式。
創建文件流：

Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);

Word_FileStream.Position:=0;
保存到資料庫的Image欄位：

TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);
從資料庫讀取文件到本地硬碟：

TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);
釋放文件流：

Word_FileStream.Free;
六、全局消息的定義
因為word和Delphi程序是兩個軟體，相互之間通訊比較麻煩，所以使用全局消息的方法進行。全局消息必須首先注冊，Windows返回系統空閑的消息號，當注冊的消息相同時，Windows系統返回同一個值，這樣就保證了使用這個消息號在兩個程序之間通訊。
定義消息的辦法：

szMessageString: pchar = ''XIDIAN_11_Stone'';

FMyJoinMessage := RegisterWindowMessage(szMessageString);
發送消息的方法：

SendMessage(對方句柄，消息，消息附帶短變數，消息附帶長變數)
七、Delphi程序接收消息的方法
Delphi接收消息有兩種，一是重載特定消息，二是重載WndProc函數，在裡面選擇相應消息進行處理。

法一，每次只能處理一條消息，而法二能夠同時處理多條消息。
對於法二，聲明如下：

procere WndProc(var Message: Tmessage);override

必須注意，使用時需要在處理完自己消息處理後繼承WndProc(Message)函數，否則系統會崩潰！
八、Word中Combo對話框的動態生成以及Change事件
建立類模塊Combohander，在內部定義事件

Public WithEvents ComboBoxEvent As Office.CommandBarComboBox
定義Combo控制項產生事件的模塊

Dim ctlComboBoxHandler As New ComboBoxHandler
產生Combo對話框

Set Cbo_ChooseDoc = CommandBars("添加的菜單").Controls.Add(Type:=msoControlComboBox, Temporary:=True)
進行文件句柄設置，以產生Combo_Change事件

Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc
產生事件後，在類模塊Combohander內選擇ComboBoxEvent的Change事件，即可書寫事件代碼

Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)
九、一些Word的事件
VBA代碼中處理的Word事件有：Document_Close

Application事件中需要處理的有：DocumentBeforeClose，DocumentChange。
Document_Close：事件在文檔關閉時產生事件

DocumentBeforeClose：在文檔被關閉以前先於Word判斷文檔是否保存，給出相應提示並進行相應處理。

DocumentChange：文檔切換，在文檔從自己修改的文稿和其他人修改的文稿之間切換產生事件，主要處理設置文檔許可權等

⑷ delphi 文件後綴名

就doc這樣的文件而言
1 寫文件 文件格式自己定義。
2 另存為自己定義的後綴名 例如 111.xyz
3 自己編寫安裝包，假如安裝文件安裝後· exe文件位置是 c:\abc\test.exe
安裝程序改寫注冊表 將xyz文件後綴關聯到c:\abc\test.exe
那樣使用者只要雙擊111.xyz 就會用test.exe去打開
相當於命令行執行" c:\abc\test.exe 111.xyz",

4 那樣test就用參數方式接收到111.xyz這個文件名
然後按照自己定義的格式讀取文件並打開