1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

 
Procedure Use_Regedit(V_File,V_Key:String);
Var V_Parameter:String;
Begin
  If FileExists(V_File) Then DeleteFile(V_File);

  //V_Parameter:='/a ' + V_File + ' ' + '"' + V_Key + '"';
  V_Parameter:='/e ' + V_File + ' ' + '"' + V_Key + '"';

  ShellExecAndWait('regedit.exe',V_Parameter);
  //zB: regedit /e hklm-sw.reg "HKEY_LOCAL_MACHINE\Software"
End;					

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:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:

 
  If IsUserAnAdmin
  then Begin
    If Form1.SaveDialog1.Execute Then
    Begin
      Use_Regedit(GetTempDir + 'temp1.txt',C_Key1);
      Use_Regedit(GetTempDir + 'temp2.txt',C_Key2);


      AssignFile(Datei_In,GetTempDir + 'temp1.txt');
      {$I-}
      Reset(Datei_In);
      {$I+}

      AssignFile(Datei_Out,Form1.SaveDialog1.FileName);
      {$I-}
      Rewrite(Datei_Out);
      {$I+}


      if IOResult = 0 then Begin

        Readln(Datei_In);
{
        while not Eof(Datei_In) do
        begin
          Readln(Datei_In, V_Zeile);
          Writeln(Datei_Out, String_Normalisirung(V_Zeile));   //String_Normalisirung
        end;
}
        V_BS_Anzahl:=0;

        while not Eof(Datei_In) do
        begin
          Read(Datei_In, V_Ch);
          If V_Ch = '' then
          Else Begin
            If V_Ch='\'
            Then Inc(V_BS_Anzahl)
            Else V_BS_Anzahl:=0;

            If V_BS_Anzahl > 1 Then
            Else Write(Datei_Out, V_Ch);
          End;

        end;

        CloseFile(Datei_In);
        CloseFile(Datei_Out);
      End;

      AssignFile(Datei_In,GetTempDir + 'temp2.txt');
      {$I-}
      Reset(Datei_In);
      {$I+}

      AssignFile(Datei_Out,Form1.SaveDialog1.FileName);
      {$I-}
      Append(Datei_Out);
      {$I+}

      if IOResult = 0 then Begin
        Readln(Datei_In);
{
        while not Eof(Datei_In) do
        begin
          Readln(Datei_In, V_Zeile);
          Writeln(Datei_Out, V_Zeile);  //String_Normalisirung
        end;
}

{
        while not Eof(Datei_In) do
        begin
          Read(Datei_In, V_Ch);
          If V_Ch = '' then
          Else Write(Datei_Out, V_Ch);
        end;
}

        V_BS_Anzahl:=0;

        while not Eof(Datei_In) do
        begin
          Read(Datei_In, V_Ch);
          If V_Ch = '' then
          Else Begin
            If V_Ch='\'
            Then Inc(V_BS_Anzahl)
            Else V_BS_Anzahl:=0;

            If V_BS_Anzahl > 1 Then
            Else Write(Datei_Out, V_Ch);
          End;
        End;

        CloseFile(Datei_In);
        CloseFile(Datei_Out);
      end;
 
      Del_Temp;

      Form1.close;
    End;
  End Else Begin
    Meldung_no_Admin;
    Form1.close;
  End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure Concate(const AFirstFile, ASecondFile, AOutputFile: string);
var
  ms: TMemoryStream;
  p: pointer;
  cb: int64;
begin
  ms := TMemoryStream.Create;
  ms.LoadFromFile(ASecondFile);
  GetMem(p, ms.size);
  cb := ms.Size;
  move(ms.memory^, p^, ms.Size);
  ms.LoadFromFile(AFirstFile);
  ms.Seek(ms.Size, 0);
  ms.Write(p^, cb);
  ms.SaveToFile(AOutputFile);
  ms.Free;
  freemem(p);
end;