ex源碼

A. 怎樣查看和修改軟體的源代碼

exe文件信息一般不能直接更改，因為是編譯好的，並且一般都加了殼。
想改的話，得用脫殼了吧。不同的文件有可能用了不同的軟體加了殼。
用各類脫殼工具測試並脫殼後，再反編譯，有可能得到相關文件信息並更改。

（一）殼的概念

作者編好軟體後，編譯成exe可執行文件。 1.有一些版權信息需要保護起來，不想讓別人隨便改動，如作者的姓名，即為了保護軟體不被破解，通常都是採用加殼來進行保護。 2.需要把程序搞的小一點，從而方便使用。於是，需要用到一些軟體，它們能將exe可執行文件壓縮， 3.在黑客界給木馬等軟體加殼脫殼以躲避殺毒軟體。實現上述功能，這些軟體稱為加殼軟體。

（二）加殼軟體最常見的加殼軟體ASPACK ，UPX，PEcompact 不常用的加殼軟體WWPACK32；PE-PACK ；PETITE NEOLITE

（三）偵測殼和軟體所用編寫語言的軟體，因為脫殼之前要查他的殼的類型。 1.偵測殼的軟體fileinfo.exe 簡稱fi.exe（偵測殼的能力極強） 2.偵測殼和軟體所用編寫語言的軟體language.exe（兩個功能合為一體，很棒） 推薦language2000中文版（專門檢測加殼類型） 3.軟體常用編寫語言Delphi，VisualBasic（VB）---最難破，VisualC（VC）

（四）脫殼軟體。 軟體加殼是作者寫完軟體後，為了保護自己的代碼或維護軟體產權等利益所常用到的手段。目前有很多加殼工具，當然有盾，自然就有矛，只要我們收集全常用脫殼工具，那就不怕他加殼了。軟體脫殼有手動脫和自動脫殼之分，下面我們先介紹自動脫殼，因為手動脫殼需要運用匯編語言，要跟蹤斷點等，不適合初學者，但我們在後邊將稍作介紹。

加殼一般屬於軟體加密，現在越來越多的軟體經過壓縮處理，給漢化帶來許多不便，軟體漢化愛好者也不得不學習掌握這種技能。現在脫殼一般分手動和自動兩種，手動就是用TRW2000、TR、SOFTICE等調試工具對付，對脫殼者有一定水平要求，涉及到很多匯編語言和軟體調試方面的知識。而自動就是用專門的脫殼工具來脫，最常用某種壓縮軟體都有他人寫的反壓縮工具對應，有些壓縮工具自身能解壓，如UPX；有些不提供這功能，如：ASPACK，就需要UNASPACK對付，好處是簡單，缺點是版本更新了就沒用了。另外脫殼就是用專門的脫殼工具來對付，最流行的是PROCDUMP v1.62 ，可對付目前各種壓縮軟體的壓縮檔。在這里介紹的是一些通用的方法和工具，希望對大家有幫助。我們知道文件的加密方式，就可以使用不同的工具、不同的方法進行脫殼。下面是我們常常會碰到的加殼方式及簡單的脫殼措施，供大家參考： 脫殼的基本原則就是單步跟蹤，只能往前，不能往後。脫殼的一般流程是：查殼->尋找OEP->Dump->修復 找OEP的一般思路如下： 先看殼是加密殼還是壓縮殼，壓縮殼相對來說容易些，一般是沒有異常，找到對應的popad後就能到入口，跳到入口的方式一般為。 我們知道文件被一些壓縮加殼軟體加密，下一步我們就要分析加密軟體的名稱、版本。因為不同軟體甚至不同版本加的殼，脫殼處理的方法都不相同。

常用脫殼工具： 1、文件分析工具（偵測殼的類型）：Fi，GetTyp，peid，pe-scan， 2、OEP入口查找工具：SoftICE，TRW，ollydbg，loader，peid 3、mp工具：IceDump，TRW，PEditor，ProcDump32，LordPE 4、PE文件編輯工具PEditor，ProcDump32，LordPE 5、重建Import Table工具：ImportREC，ReVirgin 6、ASProtect脫殼專用工具：Caspr（ASPr V1.1-V1.2有效），Rad（只對ASPr V1.1有效），loader，peid（1）Aspack： 用的最多，但只要用UNASPACK或PEDUMP32脫殼就行了 （2）ASProtect+aspack：次之，國外的軟體多用它加殼，脫殼時需要用到SOFTICE+ICEDUMP，需要一定的專業知識，但最新版現在暫時沒有辦法。 （3）Upx： 可以用UPX本身來脫殼，但要注意版本是否一致，用-D 參數 （4）Armadill： 可以用SOFTICE+ICEDUMP脫殼，比較煩 （5）Dbpe： 國內比較好的加密軟體，新版本暫時不能脫，但可以破解 （6）NeoLite： 可以用自己來脫殼 （7）Pcguard： 可以用SOFTICE+ICEDUMP+FROGICE來脫殼 （8）Pecompat： 用SOFTICE配合PEDUMP32來脫殼，但不要專業知識 （9）Petite： 有一部分的老版本可以用PEDUMP32直接脫殼，新版本脫殼時需要用到SOFTICE+ICEDUMP，需要一定的專業知識 （10）WWpack32： 和PECOMPACT一樣其實有一部分的老版本可以用PEDUMP32直接脫殼，不過有時候資源無法修改，也就無法漢化，所以最好還是用SOFTICE配合 PEDUMP32脫殼 我們通常都會使用Procmp32這個通用脫殼軟體，它是一個強大的脫殼軟體，他可以解開絕大部分的加密外殼，還有腳本功能可以使用腳本輕松解開特定外殼的加密文件。另外很多時候我們要用到exe可執行文件編輯軟體ultraedit。我們可以下載它的漢化注冊版本，它的注冊機可從網上搜到。ultraedit打開一個中文軟體，若加殼，許多漢字不能被認出 ultraedit打開一個中文軟體，若未加殼或已經脫殼，許多漢字能被認出 ultraedit可用來檢驗殼是否脫掉，以後它的用處還很多，請熟練掌握例如，可用它的替換功能替換作者的姓名為你的姓名注意位元組必須相等，兩個漢字替兩個，三個替三個，不足處在ultraedit編輯器左邊用00補。

常見的殼脫法：

（一）aspack殼 脫殼可用unaspack或caspr 1.unaspack ，使用方法類似lanuage，傻瓜式軟體，運行後選取待脫殼的軟體即可. 缺點：只能脫aspack早些時候版本的殼，不能脫高版本的殼 2.caspr第一種：待脫殼的軟體（如aa.exe）和caspr.exe位於同一目錄下，執行windows起始菜單的運行，鍵入 caspr aa.exe脫殼後的文件為aa.ex_，刪掉原來的aa.exe，將aa.ex_改名為aa.exe即可。使用方法類似fi 優點：可以脫aspack任何版本的殼，脫殼能力極強缺點：Dos界面。第二種：將aa.exe的圖標拖到caspr.exe的圖標上***若已偵測出是aspack殼，用unaspack脫殼出錯，說明是aspack高版本的殼，用caspr脫即可。 （二）upx殼 脫殼可用upx待脫殼的軟體（如aa.exe）和upx.exe位於同一目錄下，執行windows起始菜單的運行，鍵入upx -d aa.exe （三）PEcompact殼 脫殼用unpecompact 使用方法類似lanuage傻瓜式軟體，運行後選取待脫殼的軟體即可 （四）procmp 萬能脫殼但不精，一般不要用 使用方法：運行後，先指定殼的名稱，再選定欲脫殼軟體，確定即可脫殼後的文件大於原文件由於脫殼軟體很成熟，手動脫殼一般用不到。

三、壓縮與脫殼

現在脫殼一般分手動和自動兩種，手動就是用TRW2000、TR、SOFTICE等調試工具對付，對脫殼者有一定水平要求。而自動就稍好些，用專門的脫殼工具來脫，最常用某種壓縮軟體都有他人寫的反壓縮工具對應，有些壓縮工具自身能解壓，如UPX；有些不提供這功能，如：ASPACK，就需要UNASPACK對付。很多文件使用了一些壓縮加殼軟體加密過，這就需要對文件進行解壓脫殼處理後，才能漢化。這種壓縮與我們平時接觸的壓縮工具如winzip，winrar等壓縮不同，winzip和winrar等壓縮後的文件不能直接執行，而這種 EXE 壓縮軟體，EXE文件壓縮後，仍可以運行。這種壓縮工具把文件壓縮後，會在文件開頭一部分，加了一段解壓代碼。執行時該文件時，該代碼先執行解壓還原文件，不過這些都是在內存中完成的，由於微機速度快，我們基本感覺不出有什麼不同。這樣的程序很多，如 The bat，Acdsee，Winxfile等等。

要脫殼就應先了解常用壓縮工具有哪些，這樣知己知彼，如今越來越多的軟體商喜歡用壓縮方式發行自己的產品，如The bat！用UPX壓縮，ACDSEE3.0用ASPACK壓縮等。它有以下因素：一是：微機性能越來越好，執行過程中解壓使人感覺不出來，用戶能接受（給軟體加殼，類似WINZIP 的效果，只不過這個加殼壓縮之後的文件，可以獨立運行，解壓過程完全隱蔽，都在內存中完成。解壓原理，是加殼工具在文件頭里加了一段指令，告訴CPU，怎麼才能解壓自己。現在的CPU都很快，所以這個解壓過程你看不出什麼異常。因為軟體一下子就打開了，只有你機器配置非常差，才會感覺到不加殼和加殼後的軟體運行速度的差別。）。 二是：壓縮後軟體體積縮小，便於網路傳輸。三是：增加破解的難度。首先，加殼軟體不同於一般的winzip，winrar等壓縮軟體.它是壓縮exe可執行文件的，壓縮後的文件可以直接運行.而winzip，winrar等壓縮軟體可壓縮任何文件，但壓縮後不能直接運行。很多站點不允許上傳可執行文件，而只能上傳壓縮的文件，一方面處於速度考慮，也是為了安全性考慮。用加殼軟體壓縮的文件就是體積縮小，別的性質沒改變。還是EXE文件，仍可執行，只是運行過程和以前不一樣了。壓縮工具把文件壓縮後，在文件開頭一部分，加了一段解壓代碼。執行時該文件時，該代碼先執行解壓還原文件，不過這些都是在內存中完成的，由於微機速度快，我們基本感覺不出有什麼不同。

B. 易語言大神來 EX_UI畫板如何載入並播放H5動畫，最好有源碼，謝謝！

畫板不能播放動畫，用動畫框和動畫物體組件

C. 誰有TourEx 3.3 的破解源碼，必有重謝！！

，國內最好用的旅遊系統又發新版了，最新版V3.3 升級了很多漏洞及功能 ，才有新內核
好東西不容錯過 分享給大家一起來鑒賞
增51Book機票介面
通過機票實時查詢介面，實現從查詢到預訂等的強大而簡單易用的功能。
新增圖庫功能
方便快捷的圖庫功能，整個網站的圖片綜合管理，也可以批量上傳圖片。
新增網路編輯器
涵蓋流行富文本編輯器特色功能，獨創多種全新編輯操作模式。
全新設計多風格樣式模板
新增多色彩風格模板及首頁多格式版面，全新設計景點、租車、簽證模板。

D. C#導入導出數據到Excel的通用類源碼

下面內容是關於C#導入導出數據到Excel的通用類的內容。

public class ExcelIO

{

    private int _ReturnStatus;

    private string _ReturnMessage;

    public int ReturnStatus

    {

        get{return _ReturnStatus;}

    }

    public string ReturnMessage

    {

        get{return _ReturnMessage;}

    }

    public ExcelIO()

    {

    }

    public DataSet ImportExcel(string fileName)

    {

        Excel.Application xlApp=new Excel.ApplicationClass();         

        if(xlApp==null)

        {

            _ReturnStatus = -1;

            _ReturnMessage = "無法創建Excel對象，可能您的計算機未安裝Excel";

            return null;

        }     

        Excel.Workbook workbook;               

        try

        {

            workbook = xlApp.Workbooks.Open(fileName,0, false, 5, "", "", false, Excel.XlPlatform.xlWindows, "", true, false, 0, true, 1, 0);

        }

        catch

        {

            _ReturnStatus = -1;

            _ReturnMessage = "Excel文件處於打開狀態，請保存關閉";

            return null;

        }     

        int n = workbook.Worksheets.Count;

        string[] SheetSet = new string[n];

        System.Collections.ArrayList al = new System.Collections.ArrayList();

        for(int i=1; i<=n; i++)

        {

            SheetSet[i-1] = ((Excel.Worksheet)workbook.Worksheets[i]).Name;

        }

        workbook.Close(null,null,null);       

        xlApp.Quit();

        if(workbook != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);

            workbook = null;

        }

        if(xlApp != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);

            xlApp = null;

        } 

        GC.Collect();

        DataSet ds = new DataSet();       

        string connStr = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = "+ fileName +";Extended Properties=Excel 8.0" ;

        using(OleDbConnection conn = new OleDbConnection (connStr))

        {

            conn.Open();

            OleDbDataAdapter da;

            for(int i=1; i<=n; i++)

            {

                da = new OleDbDataAdapter(sql,conn);

                da.Fill(ds,SheetSet[i-1]); 

                da.Dispose();

            }             

            conn.Close();

            conn.Dispose();

        }             

        return ds;

    }

    public bool ExportExcel(string reportName,DataTable dt,string saveFileName)

    {

        if(dt==null)

        {

            _ReturnStatus = -1;

            _ReturnMessage = "數據集為空！";

            return false;         

        }

        bool fileSaved=false;

        Excel.Application xlApp=new Excel.ApplicationClass(); 

        if(xlApp==null)

        {

            _ReturnStatus = -1;

            _ReturnMessage = "無法創建Excel對象，可能您的計算機未安裝Excel";

            return false;

        }

        Excel.Workbooks workbooks=xlApp.Workbooks;

        Excel.Workbook workbook=workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);

        worksheet.Cells.Font.Size = 10;

        Excel.Range range;

        long totalCount=dt.Rows.Count;

        long rowRead=0;

        float percent=0;

        worksheet.Cells[1,1]=reportName;

        ((Excel.Range)worksheet.Cells[1,1]).Font.Size = 12;

        ((Excel.Range)worksheet.Cells[1,1]).Font.Bold = true;

        for(int i=0;i<dt.Columns.Count;i++)

        {

            worksheet.Cells[2,i+1]=dt.Columns[i].ColumnName;

            range=(Excel.Range)worksheet.Cells[2,i+1];

            range.Interior.ColorIndex = 15;

            range.Font.Bold = true;

        }

        for(int r=0;r<dt.Rows.Count;r++)

        {

            for(int i=0;i<dt.Columns.Count;i++)

            {

                worksheet.Cells[r+3,i+1]=dt.Rows[r][i].ToString();

            }

            rowRead++;

        }

        range=worksheet.get_Range(worksheet.Cells[2,1],worksheet.Cells[dt.Rows.Count+2,dt.Columns.Count]);

        range.BorderAround(Excel.XlLineStyle.xlContinuous,Excel.XlBorderWeight.xlThin,Excel.XlColorIndex.xlColorIndexAutomatic,null);

        if( dt.Rows.Count > 0)

        {

            range.Borders[Excel.XlBordersIndex.xlInsideHorizontal].ColorIndex = Excel.XlColorIndex.xlColorIndexAutomatic;

            range.Borders[Excel.XlBordersIndex.xlInsideHorizontal].LineStyle =Excel.XlLineStyle.xlContinuous;

            range.Borders[Excel.XlBordersIndex.xlInsideHorizontal].Weight =Excel.XlBorderWeight.xlThin;

        }

        if(dt.Columns.Count>1)

        {

            range.Borders[Excel.XlBordersIndex.xlInsideVertical].ColorIndex =Excel.XlColorIndex.xlColorIndexAutomatic;

            range.Borders[Excel.XlBordersIndex.xlInsideVertical].LineStyle = Excel.XlLineStyle.xlContinuous;

            range.Borders[Excel.XlBordersIndex.xlInsideVertical].Weight = Excel.XlBorderWeight.xlThin;

        }

        if(saveFileName!="")

        {

            try

            {

                workbook.Saved =true;

                workbook.SaveCopyAs(saveFileName);

                fileSaved=true;

            }

            catch(Exception ex)

            {

                fileSaved=false;

                _ReturnStatus = -1;

                _ReturnMessage = "導出文件時出錯,文件可能正被打開！n"+ex.Message;

            }

        }

        else

        {

            fileSaved=false;

        }         

        if(range != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(range);

            range = null;

        }

        if(worksheet != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet);

            worksheet = null;

        }

        if(workbook != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);

            workbook = null;

        }

        if(workbooks != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(workbooks);

            workbooks = null;

        }             

        xlApp.Application.Workbooks.Close();

        xlApp.Quit();

        if(xlApp != null)

        {

            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);

            xlApp = null;

        }

        GC.Collect();

        return fileSaved;

    }

}

E. C++控制台程序如何把外部參數賦值給變數。求源碼。如： 外部執行 test.ex

下面的程序演示argc和argv的使用：

#include<iostream>

using namespace std;

int main(int argc,char **argv){

for(int i=0;i<argc;i++)
cout<<"Argument "<<i<<" is "<<argv[i]<<endl;
return EXIT_SUCCESS;
}

該程序編譯成功，產生了 test.exe 文件，在命令行下輸入如下命令：
test.exe hello! this is a test!

F. 高分求一delphi + excel的源碼

http://redmoon.jsphome.com/1/25944.html 在日常辦公中，用得最多的是Word和Excel，而Excel對數據報表的處理尤為方便（操作公式、列印格式等），如果我們將數據導入到Excel中後，再靠我們平時對Excel熟練的操作很快編輯好我們有用的數據（如領導報表等），通過對Excel的控制，我們可以自動編緝好我們想要的格式和外觀。http://www.code999.com/ (一) 使用動態創建的方法

首先創建 Excel 對象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

1) 顯示當前窗口：
ExcelApp.Visible := True;

2) 更改 Excel 標題欄：
ExcelApp.Caption := '應用程序調用 Microsoft Excel';

3) 添加新工作簿：
ExcelApp.WorkBooks.Add;

4) 打開已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );

5) 設置第2個工作表為活動工作表：
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;

6) 給單元格賦值：
ExcelApp.Cells[1,4].Value := '第一行第四列';

7) 設置指定列的寬度（單位：字元個數），以第一列為例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 設置指定行的高度（單位：磅）（1磅＝0.035厘米），以第二行為例：
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分頁符：
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;

10) 在第8列之前刪除分頁符：
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定邊框線寬度：
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-頂 4-底 5-斜( \ ) 6-斜( / )

12) 清除第一行第四列單元格公式：
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

13) 設置第一行字體屬性：
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隸書';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 進行頁面設置：

a.頁眉：
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '報表演示';
b.頁腳：
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P頁';
c.頁眉到頂端邊距2cm：
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.頁腳到底端邊距3cm：
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.頂邊距2cm：
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底邊距2cm：
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左邊距2cm：
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右邊距2cm：
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.頁面水平居中：
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.頁面垂直居中：
ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.列印單元格網線：
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷貝操作：

a.拷貝整個工作表：
ExcelApp.ActiveSheet.Used.Range.Copy;
b.拷貝指定區域：
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.從A1位置開始粘貼：
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.從文件尾部開始粘貼：
ExcelApp.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Insert;
b. ExcelApp.ActiveSheet.Columns[1].Insert;

17) 刪除一行或一列：
a. ExcelApp.ActiveSheet.Rows[2].Delete;
b. ExcelApp.ActiveSheet.Columns[1].Delete;

18) 列印預覽工作表：
ExcelApp.ActiveSheet.PrintPreview;

19) 列印輸出工作表：
ExcelApp.ActiveSheet.PrintOut;

20) 工作表保存：
if not ExcelApp.ActiveWorkBook.Saved then
ExcelApp.ActiveSheet.PrintPreview;

21) 工作表另存為：
ExcelApp.SaveAs( 'C:\Excel\Demo1.xls' );

22) 放棄存檔：
ExcelApp.ActiveWorkBook.Saved := True;

23) 關閉工作簿：
ExcelApp.WorkBooks.Close;

24) 退出 Excel：
ExcelApp.Quit;

(二) 使用Delphi 控制項方法
在Form中分別放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。

1） 打開Excel
ExcelApplication1.Connect;

2) 顯示當前窗口：
ExcelApplication1.Visible[0]:=True;

3) 更改 Excel 標題欄：
ExcelApplication1.Caption := '應用程序調用 Microsoft Excel';

4) 添加新工作簿：
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

5) 添加新工作表：
var Temp_Worksheet: _WorkSheet;
begin
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
End;

6) 打開已存在的工作簿：
ExcelApplication1.Workbooks.Open (c:\a.xls
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)

7) 設置第2個工作表為活動工作表：
ExcelApplication1.WorkSheets[2].Activate; 或
ExcelApplication1.WorksSheets[ 'Sheet2' ].Activate;

8) 給單元格賦值：
ExcelApplication1.Cells[1,4].Value := '第一行第四列';

9) 設置指定列的寬度（單位：字元個數），以第一列為例：
ExcelApplication1.ActiveSheet.Columns[1].ColumnsWidth := 5;

10) 設置指定行的高度（單位：磅）（1磅＝0.035厘米），以第二行為例：
ExcelApplication1.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

11) 在第8行之前插入分頁符：
ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;

12) 在第8列之前刪除分頁符：
ExcelApplication1.ActiveSheet.Columns[4].PageBreak := 0;

13) 指定邊框線寬度：
ExcelApplication1.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-頂 4-底 5-斜( \ ) 6-斜( / )

14) 清除第一行第四列單元格公式：
ExcelApplication1.ActiveSheet.Cells[1,4].ClearContents;

15) 設置第一行字體屬性：
ExcelApplication1.ActiveSheet.Rows[1].Font.Name := '隸書';
ExcelApplication1.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApplication1.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApplication1.ActiveSheet.Rows[1].Font.UnderLine := True;

16) 進行頁面設置：
a.頁眉：
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '報表演示';
b.頁腳：
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '第&P頁';
c.頁眉到頂端邊距2cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.頁腳到底端邊距3cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.頂邊距2cm：
ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底邊距2cm：
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左邊距2cm：
ExcelApplication1.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右邊距2cm：
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.頁面水平居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.頁面垂直居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.列印單元格網線：
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True;

17) 拷貝操作：

a.拷貝整個工作表：
ExcelApplication1.ActiveSheet.Used.Range.Copy;

b.拷貝指定區域：
ExcelApplication1.ActiveSheet.Range[ 'A1:E2' ].Copy;

c.從A1位置開始粘貼：
ExcelApplication1.ActiveSheet.Range.[ 'A1' ].PasteSpecial;

d.從文件尾部開始粘貼：
ExcelApplication1.ActiveSheet.Range.PasteSpecial;

18) 插入一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Insert;
b. ExcelApplication1.ActiveSheet.Columns[1].Insert;

19) 刪除一行或一列：
a. ExcelApplication1.ActiveSheet.Rows[2].Delete;
b. ExcelApplication1.ActiveSheet.Columns[1].Delete;

20) 列印預覽工作表：
ExcelApplication1.ActiveSheet.PrintPreview;

21) 列印輸出工作表：
ExcelApplication1.ActiveSheet.PrintOut;

22) 工作表保存：
if not ExcelApplication1.ActiveWorkBook.Saved then
ExcelApplication1.ActiveSheet.PrintPreview;

23) 工作表另存為：
ExcelApplication1.SaveAs( 'C:\Excel\Demo1.xls' );

24) 放棄存檔：
ExcelApplication1.ActiveWorkBook.Saved := True;

25) 關閉工作簿：
ExcelApplication1.WorkBooks.Close;

26) 退出 Excel：
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;

(三) 使用Delphi 控制Excle二維圖
在Form中分別放入ExcelApplication, ExcelWorkbook和ExcelWorksheet
var asheet1,achart, range:variant;

1）選擇當第一個工作薄第一個工作表
asheet1:=ExcelApplication1.Workbooks[1].Worksheets[1];

2）增加一個二維圖
achart:=asheet1.chartobjects.add(100,100,200,200);

3）選擇二維圖的形態
achart.chart.charttype:=4;

4）給二維圖賦值
series:=achart.chart.seriescollection;
range:=sheet1!r2c3:r3c9;
series.add(range,true);

5）加上二維圖的標題
achart.Chart.HasTitle:=True;
achart.Chart.ChartTitle.Characters.Text:=』 Excle二維圖』

6）改變二維圖的標題字體大小
achart.Chart.ChartTitle.Font.size:=6;

7）給二維圖加下標說明
achart.Chart.Axes(xlCategory, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text := '下標說明';

8）給二維圖加左標說明
achart.Chart.Axes(xlValue, xlPrimary).HasTitle := True;
achart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text := '左標說明';

9）給二維圖加右標說明
achart.Chart.Axes(xlValue, xlSecondary).HasTitle := True;
achart.Chart.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text := '右標說明';

10）改變二維圖的顯示區大小
achart.Chart.PlotArea.Left := 5;
achart.Chart.PlotArea.Width := 223;
achart.Chart.PlotArea.Height := 108;

11）給二維圖坐標軸加上說明
achart.chart.seriescollection[1].NAME:='坐標軸說明';

(三) 資料庫
1.存儲過程

先執行如下存儲過程
EXEC sp_addlinkedserver
'ExcelSource',
'Jet 4.0',
'Microsoft.Jet.OLEDB.4.0',
'C:\Documents and Settings\Administrator\桌面\xinxi3.xls',
NULL,
'Excel 5.0'

EXEC sp_addlinkedsrvlogin ExcelSource, FALSE, NULL, NULL
然後執行下面這個存儲過程

EXEC sp_tables_ex ExcelSource //顯示幾張表
這時會返回幾個表的名稱（個數與excel中sheet的個數一致）
然後你用以下語句：
select * from ExcelSource...Sheet1$
就可以查出來excel中的數據，然後就可以進行倒入的操作了
導入完畢記得執行以下兩個存儲過程：
--EXEC sp_droplinkedsrvlogin ExcelSource, NULL

--EXEC sp_dropserver ExcelSource
以上所有的操作可以先在查詢分析器中test一下，然後你可以寫存儲過程來實現

G. 2016年旅遊網站源碼排行榜

在為你做旅遊網站源碼排行之前，先給你介紹一下什麼是旅遊網站源碼，旅遊網站源碼，也稱為旅遊源代碼。是指為編譯的文本代碼或一個網站的全部源代碼文件，是一系列人類可讀指令。你都把它理解為源文代碼，當前看到的這個網頁來說，其實它就是由一大堆的源碼組成，通過瀏覽器如Google、網路等瀏覽器或伺服器翻譯成我們現在所看見的樣子！這樣相對通俗的解釋你應該都懂吧！下面由是由筆者精心研究、收集、歸納的旅遊網站源碼，為你做一個優先順序排序，希望對你在選擇旅遊網站源碼的時候有所幫助。

特點：無

總結：網奇平台涉及的源碼系統較多，但是對每一個系統的開發都不夠深入，其中網奇E旅遊通旅遊網站源碼的模板風格及源碼都極為粗糙，ASP NET語言運行速度較PHP+MySQL緩慢，系統BUG較多，基本沒有源碼維護人員

以上信息希望可以幫助你，還望採納，感謝！