如何通过delphi 完成 ip地址预别名的对应关系。高分求解！ (100分)

通常可以通过修改hosts文件完成。但是我想这不是很好的方法。
我想完成
example:
ip:202.104.128.55
alias:abc
需要这样一个函数（不能修改hosts,lmhosts文件。）
IpAliasAdd(ip,alias);//完成别名,此时可以ping abc
IpAliasDel(ip,alias);//删除别名,此时不可以ping abc

windows网络中解析DNS的过程是:
首先到本地的DNS的缓存中查找
然后查找本地的Hosts文件(C:/WINNT/system32/drivers/etc)
最有去DNS服务器查
你不让修改Hosts文件,而且DNS服务器在别的机器上也没法改
那你只好看看能不能修改本机的DNS缓存了.具体方法我也不会

如果有人回答，不是乱讲，就分分了