Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизАрхивы Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c