為什麼執行帶Proc 的函數都要跳出一個顯示''計算機名''的對話框??

我不知道你的有没有TGetComputerName;这个数据类型的原代码？有的话，贴出来，大家也可以参考一下！
不过，我们也可以从作者的意图上来考虑！
首先：作者先装载了一个DLL运行库。而这个库的作用的用于寻找计算机（这是废话：））。
然后：寻找DLL中的MyGetAppServerName函数入口地址。如果找到该函数则DCOM_LOGO.ComputerName :=MyName('{9DDED473-6513-11D4-9B7E-00C04F1CD0D6}');执行这句代码！这里就有点纠缠不清了，首先这是赋值语句，并且左边是字符串类型，那么右边的MyName就应该有返回值，并且是字符串类型。那么，就要看传递的这个参数究竟是什么了！不过，我敢肯定，他一定是个GUID，而传入的这个GUID也并不是MyName处理的，MyName只不过是个中间者，他要调用（或者是COM对象的一个方法来实现），比如说MYNAME的定义是：FUNCTION MYNAME（GUID：TGUID），然后在MYNAME函数体内再调用：
  function GetComputerForGUID(GUID: TGUID): string;这个方法！我想也是可以的！  所以，这里的关键在于你是否有TGetComputerName该数据类型的原代码！
有的话就贴出来吧，没有的话，也就将就着用吧，实在不行，就不要了吧 ：）一点愚见，错了勿笑！