利用 Delphi 轻松编制压缩助理程序

领测软件测试网 软件测试技术门户7}2Q y$Wt

软件测试技术门户7oxQ9W)d${.E n
procedure TForm1.Button4Click(Sender: TObject); 
d*\WV[] @var 
i9g$KEqI : Integer; 
gY#`9l(W7bwc[begin  软件测试技术门户K%AfH(x-k
if OpenDlg1.Execute then  软件测试技术门户U"Z*b-RM%i"jfu(`&V
For I := 0 to OpenDlg1.Files.Count - 1 do 

n,c(Oe_/\#Q9NListBox1.Items.Add(OpenDlg1.files[I]);  软件测试技术门户J!w*S;M9c p:Y9?
end;  软件测试技术门户)YY-k&HE{d

8B