Скачать: CL | DM;

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

← →
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: Хороший ответ на вопрос!!!. А где?

---

← →
Song ©   (2003-06-01 14:39) [4]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c