Научите пользоваться Winrar через Delphi

[Rec0il]

Здравствуйте!

Хотел бы, что бы вы объяснили, как пользоваться винраром через delphi, архивировать и разархивировать.
Архивировать у меня получилось! Но только определённые пути, те которые я впишу в shellexecute.

Каким образом, можно вставить путь из edit1 ?
Вот код:

ShellExecute(0, 'open', 'WinRAR.exe', 'a -r -ep1 d:\backup.rar d:\ggg\*.*',  nil,  SW_SHOW);

Пути в нем уже написаны.
d:\backup.rar - куда архивировать
d:\ggg\*.* - что архивировать

Каким образом мне сделать чтение путей из edit1 и edit2 ?
Пробовал с помощью Pchar, но видимо что-то не так делаю...

В общем 2 конкретных вопроса!
Как вставлять пути из edit1-2 в shellexecute?
Как разархивировать свой же архив ?

Заранее спасибо!

[ZuBy]

var 
a,b: PChar;

a := Pchar('d:\backup.rar');
b:=Pchar('d:\ggg\*.*');
ShellExecute(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b),  nil,  SW_SHOW);

[Rec0il]

Сообщение от ZuBy

var 
a,b: PChar;

a := Pchar('d:\backup.rar');
b:=Pchar('d:\ggg\*.*');
ShellExecute(0, 'open', 'WinRAR.exe', Pchar('a -r -ep1 '+a+' '+b),  nil,  SW_SHOW);

Спасибо! Сейчас на работе, домой приду - проверю!

Проверил - работает ! Спасибо, выручил)

[Kat1807]

Здравствуйте!
Возникла проблема
Использую Delphi 7. Мне нужно распаковать архив.

ShellExecute(0, 'open', 'WinRAR.exe', Pchar('e -y '+sPathZip+ '\' + fs.Name+' '+sPathExp),  nil,  SW_SHOW);

В обычных архивах rar все проходит нормально, но натолкнулась на случай, когда разархивация не происходит. Без ошибки, без сообщений.
Единственная разница с работающими случаями - тут архив из 2-х томов *.part1.rar и *.part2.rar. Больше никакой разницы не нашла. Путь выводится верный, имя файла-архива - тоже.
Что может мешать разархивации?