Arc Gui (beta)

[oltjon]

win 10 64 bit

[JRD!]

The "arc.exe" file is needed, place the program in the folder that contains "arc.exe"

if you do not have the file download Masked Compression Archive.7z (by panker1992) then put the program in the folder where the compressors.

[felice2011]

Use the "ControlChars.Quote" module, to use as a constant for the character control.

Quick Example..

Dim id As String
id = Application.StartupPath & "\" & "Resources\Arc.exe"

Dim Method1 As String
Method1 = String.Format("a -s; -ep1 -di -i2 -r -ed -w.\_tmp " + Method_Text.Text + " {0} {1}", _
                        ControlChars.Quote & Out_Path.Text.ToString & ControlChars.Quote & _
                        ControlChars.Quote & In_Path.Text.ToString & ControlChars.Quote)

At the end of compression when you execute the specified delegate for the removal of temporary files, also eliminates files "arc.exe" & "arc.ini" .

[JRD!]

Originally Posted by felice2011

Use the "ControlChars.Quote" module, to use as a constant for the character control.

Quick Example..

Dim id As String
id = Application.StartupPath & "\" & "Resources\Arc.exe"

Dim Method1 As String
Method1 = String.Format("a -s; -ep1 -di -i2 -r -ed -w.\_tmp " + Method_Text.Text + " {0} {1}", _
                        ControlChars.Quote & Out_Path.Text.ToString & ControlChars.Quote & _
                        ControlChars.Quote & In_Path.Text.ToString & ControlChars.Quote)

At the end of compression when you execute the specified delegate for the removal of temporary files, also eliminates files "arc.exe" & "arc.ini" .

You try to compress the "C:\Windows", this is a place that requires an elevation of rights for some operations, some file are used by the system and protect in writing.

And in terms of deleting the files "arc.exe" and "arc.ini", do you specify the working folder (temp) in the same location where the program is located?

PS: My function for execute:

function ExecAndWait(const AFileName, AParameters: string; const ShowCmd: integer): Cardinal;
var
  ShellExecuteInfo: TShellExecuteInfoW;
begin
  Result := 0;

  FillChar(ShellExecuteInfo, SizeOf(ShellExecuteInfo), #0);
  ShellExecuteInfo.cbSize := SizeOf(TShellExecuteInfo);

  with ShellExecuteInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(AFileName);
    lpParameters := PChar(AParameters);
    lpDirectory := PChar(ExtractFilePath(AFileName));
    nShow := ShowCmd;
  end;

  if ShellExecuteEx(@ShellExecuteInfo) then
  begin
    repeat
      while WaitForSingleObject(ShellExecuteInfo.hProcess, 0) = WAIT_TIMEOUT do
       Application.ProcessMessages;
      GetExitCodeProcess(ShellExecuteInfo.hProcess, Result);
    until
    (ExitCode <> STILL_ACTIVE) or Application.Terminated;
  end;
end;