level 6
试试7z.dll
2015年03月29日 14点03分
level 14
2
我说的arc...
2015年03月30日 13点03分
回复 MinunDB :用这个看看
2015年04月02日 05点04分
回复 MinunDB :还有ZipTV也可以解压arc文件。
2015年04月02日 06点04分
level 14
level 14
var
Form1: TForm1;
Handle: THandle;
FreeArcExtract: function(a,b,c,d,e,f,g,h,i,j,k: PAnsiChar): integer; cdecl;
implementation
{$R *.lfm}
//function FreeArcExtract(a,b,c,d,e,f,g,h,i,j,k:PAnsiChar): integer; cdecl; external 'unarc.dll';
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Handle := LoadLibrary('UNARC.DLL');
FreeArcExtract := GetProcAddress(Handle, 'FreeArcExtract');
FreeArcExtract(nil, 'x', '-dpc:\testext', '--', 'C:\testext\test.arc', nil, nil, nil, nil, nil, nil);
FreeLibrary(Handle);
end;
end.
2015年04月02日 15点04分
4
Form1: TForm1;
Handle: THandle;
FreeArcExtract: function(a,b,c,d,e,f,g,h,i,j,k: PAnsiChar): integer; cdecl;
implementation
{$R *.lfm}
//function FreeArcExtract(a,b,c,d,e,f,g,h,i,j,k:PAnsiChar): integer; cdecl; external 'unarc.dll';
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Handle := LoadLibrary('UNARC.DLL');
FreeArcExtract := GetProcAddress(Handle, 'FreeArcExtract');
FreeArcExtract(nil, 'x', '-dpc:\testext', '--', 'C:\testext\test.arc', nil, nil, nil, nil, nil, nil);
FreeLibrary(Handle);
end;
end.
谢谢额
2015年04月04日 07点04分