[Request] 7z.dll в Delphi с KOL

[Darth Revan]

Нужны примеры использования библиотеки 7z.dll на Delphi (только распаковка) без использования всяких Classes, SysUtils и т.д.
Если можно, то хорошо было бы ещё вообще без Dll prankster.

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

[$t@t!c_V()1D]

Тебе точно нужен KOL для этого?

SevenZipExample_PhxMainDLL.7z

(8.76 КБ) 447 скачиваний

SevenZipExample_PhxMainDLL.7z

(8.76 КБ) 447 скачиваний

Вот пример использования в Phx не самый кошерный, конечно, но, думаю, сойдёт) И да, DLL нужна.

[Darth Revan]

$t@t!c_V()1D
Спасибо.

Код: Выделить всё

uses windows, KOL, sysutils;

Переделал немного (зачем ему SysUtils?). Теперь работает и на Delphi 2010

[Darth Revan]

А как с ним работать?

Код: Выделить всё

function ExtractSevenZip(FileName, ExtractDir: AnsiString): AnsiString;
begin
    If LoadSevenZipDLL(ExtractFilePath(ParamStr(0))+'7_zip32.dll') then
SevenZipExtractArchive(0, FileName, '*.*', True, '', True, ExtractDir, Result, False, nil);
end;

Ничего не распаковывает.

[$t@t!c_V()1D]

Странно. Под отладчиком смотрел, почему?

[Darth Revan]

$t@t!c_V()1D
Написано 7_zip32.dll, а надо 7-zip32.dll %).

Посмотрел - сколько весит 7-zip32.dll (506Кб) и понял, что лучше 7z.exe + 7z.dll (130Кб) %).

[$t@t!c_V()1D]

7z.exe + 7z.dll

У меня последнему чего-то не хватало, когда я её"на борт" брал.