WebSVN – autosfx – Diff – /MakeSFX.dpr

 uses
   SysUtils,
   Windows,
   Classes,
   ZipMstr19,
+  Dialogs,
   Functions in 'Functions.pas',
   SFXBehavior in 'SFXBehavior.pas';
 const
   Extractor_EXE = 'Extractor.exe';
   SIGN_BAT = 'Tools\VTSSign.bat';
   ZIP_EXE = 'Tools\zip.exe';
   RemoveSignature_EXE = 'Tools\RemoveSignature.exe';
+procedure DoMakeSFX(AFilename: string);
 var
-  Src, Dst: string;
+  Dst: string;
-  i: integer;
   s1, s2: TFileStream;
   x: TZipMaster19;
 resourcestring
-  ImportantFileNotFound = 'Error: Important file "%s" not found!';
   LngErrorWhileCopy = 'Error: Could not copy "%s" to "%s".';
   LngErrorWhileExecuting = 'Error while executing "%s".';
   SourceFileNotFound = 'Source file "%s" not found.';
   Lng_In = 'Input:';
   Lng_Out = 'Output:';
   Lng_Append = 'Append ZIP to Extractor template...';
   Lng_Adjust = 'Adjust the ZIP offset of the SFX...';
   Lng_ModifyZIPComment = 'Modify ZIP Comment...';
   Lng_SignSfx = 'Sign the SFX...';
   Lng_Finished = 'Finished! :-)';
+begin
-  Lng_Title = 'ViaThinkSoft AutoSFX';
+  if not FileExists(AFilename) then
-  Lng_Usage1 = 'Usage:';
+  begin
-  Lng_Usage2 = 'MakeSFX [File1.zip [File2.zip...]]';
+    WriteLn(Format(SourceFileNotFound, [AFilename]));
+    {$IFDEF DELAY_ON_ERROR}
+    Sleep(2000);
+    {$ENDIF}
+    ExitCode := 1;
+    Exit;
+  end;
-{$R *.res}
+  Dst := ChangeFileExt(AFilename, '.exe');
-begin
-  WriteLn(Lng_Title);
-  WriteLn('');
-  WriteLn(Lng_Usage1);
+  WriteLn(Format(Lng_In+#9+'%s', [AFilename]));
-  WriteLn(Lng_Usage2);
+  WriteLn(Format(Lng_Out+#9+'%s', [Dst]));
   WriteLn('');
-  if not FileExists(ExtractFilePath(ParamStr(0)) + Extractor_EXE) then
+  if not RawFileCopy(ExtractFilePath(ParamStr(0)) + Extractor_EXE, Dst) then
   begin
-    WriteLn(Format(ImportantFileNotFound, [Extractor_EXE]));
+    WriteLn(Format(LngErrorWhileCopy, [Extractor_EXE, Dst]));
     {$IFDEF DELAY_ON_ERROR}
     Sleep(2000);
     {$ENDIF}
-    ExitCode := 2;
+    ExitCode := 1;
     Exit;
   end;
-  for i := 1 to ParamCount do
+ // Remove the signature of Extractor first (otherwise signing will fail later)
-  begin
-    Src := ParamStr(i);
-    if not FileExists(Src) then
+  WriteLn(#9 + Lng_RemoveSig);
+  if not ShellExecuteAndWait(ExtractFilePath(ParamStr(0)) + RemoveSignature_EXE, PChar('"' + ExpandUNCFileName(Dst) + '"')) then
-    begin
+  begin
-      WriteLn(Format(SourceFileNotFound, [Src]));
+    WriteLn(Format(LngErrorWhileExecuting, [RemoveSignature_EXE]));
+    {$IFDEF BREAK_ON_CERT_FAILURE}
+    DeleteFile(PChar(Dst));
-      {$IFDEF DELAY_ON_ERROR}
+    {$IFDEF DELAY_ON_ERROR}
-      Sleep(2000);
+    Sleep(2000);
-      {$ENDIF}
+    {$ENDIF}
-      ExitCode := 1;
+    ExitCode := 1;
-      Continue;
+    Exit;
+    {$ENDIF}
-    end;
+  end;
-    Dst := ChangeFileExt(Src, '.exe');
+  WriteLn(#9 + Lng_Append);
-    WriteLn(Format(Lng_In+#9+'%s', [Src]));
+  s1 := TFileStream.Create(Dst, fmOpenWrite);
-    WriteLn(Format(Lng_Out+#9+'%s', [Dst]));
+  try
-    WriteLn('');
+    s1.Seek(0, soEnd);
-    if not RawFileCopy(ExtractFilePath(ParamStr(0)) + Extractor_EXE, Dst) then
+    s2 := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyWrite);
-    begin
+    try
-      WriteLn(Format(LngErrorWhileCopy, [Extractor_EXE, Dst]));
-      {$IFDEF DELAY_ON_ERROR}
+      s1.CopyFrom(s2, s2.Size);
-      Sleep(2000);
-      {$ENDIF}
+    finally
-      ExitCode := 1;
-      Continue;
+      s2.Free;
     end;
+  finally
+    s1.Free;
+  end;
-   // Remove the signature of Extractor first (otherwise signing will fail later)
+  WriteLn(#9 + Lng_Adjust);
+  if not ShellExecuteAndWait(ExtractFilePath(ParamStr(0)) + ZIP_EXE, PChar('-A "' + ExpandUNCFileName(Dst) + '"')) then
+  begin
+    DeleteFile(PChar(Dst));
-    WriteLn(#9 + Lng_RemoveSig);
+    WriteLn(Format(LngErrorWhileExecuting, [ZIP_EXE]));
+    {$IFDEF DELAY_ON_ERROR}
+    Sleep(2000);
+    {$ENDIF}
+    ExitCode := 1;
+    Exit;
+  end;
-    if not ShellExecuteAndWait(ExtractFilePath(ParamStr(0)) + RemoveSignature_EXE, PChar('"' + ExpandUNCFileName(Dst) + '"')) then
-    begin
-      WriteLn(Format(LngErrorWhileExecuting, [RemoveSignature_EXE]));
-      {$IFDEF BREAK_ON_CERT_FAILURE}
-      DeleteFile(PChar(Dst));
+  WriteLn(#9 + Lng_ModifyZIPComment);
-      {$IFDEF DELAY_ON_ERROR}
-      Sleep(2000);
-      {$ENDIF}
-      ExitCode := 1;
-      Continue;
-      {$ENDIF}
-    end;
-    WriteLn(#9 + Lng_Append);
+  x := TZipMaster19.Create(nil);
+  try
+    x.ZipFileName := Dst;
-    s1 := TFileStream.Create(Dst, fmOpenWrite);
-    try
-      s1.Seek(0, soEnd);
+    // Correct CRLFs
-      s2 := TFileStream.Create(Src, fmOpenRead or fmShareDenyWrite);
+    x.ZipComment := NormalizeLineBreaks(x.ZipComment, lbWindows);
-      try
-        s1.CopyFrom(s2, s2.Size);
-      finally
-        s2.Free;
-      end;
-    finally
-      s1.Free;
-    end;
-    WriteLn(#9 + Lng_Adjust);
+    // Ensure we have 2 CRLF before old comment
-    if not ShellExecuteAndWait(ExtractFilePath(ParamStr(0)) + ZIP_EXE, PChar('-A "' + ExpandUNCFileName(Dst) + '"')) then
+    x.ZipComment := TrimRight(x.ZipComment);
+    if x.ZipComment <> '' then
     begin
-      DeleteFile(PChar(Dst));
-      WriteLn(Format(LngErrorWhileExecuting, [ZIP_EXE]));
+      x.ZipComment := x.ZipComment + #13#10 + #13#10;
-      {$IFDEF DELAY_ON_ERROR}
-      Sleep(2000);
-      {$ENDIF}
-      ExitCode := 1;
-      Continue;
     end;
-    WriteLn(#9 + Lng_ModifyZIPComment);
-    x := TZipMaster19.Create(nil);
+    // Read, strip and re-add behavior (inclusive signature)
-    try
-      x.ZipFileName := Dst;
+    x.ZipComment := RelocateBehaviorStringsToEnd(x.ZipComment);
+  finally
-      // Correct CRLFs
+    x.Free;
+  end;
+  // Read filesize + zip-comment length
+  // (So we can later extend the zip-comment to include the certificate
-      x.ZipComment := NormalizeLineBreaks(x.ZipComment, lbWindows);
+  // => The archive is then not corrupt because of 'garbage' at the end)
-      // Ensure we have 2 CRLF before old comment
+  WriteLn(#9 + Lng_SignSfx);
+  if not ShellExecuteAndWait(ExtractFilePath(ParamStr(0)) + SIGN_BAT, PChar('"' + ExpandUNCFileName(Dst) + '"')) then
+  begin
-      x.ZipComment := TrimRight(x.ZipComment);
+    WriteLn(Format(LngErrorWhileExecuting, [SIGN_BAT]));
+    {$IFDEF BREAK_ON_CERT_FAILURE}
-      if x.ZipComment <> '' then
+    DeleteFile(PChar(Dst));
+    {$IFDEF DELAY_ON_ERROR}
+    Sleep(2000);
-      begin
+    {$ENDIF}
-        x.ZipComment := x.ZipComment + #13#10 + #13#10;
+    ExitCode := 1;
+    Exit;
+    {$ENDIF}
-      end;
+  end;
-      // Read, strip and re-add behavior (inclusive signature)
+  WriteLn(#9 + Lng_Finished);
+  WriteLn('');
+end;
-      x.ZipComment := RelocateBehaviorStringsToEnd(x.ZipComment);
-    finally
-      x.Free;
+{$R *.res}
-    end;
+var
+  i: integer;
+  od: TOpenDialog;
+resourcestring
-    // Read filesize + zip-comment length
+  Lng_Title = 'ViaThinkSoft AutoSFX';
+  Lng_Usage1 = 'Usage:';
-    // (So we can later extend the zip-comment to include the certificate
+  Lng_Usage2 = 'MakeSFX [File1.zip [File2.zip...]]';
-    // => The archive is then not corrupt because of 'garbage' at the end)
+  ImportantFileNotFound = 'Error: Important file "%s" not found!';
+begin
+  WriteLn(Lng_Title);
+  WriteLn('');
+  WriteLn(Lng_Usage1);
+  WriteLn(Lng_Usage2);
+  WriteLn('');
+  if not FileExists(ExtractFilePath(ParamStr(0)) + Extractor_EXE) then
+  begin
+    WriteLn(Format(ImportantFileNotFound, [Extractor_EXE]));
-    WriteLn(#9 + Lng_SignSfx);
+    {$IFDEF DELAY_ON_ERROR}
+    Sleep(2000);
+    {$ENDIF}
+    ExitCode := 2;
+    Exit;
+  end;
+  if ParamCount = 0 then
+  begin
+    od := TOpenDialog.Create(nil);
+    try
+      od.DefaultExt := '.zip';
-    if not ShellExecuteAndWait(ExtractFilePath(ParamStr(0)) + SIGN_BAT, PChar('"' + ExpandUNCFileName(Dst) + '"')) then
+      od.Filter := 'ZIP-Archiv (*.zip)|*.zip|Alle Dateien (*.*)|*.*';
+      od.Options := [ofAllowMultiSelect, ofFileMustExist, ofHideReadOnly,
+        ofPathMustExist, ofEnableSizing];
+      if od.Execute then
+      begin
+        for i := 0 to od.Files.Count - 1 do
+        begin
+          DoMakeSFX(od.Files.Strings[i]);
+        end;
+      end;
+    finally
+      od.Free;
+    end;
+  end
+  else
+  begin
+    for i := 1 to ParamCount do
     begin
-      WriteLn(Format(LngErrorWhileExecuting, [SIGN_BAT]));
-      {$IFDEF BREAK_ON_CERT_FAILURE}
-      DeleteFile(PChar(Dst));
+      DoMakeSFX(ParamStr(i));
-      {$IFDEF DELAY_ON_ERROR}
-      Sleep(2000);
-      {$ENDIF}
-      ExitCode := 1;
-      Continue;
-      {$ENDIF}
     end;
-    WriteLn(#9 + Lng_Finished);
-    WriteLn('');
   end;
   // TODO: Es gibt bei Win2000 außerhalb des debuggers eine AV...
 end.

Subversion Repositories autosfx

autosfx/MakeSFX.dpr – Rev 1 → 4