你只要这个 1009000235400064.mp3？
写了个函数 ，调用就行。相信你自己也可以写个类似的。
function GetFileName(sURL: string): string;
var
I: Integer;
begin
Result := '';
if sURL = '' then
Exit;
I := Pos('?', sURL);
if I = 0 then
Exit;
Delete(sURL, I, Length(sURL));
sURL := StringReplace(sURL, '/', '\', [rfReplaceAll]);
Result := ExtractFileName(sURL);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := GetFileName(Edit1.Text);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024