Subversion Repositories autosfx

Rev

Rev 1 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 4
Line 8... Line 8...
8 
uses
 8 
uses
9 
  SysUtils,
 9 
  SysUtils,
10 
  Windows,
 10 
  Windows,
11 
  Classes,
 11 
  Classes,
12 
  ZipMstr19,
 12 
  ZipMstr19,
- 
 
 13 
  Dialogs,
13 
  Functions in 'Functions.pas',
 14 
  Functions in 'Functions.pas',
14 
  SFXBehavior in 'SFXBehavior.pas';
 15 
  SFXBehavior in 'SFXBehavior.pas';
15 
 
 16 
 
16 
const
 17 
const
17 
  Extractor_EXE = 'Extractor.exe';
 18 
  Extractor_EXE = 'Extractor.exe';
18 
  SIGN_BAT = 'Tools\VTSSign.bat';
 19 
  SIGN_BAT = 'Tools\VTSSign.bat';
19 
  ZIP_EXE = 'Tools\zip.exe';
 20 
  ZIP_EXE = 'Tools\zip.exe';
20 
  RemoveSignature_EXE = 'Tools\RemoveSignature.exe';
 21 
  RemoveSignature_EXE = 'Tools\RemoveSignature.exe';
21 
 
 22 
 
- 
 
 23 
procedure DoMakeSFX(AFilename: string);
22 
var
 24 
var
23 
  Src, Dst: string;
 25 
  Dst: string;
24 
  i: integer;
 - 
 
25 
  s1, s2: TFileStream;
 26 
  s1, s2: TFileStream;
26 
  x: TZipMaster19;
 27 
  x: TZipMaster19;
27 
 
 - 
 
28 
resourcestring
 28 
resourcestring
29 
  ImportantFileNotFound = 'Error: Important file "%s" not found!';
 - 
 
30 
  LngErrorWhileCopy = 'Error: Could not copy "%s" to "%s".';
 29 
  LngErrorWhileCopy = 'Error: Could not copy "%s" to "%s".';
31 
  LngErrorWhileExecuting = 'Error while executing "%s".';
 30 
  LngErrorWhileExecuting = 'Error while executing "%s".';
32 
  SourceFileNotFound = 'Source file "%s" not found.';
 31 
  SourceFileNotFound = 'Source file "%s" not found.';
33 
  Lng_In = 'Input:';
 32 
  Lng_In = 'Input:';
34 
  Lng_Out = 'Output:';
 33 
  Lng_Out = 'Output:';
Line 36... Line 35...
36 
  Lng_Append = 'Append ZIP to Extractor template...';
 35 
  Lng_Append = 'Append ZIP to Extractor template...';
37 
  Lng_Adjust = 'Adjust the ZIP offset of the SFX...';
 36 
  Lng_Adjust = 'Adjust the ZIP offset of the SFX...';
38 
  Lng_ModifyZIPComment = 'Modify ZIP Comment...';
 37 
  Lng_ModifyZIPComment = 'Modify ZIP Comment...';
39 
  Lng_SignSfx = 'Sign the SFX...';
 38 
  Lng_SignSfx = 'Sign the SFX...';
40 
  Lng_Finished = 'Finished! :-)';
 39 
  Lng_Finished = 'Finished! :-)';
41 
  Lng_Title = 'ViaThinkSoft AutoSFX';
 - 
 
42 
  Lng_Usage1 = 'Usage:';
 - 
 
43 
  Lng_Usage2 = 'MakeSFX [File1.zip [File2.zip...]]';
 - 
 
44 
 
 - 
 
45 
{$R *.res}
 - 
 
46 
 
 - 
 
47 
begin
 40 
begin
48 
  WriteLn(Lng_Title);
 - 
 
49 
  WriteLn('');
 - 
 
50 
  WriteLn(Lng_Usage1);
 - 
 
51 
  WriteLn(Lng_Usage2);
 - 
 
52 
  WriteLn('');
 - 
 
53 
 
 - 
 
54 
  if not FileExists(ExtractFilePath(ParamStr(0)) + Extractor_EXE) then
 41 
  if not FileExists(AFilename) then
55 
  begin
 42 
  begin
56 
    WriteLn(Format(ImportantFileNotFound, [Extractor_EXE]));
 - 
 
57 
    {$IFDEF DELAY_ON_ERROR}
 - 
 
58 
    Sleep(2000);
 - 
 
59 
    {$ENDIF}
 - 
 
60 
    ExitCode := 2;
 - 
 
61 
    Exit;
 - 
 
62 
  end;
 - 
 
63 
 
 - 
 
64 
  for i := 1 to ParamCount do
 - 
 
65 
  begin
 - 
 
66 
    Src := ParamStr(i);
 - 
 
67 
 
 - 
 
68 
    if not FileExists(Src) then
 - 
 
69 
    begin
 - 
 
70 
      WriteLn(Format(SourceFileNotFound, [Src]));
 43 
    WriteLn(Format(SourceFileNotFound, [AFilename]));
71 
      {$IFDEF DELAY_ON_ERROR}
 44 
    {$IFDEF DELAY_ON_ERROR}
72 
      Sleep(2000);
 45 
    Sleep(2000);
73 
      {$ENDIF}
 46 
    {$ENDIF}
74 
      ExitCode := 1;
 47 
    ExitCode := 1;
75 
      Continue;
 48 
    Exit;
76 
    end;
 49 
  end;
77 
 
 50 
 
78 
    Dst := ChangeFileExt(Src, '.exe');
 51 
  Dst := ChangeFileExt(AFilename, '.exe');
79 
 
 52 
 
80 
    WriteLn(Format(Lng_In+#9+'%s', [Src]));
 53 
  WriteLn(Format(Lng_In+#9+'%s', [AFilename]));
81 
    WriteLn(Format(Lng_Out+#9+'%s', [Dst]));
 54 
  WriteLn(Format(Lng_Out+#9+'%s', [Dst]));
82 
    WriteLn('');
 55 
  WriteLn('');
83 
 
 56 
 
84 
    if not RawFileCopy(ExtractFilePath(ParamStr(0)) + Extractor_EXE, Dst) then
 57 
  if not RawFileCopy(ExtractFilePath(ParamStr(0)) + Extractor_EXE, Dst) then
85 
    begin
 58 
  begin
86 
      WriteLn(Format(LngErrorWhileCopy, [Extractor_EXE, Dst]));
 59 
    WriteLn(Format(LngErrorWhileCopy, [Extractor_EXE, Dst]));
87 
      {$IFDEF DELAY_ON_ERROR}
 60 
    {$IFDEF DELAY_ON_ERROR}
88 
      Sleep(2000);
 61 
    Sleep(2000);
89 
      {$ENDIF}
 62 
    {$ENDIF}
90 
      ExitCode := 1;
 63 
    ExitCode := 1;
91 
      Continue;
 64 
    Exit;
92 
    end;
 65 
  end;
93 
 
 66 
 
94 
   // Remove the signature of Extractor first (otherwise signing will fail later)
 67 
 // Remove the signature of Extractor first (otherwise signing will fail later)
95 
 
 68 
 
96 
    WriteLn(#9 + Lng_RemoveSig);
 69 
  WriteLn(#9 + Lng_RemoveSig);
Line 102... Line 75...
102 
      DeleteFile(PChar(Dst));
 75 
    DeleteFile(PChar(Dst));
103 
      {$IFDEF DELAY_ON_ERROR}
 76 
    {$IFDEF DELAY_ON_ERROR}
104 
      Sleep(2000);
 77 
    Sleep(2000);
105 
      {$ENDIF}
 78 
    {$ENDIF}
106 
      ExitCode := 1;
 79 
    ExitCode := 1;
107 
      Continue;
 80 
    Exit;
108 
      {$ENDIF}
 81 
    {$ENDIF}
109 
    end;
 82 
  end;
110 
 
 83 
 
111 
    WriteLn(#9 + Lng_Append);
 84 
  WriteLn(#9 + Lng_Append);
112 
 
 85 
 
113 
    s1 := TFileStream.Create(Dst, fmOpenWrite);
 86 
  s1 := TFileStream.Create(Dst, fmOpenWrite);
114 
    try
 87 
  try
115 
      s1.Seek(0, soEnd);
 88 
    s1.Seek(0, soEnd);
116 
 
 89 
 
117 
      s2 := TFileStream.Create(Src, fmOpenRead or fmShareDenyWrite);
 90 
    s2 := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyWrite);
118 
      try
 91 
    try
119 
        s1.CopyFrom(s2, s2.Size);
 92 
      s1.CopyFrom(s2, s2.Size);
120 
      finally
 93 
    finally
121 
        s2.Free;
 94 
      s2.Free;
122 
      end;
 95 
    end;
Line 132... Line 105...
132 
      WriteLn(Format(LngErrorWhileExecuting, [ZIP_EXE]));
 105 
    WriteLn(Format(LngErrorWhileExecuting, [ZIP_EXE]));
133 
      {$IFDEF DELAY_ON_ERROR}
 106 
    {$IFDEF DELAY_ON_ERROR}
134 
      Sleep(2000);
 107 
    Sleep(2000);
135 
      {$ENDIF}
 108 
    {$ENDIF}
136 
      ExitCode := 1;
 109 
    ExitCode := 1;
137 
      Continue;
 110 
    Exit;
138 
    end;
 111 
  end;
139 
 
 112 
 
140 
    WriteLn(#9 + Lng_ModifyZIPComment);
 113 
  WriteLn(#9 + Lng_ModifyZIPComment);
141 
 
 114 
 
142 
    x := TZipMaster19.Create(nil);
 115 
  x := TZipMaster19.Create(nil);
Line 175... Line 148...
175 
      DeleteFile(PChar(Dst));
 148 
    DeleteFile(PChar(Dst));
176 
      {$IFDEF DELAY_ON_ERROR}
 149 
    {$IFDEF DELAY_ON_ERROR}
177 
      Sleep(2000);
 150 
    Sleep(2000);
178 
      {$ENDIF}
 151 
    {$ENDIF}
179 
      ExitCode := 1;
 152 
    ExitCode := 1;
180 
      Continue;
 153 
    Exit;
181 
      {$ENDIF}
 154 
    {$ENDIF}
182 
    end;
 155 
  end;
183 
 
 156 
 
184 
    WriteLn(#9 + Lng_Finished);
 157 
  WriteLn(#9 + Lng_Finished);
185 
    WriteLn('');
 158 
  WriteLn('');
186 
  end;
 159 
end;
187 
 
 160 
 
- 
 
 161 
{$R *.res}
- 
 
 162 
 
- 
 
 163 
var
- 
 
 164 
  i: integer;
- 
 
 165 
  od: TOpenDialog;
- 
 
 166 
resourcestring
- 
 
 167 
  Lng_Title = 'ViaThinkSoft AutoSFX';
- 
 
 168 
  Lng_Usage1 = 'Usage:';
- 
 
 169 
  Lng_Usage2 = 'MakeSFX [File1.zip [File2.zip...]]';
- 
 
 170 
  ImportantFileNotFound = 'Error: Important file "%s" not found!';
- 
 
 171 
begin
- 
 
 172 
  WriteLn(Lng_Title);
- 
 
 173 
  WriteLn('');
- 
 
 174 
  WriteLn(Lng_Usage1);
- 
 
 175 
  WriteLn(Lng_Usage2);
- 
 
 176 
  WriteLn('');
- 
 
 177 
 
- 
 
 178 
  if not FileExists(ExtractFilePath(ParamStr(0)) + Extractor_EXE) then
- 
 
 179 
  begin
- 
 
 180 
    WriteLn(Format(ImportantFileNotFound, [Extractor_EXE]));
- 
 
 181 
    {$IFDEF DELAY_ON_ERROR}
- 
 
 182 
    Sleep(2000);
- 
 
 183 
    {$ENDIF}
- 
 
 184 
    ExitCode := 2;
- 
 
 185 
    Exit;
- 
 
 186 
  end;
- 
 
 187 
 
- 
 
 188 
  if ParamCount = 0 then
- 
 
 189 
  begin
- 
 
 190 
    od := TOpenDialog.Create(nil);
- 
 
 191 
    try
- 
 
 192 
      od.DefaultExt := '.zip';
- 
 
 193 
      od.Filter := 'ZIP-Archiv (*.zip)|*.zip|Alle Dateien (*.*)|*.*';
- 
 
 194 
      od.Options := [ofAllowMultiSelect, ofFileMustExist, ofHideReadOnly,
- 
 
 195 
        ofPathMustExist, ofEnableSizing];
- 
 
 196 
      if od.Execute then
- 
 
 197 
      begin
- 
 
 198 
        for i := 0 to od.Files.Count - 1 do
- 
 
 199 
        begin
- 
 
 200 
          DoMakeSFX(od.Files.Strings[i]);
- 
 
 201 
        end;
- 
 
 202 
      end;
- 
 
 203 
    finally
- 
 
 204 
      od.Free;
- 
 
 205 
    end;
- 
 
 206 
  end
- 
 
 207 
  else
- 
 
 208 
  begin
- 
 
 209 
    for i := 1 to ParamCount do
- 
 
 210 
    begin
- 
 
 211 
      DoMakeSFX(ParamStr(i));
- 
 
 212 
    end;
- 
 
 213 
  end;
- 
 
 214 
 
188 
  // TODO: Es gibt bei Win2000 außerhalb des debuggers eine AV...
 215 
  // TODO: Es gibt bei Win2000 außerhalb des debuggers eine AV...
189 
end.
 216 
end.