关于SymFromName的奇怪问题？在线等

pectose

1. function GetAddressFromSymbol(phd:Thandle;s:string):ptruint;
   
2. var
   
3.   pi:PSYMBOL_INFO;
   
4.   sn:array[0..MAX_SYM_NAME-1] of char;
   
5. begin
   
6.   sn:=s;
   
7. 
   
8.   if not SymInitialize(phd,nil,true) then Exit($00000000);
   
9. 
   
10.   SymSetOptions(SymGetOptions or SYMOPT_CASE_INSENSITIVE);
    
11. 
    
12.   getmem(pi, (sizeof(SYMBOL_INFO)+MAX_SYM_NAME*sizeof(char)+sizeof(ULONG64)-1)
    
13.                 div sizeof(ULONG64) );
    
14. 
    
15.   pi^.SizeOfStruct:=sizeof(SYMBOL_INFO);
    
16.   pi^.MaxNameLen:= MAX_SYM_NAME;
    
17. 
    
18.   if SymFromName(phd,sn,pi)then
    
19.   begin
    
20.     result:=pi^.Address;
    
21.   end else
    
22.   begin
    
23.     result:=$00000000;
    
24.   end;
    
25. 
    
26.   MessageBox(0,pchar(SysErrorMessage(GetLastError)),'Last Error',MB_OK);
    
27. 
    
28.   freemem(pi);
    
29.   SymCleanup(phd);
    
30. 
    
31. end;

复制代码

GetLastError总是说我参数错误（‘The parameter is incorrect!’）。实在不知哪里错了。