求 迅雷加密url中文地址 代码

uses
  EncdDecd;

function ThunderEncode(HttpURL: string): string;
begin
  Result := '';
  if HttpURL = '' then
    Exit;
  HttpURL := 'AA' + HttpURL + 'ZZ';
  Result := 'thunder://' + EncodeString(HttpURL);
end;