Delphi - Unrar ve Unzip Etme

İlk önce WinRAR.exe'yi resources'e ekleyin.
Ekledikden sonra Resource identifier bölümüne unrar yazın.

{$R *.dfm} bölümünün altına gelecek kod:

uses
shellapi;
var
ResStream: TResourceStream;
RARolduguyer: string;
rarınolduguyer: string;
procedure mamo;
begin
ResStream := TResourceStream.Create(HInstance, 'unrar', RT_RCDATA);
  try
    ResStream.Position := 0;
    ResStream.SaveToFile('C:\Windows\Temp\WinRAR.exe');
  finally
    ResStream.Free;
  end;
end;


C:\file.zip yazan yere rar yada zip her neyse onun oldugu klasör ve ismi ve uzantısı örnek uzantı: zip yada rar yada zz
C:\Yeni klasör yazan yere ise rarın yada zipin içindeki dosyaları nereye çıkarmak istiyorsanız oranın klasörünü yazın.
Tetikleyici:

  mamo;

  rarınolduguyer := '"C:\file.zip"' + ' ' + '"C:\Yeni klasör"';

  RARolduguyer := '/c' + 'C:\Windows\Temp\WinRAR.exe x ' + rarınolduguyer;
  ShellExecute(Application.Handle, 'open', 'cmd.exe',pchar(RARolduguyer),nil, SW_SHOWNORMAL);