ejecutar programas DOS

[Loviedo]

No se si es esto lo que buscas.

Código Delphi [-]
procedure TForm1.CopiaSeguridadDB1Click(Sender: TObject);
var
  mCompresor,mArgumentoC,mArgumentoR: string;
begin
  mCompresor  := 'C:\Archivos de Programa\Winrar\Winrar.exe';
  mArgumentoC := 'a -v -vd A:\Copiaseg C:\Carbatex\Db\*.*';
  mArgumentoR := 'e -v A:\Copiaseg C:\Carbatex\Db';
  ShellExecute(Form1.Handle,nil,PChar(mCompresor),Pchar(mArgumentoC),'',SW_SHOWNORMAL)
end;

No olviadr poner en Uses la unidad ShellApi.
Saludos.