D7zTool是一个基于7-zip库开发的解压缩示例程序，除了应用程序本身，仅包含一个7z.dll

主要界面：

D7zTool示例程序demo的pas源码

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,D7zUtils,Dialogs, ComCtrls, StdCtrls, Menus;typeTForm1 = class(TForm)Edit1: TEdit;OpenDialog1: TOpenDialog;ListView1: TListView;btnOpenFile: TButton;PopupMenu1: TPopupMenu;N1: TMenuItem;SaveDialog1: TSaveDialog;procedure btnOpenFileClick(Sender: TObject);procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure ListView1DblClick(Sender: TObject);procedure N1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }FD7zipFile: TD7zipFile;procedure ShowPathItems(sPath: WideString);end;varForm1: TForm1;implementation
usessevenzip;{$R *.dfm}procedure TForm1.btnOpenFileClick(Sender: TObject);
beginif not OpenDialog1.Execute() then Exit;if not FD7zipFile.LoadFromFile(OpenDialog1.FileName) thenbeginShowMessage('打开失败');Exit;end;ShowPathItems('\\');
end;procedure TForm1.FormCreate(Sender: TObject);
beginFD7zipFile:=TD7zipFile.Create;
end;procedure TForm1.FormDestroy(Sender: TObject);
beginFD7zipFile.Free;
end;procedure TForm1.ListView1DblClick(Sender: TObject);
varsPath: WideString;
beginif ListView1.ItemFocused<>nil thenif Pos('2_', ListView1.ItemFocused.SubItems.Strings[1])=1 thenbeginsPath := ListView1.ItemFocused.Caption;if (sPath<>'.') and (sPath<>'..') and (FD7zipFile.CurrentItemPath<>'\\') thensPath := FD7zipFile.CurrentItemPath+sPath;ShowPathItems(sPath);end;
end;procedure TForm1.ShowPathItems(sPath: WideString);
varI: Integer;sList: TStrings;
beginListView1.Clear;//加文件夹sList := FD7zipFile.GetItems(sPath, 2);for I:=0 to sList.Count-1 dowith ListView1.Items.Add dobeginCaption := ExtractFileName(sList.Strings[I]);SubItems.Add('');SubItems.Add('2_文件夹');end;sList.Free;//加文件if sPath<>'' thensPath := FD7zipFile.CurrentItemPath;//转换为当前目录sList := FD7zipFile.GetItems(sPath, 1);for I:=0 to sList.Count-1 doif (sList.Strings[I]<>'.') and (sList.Strings[I]<>'..') thenwith ListView1.Items.Add dobeginCaption := ExtractFileName(sList.Strings[I]);SubItems.Add('');SubItems.Add('1_文件');end;sList.Free;Edit1.Text := FD7zipFile.CurrentItemPath;
end;procedure TForm1.N1Click(Sender: TObject);
varsFileName: WideString;
beginif ListView1.ItemFocused=nil then Exit;if Pos('1_', ListView1.ItemFocused.SubItems.Strings[1])<>1 then Exit;if not SaveDialog1.Execute then Exit;sFileName := ListView1.ItemFocused.Caption;if (FD7zipFile.CurrentItemPath<>'\\') thensFileName := FD7zipFile.CurrentItemPath+sFileName;FD7zipFile.ExtractItemToFile(sFileName, SaveDialog1.FileName);
end;end.

对应的dfm文件

object Form1: TForm1Left = 539Top = 114Width = 689Height = 412Caption = 'Form1'Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'MS Sans Serif'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object Edit1: TEditLeft = 40Top = 48Width = 616Height = 21TabOrder = 0endobject ListView1: TListViewLeft = 40Top = 80Width = 616Height = 281Columns = <itemCaption = '文件名'Width = 200enditemCaption = '大小'Width = 100enditemCaption = '类型'Width = 100enditemCaption = '修改时间'Width = 100enditemCaption = '属性'Width = 100end>RowSelect = TruePopupMenu = PopupMenu1TabOrder = 1ViewStyle = vsReportOnDblClick = ListView1DblClickendobject btnOpenFile: TButtonLeft = 40Top = 8Width = 75Height = 25Caption = '打开文件'TabOrder = 2OnClick = btnOpenFileClickendobject OpenDialog1: TOpenDialogLeft = 592Top = 48endobject PopupMenu1: TPopupMenuLeft = 328Top = 184object N1: TMenuItemCaption = '解压'OnClick = N1Clickendendobject SaveDialog1: TSaveDialogLeft = 456Top = 136end
end