var File_str:TStrings;
i:integer;
begin
if OpenDialog.Execute then
begin
File_str:=TStringList.Create;
File_str.LoadFromFile(OpenDialog.FileName);//指定你的html
for i:=0 to File_str.Count-1 do
if (Pos('src',File_str)>0) or (Pos('href',File_str)>0) then //－－条件自己写
begin
//SaveTo
//自己处理吧
end;
end;
end;
