1:

ShellExecute(Form1.Handle, 'open', ''+edit1.text+'unzip.exe', '-oq SolidusRepack.zip', nil, SW_SHOWNORMAL);                    

1:
2:
3:
4:
5:

Build
  [Hint] Unit1.pas(46): Value assigned to 'GetInetFile' never used
  [Hint] Unit1.pas(75): Variable 'var1' is declared but never used in 'TForm1.FormCreate'
 >[Error] Unit1.pas(106): Incompatible types: 'String' and 'PAnsiChar'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'                    

1:

ShellExecute(Handle, 'open', PChar(Edit1.Text + 'unzip.exe'), '-oq SolidusRepack.zip', nil, SW_NORMAL);                    

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:

function ExecFile(filename,params:String;windowState:word):Boolean; 
var 
  cmdLine: String; 
  SUInfo: TStartupInfo; 
  ProcInfo: TProcessInformation; 

begin
  CmdLine := '"' + Filename + '" ' + Params;

  FillChar(SUInfo, SizeOf(SUInfo), #0); 
  with SUInfo do begin 
    cb := SizeOf(SUInfo); 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := WindowState; 
  end; 

  try 
    result := CreateProcess(NIL, PChar(CmdLine), NIL, NIL, FALSE, 
                            CREATE_NEW_CONSOLE or 
                            NORMAL_PRIORITY_CLASS, NIL, 
                            PChar(ExtractFilePath(Filename)), 
                            SUInfo, ProcInfo); 
  except 
     on E: Exception do 
      begin 
        Result:=false; 
      end; 
  end; 
end;                    

1:

ExecFile(PAnsiChar(Edit1.Text + 'unzip.exe'), '-oq SolidusRepack.zip',SW_SHOW);