1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

procedure Join (Main_FileName, Hidden_Filename : string);
var
 MainFile    : TFileStream;
 HiddenFile  : TFileStream;
 SizeOfFile  : Cardinal;
 SearchWord  : string[10];
begin
 MainFile       := TFileStream.Create(Main_FileName, fmOpenReadWrite or fmShareDenyWrite);
 try
   SizeOfFile     := MainFile.Size;
   HiddenFile     := TFileStream.Create(Hidden_Filename, fmOpenRead or fmShareDenyNone);
   try
     MainFile.Seek(0, soFromEnd);
     MainFile.CopyFrom(HiddenFile, 0);
     MainFile.Seek(0, soFromEnd);
   finally
    HiddenFile.Free;
   end;
   SearchWord := IntToStr(SizeOfFile) + #0;
   MainFile.Seek(0, soFromEnd);
   MainFile.WriteBuffer(SearchWord, SizeOf(SearchWord));
 finally
  MainFile.Free;
 end;
end;

procedure Split(Main_FileName, NewFromMain_Filename : string);
var
 MainFile  : TFileStream;
 SplitFile : TFileStream;
 HelpStr   : string[10];
 GetSize   : integer;
begin
 MainFile    := TFileStream.create(Main_FileName, fmOpenReadWrite or fmShareDenyWrite);
 try
   SplitFile := TFileStream.Create(NewFromMain_Filename, fmCreate or fmShareDenyNone);
   try
     MainFile.Position   := MainFile.Size - 11;
     MainFile.Read(HelpStr, 10);
     GetSize := StrToInt(HelpStr);
     MainFile.Position := GetSize;
     SplitFile.CopyFrom(MainFile, MainFile.Size-GetSize);
     SplitFile.Size := SplitFile.Size - 11;
     MainFile.Size :=  GetSize;
   finally
    SplitFile.Free;
   end;
 finally
  MainFile.Free;
 end;
end;                    

1:

  Join('C:\Datei.exe', 'C:\ReadMe.txt');                    

1:

  Split('C:\Datei.exe', 'C:\TheHidden.txt');                    

1:

[Fataler Fehler] ZipMstr.pas(29): Datei nicht gefunden: 'ZipSFX.dcu'                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm15.btnSavePaketClick(Sender: TObject);
var ProgrammOrdner : String;
var res: Integer;

ds: TSearchRec;



begin
ProgrammOrdner:=ExtractFilePath(application.ExeName);
with SaveDialog1 do
  begin
    FileName:= Form1.lblKontakt.Caption + '.tdt';
    Title:='Datenaustauschdatei Speichern unter:';
    Filter:='EST Terminator Datentauschdatei (TDT)|*.TDT';
    defaultExt:='TDT';
    InitialDir:=ExtractFilePath(ParamStr(0));
    if Execute then
    begin
      //Mach was
       
          Zipmaster1.DLLDirectory:=ExtractFilePath(ParamStr(0));
          Zipmaster1.ZipFilename:=ExtractFilePath(ParamStr(0))+ 'Test.zip';
          

          res := FindFirst(ProgrammOrdner + 'Data\' + Form1.lblKontakt.caption + '\*.estt',faAnyFile,ds);
          while(res =0) do begin
          //Dem Archiv hinzufügen
          Zipmaster1.FSpecArgs.Add(ds.name);
          res := FindNext(ds);
          end;
          FindClose(ds);

          Zipmaster1.Add;


        
       
     end
    else
       exit;
    end;



end;                    

1:
2:
3:
4:
5:
6:
7:

res := FindFirst(ProgrammOrdner + 'Data\' + Form1.lblKontakt.caption + '\*.estt',faAnyFile,ds); 
          while(res =0) do begin 
          //Dem Archiv hinzufügen 
          Zipmaster1.FSpecArgs.Add(ds.name); 
          res := FindNext(ds); 
          end; 
          FindClose(ds);