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

[nodefault]

LibHandle:=Loadlibrary('GetComputerName.dll');
try
if LibHandle=0 then
ShowMessage('GetComputerName.dll Dll Faile');
@MyName:=GetProcAddress(LibHandle,'MyGetAppServerName');
if (@MyName=nil) then
Showmessage('MyGetAppServerName proc_faile')
else
//DCOM_LOGO.ComputerName :=MyName('{9DDED473-6513-11D4-9B7E-00C04F1CD0D6}'); ---------------(1)
DCOM_LOGO.ComputerName :='FXit02'; ---------------(2)

上面的語句執行(1)跳出一個顯示''計算機名''的對話框, 而(2)沒有對話框.

下面的語句在執行RETURN:=CreateProcess 時也跳出好幾次對話框.
為什麼帶Proc 的函數都要跳出一個顯示''計算機名''的對話框??


STR:=ModuleName + ' '+Act+' '+PSW+' '+UserName+' '+USERCODE;
PCH:=PCHAR(STR);
RETURN:=CreateProcess(
nil, // pointer to name of executable module
PCH, // pointer to command line string
NIL, // pointer to process security attributes
NIL, // pointer to thread security attributes
FALSE, // handle inheritance flag
0, // creation flags
NIL, // pointer to new environment block
NIL, // pointer to current directory name
START, // pointer to STARTUPINFO
PROCESSINFO // pointer to PROCESS_INFORMATION
);

[yansea]

搞不懂了，帮你up吧

[loverlv]

我不知道你的有没有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该数据类型的原代码！
有的话就贴出来吧，没有的话，也就将就着用吧，实在不行，就不要了吧

：）

一点愚见，错了勿笑！

[nodefault]

是低級問題, 舊版本dll中有一句 showmessage(result); 新版本沒有這一句.

解決了..... 謝謝大家

[johnsonrao]

没事了？