Архивы

← →
DMN (2003-06-01 13:28) [0]

Как можно работать с архивами RAR? Хотя-бы просто извлечение.

← →
andrey_pst © (2003-06-01 14:13) [1]

function AddToRAR(RarVisible : boolean; RarDir, RarFileName, RarCommand, ArchiveName, FileNames, RarOptions : string) : integer;
var
PChTmp : PChar; // командная строка
ExitCode : dword; // код возврата архиватора
si : STARTUPINFO;
pi : PROCESS_INFORMATION;
ErrorWavFileName : PChar;
begin
PChTmp := PChar(RarDir + RarFileName + " " + RarCommand + " " + ArchiveName + " " + FileNames + " " + RarOptions);
ZeroMemory(@si, sizeof(si));
si.cb := SizeOf(si); // размер структуры в байтах
si.dwFlags := STARTF_USESHOWWINDOW;
if RarVisible then
si.wShowWindow := SW_SHOWNOACTIVATE // окно видимо и неактивно
else
si.wShowWindow := SW_HIDE; // окно невидимо
if not CreateProcess(nil, PChTmp, nil, nil, false, 0, nil, nil, si, pi) then // запустим rar.exe
ExitCode := 999 // не удалось создать процесс
else
begin
WaitForSingleObject(pi.hProcess, INFINITE); // ждем окончания процесса
GetExitCodeProcess(pi.hProcess, ExitCode); // получаем код возврата
end;
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);

// посмотрим, что вернул архиватор
case ExitCode of
999 :
...

← →
JibSkeart © (2003-06-01 14:13) [2]

Берешь unrar.dll
ищещь описаловки функций и вперед ...

← →
DMN (2003-06-01 14:29) [3]

JibSkeart: Хороший ответ на вопрос!!!. А где?

Там где у тебя WinRAR установлен

← →
Amoeba (2003-06-02 16:35) [5]

Библиотека ZipTV. К кряком нойдешь на http://www.hot.ee/compcoll/vcl.htm

Архивы Найти похожие ветки