如何才能转换成真正地址？

Question

如何才能将下面的地址1转换成地址2：地址1：
ftp://www.163.com/Windows%20XP%BC%F2%CC%E5%D6%D0%CE%C4VLK%C9%CF%BA%A3%D5%FE%B8%AE%B0%E6.rar地址2：
ftp://www.163.com/Windows XP简体中文VLK上海政府版.rar最好是已经编释好的EXE程序！如果有的请麻烦发到下面的邮箱：[email protected]@163.com多谢！！！我会立即给分的！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var s, s1, sRet: string;
  i, iLen: integer;
begin
  s := 'ftp://www.163.com/Windows%20XP%BC%F2%CC%E5%D6%D0%CE%C4VLK%C9%CF%BA%A3%D5%FE%B8%AE%B0%E6.rar';
 //s := chr(strtoint('$BC')) + chr(strtoint('$F2'));
 iLen := Length(s);
 i := 1;
 while i < iLen+1 do
 begin
   if s[i] = '%' then
   begin
     s1 := Chr(StrToInt('$' + s[i+1] + s[i+2]));
     sRet := sRet + s1;
     inc(i, 3);
    continue;
   end;
   sRet := sRet + s[i];
   inc(i);
 end;
 showmessage(sret);
end;大概如此, 代碼比較亂, 你自己整理下!!!

Answer 2

uses NMURL;procedure TForm1.Button2Click(Sender: TObject);
var
  NMURL1 : TNMURL;
begin
  NMURL1 := TNMURL.Create(nil);
  try
    NMURL1.InputString := 'ftp://www.163.com/Windows%20XP%BC%F2%CC%E5%D6%D0%CE%C4VLK%C9%CF%BA%A3%D5%FE%B8%AE%B0%E6.rar';
    ShowMessage(NMURL1.Decode);
  finally
    NMURL1.Free;
    NMURL1 := nil;
  end;
end;//Delphi 7可能不行。Delphi 5, 6都可以。