Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean; var Target,Source:TFileStream; MyFileSize:integer; begin try Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive); Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive); try Target.Seek(0,soFromEnd);//往尾部添加資源 Target.CopyFrom(Source,0); MyFileSize:=Source.Size+Sizeof(MyFileSize);//計算資源大小，并寫入輔程尾部 Target.WriteBuffer(MyFileSize,sizeof(MyFileSize)); finally Target.Free; Source.Free; end; except Result:=False; Exit; end; Result:=True; end; 有了上面的基礎，我們應該很容易看得懂這個函數。其中參數SourceFile是 要添加的文件,參數TargetFile是被添加到的目標文件。比如說把a.exe添加到 b.exe里面可以：Cjt_AddtoFile('a.exe',b.exe');如果添加成功就返回True否則 返回假。 根據上面的函數我們可以寫出相反的讀出函數： Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Boolean; var Source:TFileStream; Target:TMemoryStream; MyFileSize:integer; begin try Target:=TMemoryStream.Create; Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone); try Source.Seek(-sizeof(MyFileSize),soFromEnd); Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//讀出資源大小 Source.Seek(-MyFileSize,soFromEnd);//定位到資源位置 Target.CopyFrom(Source,MyFileSize-sizeof(MyFileSize));//取出資源 Target.SaveToFile(TargetFile);//存放到文件 finally Target.Free; Source.Free; end; except Result:=false; Exit; end; Result:=true; end; 其中參數SourceFile是已經添加了文件的文件名稱,參數TargetFile是取出文 件后保存的目標文件名。比如說Cjt_LoadFromFile('b.exe','a.txt');在b.exe中 取出文件保存為a.txt。如果取出成功就返回True否則返回假。 打開Delphi，新建一個工程，在窗口上放上一個Edit控件Edit1和兩個Button: Button1和Button2。Button的Caption屬性分別設置為“確定”和“取消”。在 Button1的Click事件中寫代碼: var S:string; begin S:=ChangeFileExt(application.ExeName,'.Cjt'); if Edit1.Text='790617' then begin Cjt_LoadFromFile(Application.ExeName,S); {取出文件保存在當前路徑下并命名"原文件.Cjt"} Winexec(pchar(S),SW_Show);{運行"原文件.Cjt"} Application.Terminate;{退出程序} end else Application.MessageBox('密碼不對,請重新輸入！','密碼錯誤',MB_ICONERROR+MB_OK); 編譯這個程序，并把EXE文件改名為head.exe。新建一個文本文件head.rc, 內容為: head exefile head.exe,然后把它們拷貝到Delphi的BIN目錄下，執行 Dos命令Brcc32.exe head.rc,將產生一個head.res的文件，這個文件就是我們要 的資源文件，先留著。 我們的頭文件已經建立了，下面我們來建立添加程序。 新建一個工程，放上以下控件：一個Edit,一個Opendialog,兩個Button1的 Caption屬性分別設置為"選擇文件"和"加密"。 在源程序中添加一句:{$R head.res}并把head.res文件拷貝到程序當前目錄下。 這樣一來就把剛才的head.exe跟程序一起編譯了。 在Button1的Cilck事件里面寫下代碼： if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName; 在Button2的Cilck事件里面寫下代碼： var S:String; begin S:=ExtractFilePath(Edit1.Text); if ExtractRes('exefile','head',S+'head.exe') then if Cjt_AddtoFile(Edit1.Text,S+'head.exe') then if DeleteFile(Edit1.Text) then if RenameFile(S+'head.exe',Edit1.Text) then Application.MessageBox('文件加密成功!','信息',MB_ICONINFORMATION+MB_OK) else begin if FileExists(S+'head.exe') then DeleteFile(S+'head.exe'); Application.MessageBox('文件加密失敗!','信息',MB_ICONINFORMATION+MB_OK) end; end; 其中ExtractRes為自定義函數，它的作用是把head.exe從資源文件中取出來。 Function ExtractRes(ResType, ResName, ResNewName : String):boolean; var Res : TResourceStream; begin try Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType)); try Res.SavetoFile(ResNewName); Result:=true; finally Res.Free; end; except Result:=false; end; end; 注意：我們上面的函數只不過是簡單的把一個文件添加到另一個文件的尾部。 實際應用中可以改成可以添加多個文件，只要根據實際大小和個數定義好偏移 地址就可以了。比如說文件捆綁機就是把兩個或者多個程序添加到一個頭文件 里面。那些自解壓程序和安裝程序的原理也是一樣的，不過多了壓縮而已。 比如說我們可以引用一個LAH單元，把流壓縮后再添加，這樣文件就會變的很小。 讀出來時先解壓就可以了。 另外，文中EXE加密器的例子還有很多不完善的地方，比如說密碼固定為 "790617"，取出EXE運行后應該等它運行完畢后刪除等等，讀者可以自行修改。
