InstallShield中调用API

 prototype BOOL KERNEL32.GetComputerName(BYREF STRING, BYREF NUMBER); 
 
 function OnBegin()    
 　　STRING szCmpName;    
 　　NUMBER nLength;
 begin    
 　　 //Using Win32 API    
  　　nLength = MAX_PATH;    
  　　GetComputerName(szCmpName, nLength);    
  　　MessageBox(szCmpName, INFORMATION);   
 end;