W
webyjh
Unregistered / Unconfirmed
GUEST, unregistred user!
下面这段程序当单击button1时就会检查是否安装了flashget如安装刚调用flashget下载url连接的文件,现在我想不只下载一个文件,而是能同时下载多个URL连接的文件(效果类似于在网页内右击选择->使用flashget下载全部链接那种效果)应该怎么做呢?
procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
AppPath,url:String;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.openkey('/software/jetcar/jetcar/General',false) then
begin
apppath:=reg.ReadString('AppPath');
url:='http://www.xxx.com/1.rar';
shellexecute(handle,'open',pchar(apppath),pchar(url),'',SW_SHOWMINIMIZED);
end
else
Messagebox(handle,'Sorry,您还没有安装flashget软件!','提示',MB_OK+MB_ICONINFORMATION);
end;
procedure TForm1.Button1Click(Sender: TObject);
var reg:TRegistry;
AppPath,url:String;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.openkey('/software/jetcar/jetcar/General',false) then
begin
apppath:=reg.ReadString('AppPath');
url:='http://www.xxx.com/1.rar';
shellexecute(handle,'open',pchar(apppath),pchar(url),'',SW_SHOWMINIMIZED);
end
else
Messagebox(handle,'Sorry,您还没有安装flashget软件!','提示',MB_OK+MB_ICONINFORMATION);
end;