LO56188: SHELLEXECUTEEX FUNCTION NOT WORKING ON DOMINO 64-BIT

APAR status

• Closed as fixed if next.

Error description

• ShellExecuteEx from shell32.dll is not working when called from
  LotusScript agent running on Domino 64-bit. The agent below runs
  fine on Domino 32-bit but does not open the file in Domino
  64-bit. No error code is returned.
  
  Type SHELLEXECUTEINFO
   cbSize As Long
   fMask As Long
   hwnd As Long
   lpVerb As String
   lpFile As String
   lpParameters As String
   lpDirectory As String
   nShow As Long
   hInstApp As Long
   lpIDList As Long
   lpClass As String
   hkeyClass As Long
   dwHotKey As Long
   hIcon As Long
   hProcess As Long
  End Type
  
  Declare Function ShellExecuteEx Lib "shell32.dll" Alias
  "ShellExecuteExA"(lpExecInfo As SHELLEXECUTEINFO) As Long
  Declare Function GetActiveWindow Lib "user32.dll" () As Long
  Declare Function GetLastError Lib "kernel32.dll" Alias
  "GetLastError" () As Long
  
  Const SEE_MASK_NOCLOSEPROCESS = &H40
  Const SW_MINIMIZE = 6
  
  Sub Initialize
   Dim haWnd As Long
   Dim retval As Long
   Dim reterror As Long
   Dim sei As SHELLEXECUTEINFO
  
   haWnd = GetActiveWindow()
  
   sei.cbSize = Len(sei)
   sei.fMask = SEE_MASK_NOCLOSEPROCESS
   sei.hwnd = haWnd
   sei.lpVerb = "open"
   sei.lpFile = "C:\test.txt"
   sei.lpParameters = ""
   sei.lpDirectory = "C:\"
   sei.nShow = SW_MINIMIZE
   sei.hInstApp = 0
   sei.lpIDList = 0
   sei.lpClass = ""
   sei.hkeyClass = 0
   sei.dwHotKey = 0
   sei.hIcon = 0
   sei.hProcess = 0
  
   retval = ShellExecuteEx(sei)
   Print "retval: " & CStr(retval) & " (0 indicates false -
  failed; 1 indicates true - success)"
   reterror = GetLastError()
   Print "reterror: " & CStr(reterror)
   Print "sei.hInstApp: " & CStr(sei.hInstApp) & " (if failed,
  hInstApp should hold a return failure code less then 32)"
  End Sub
  

Local fix

Problem summary

• This APAR is closed as FIN. We have deferred the fix to a
   future release.
  

Problem conclusion

Temporary fix

Comments

• This APAR is associated with SPR# OIHZ8AZMJY.
  
  This APAR is closed as FIN. We have deferred the fix to a
   future release.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

Applicable component levels

• R851 PSN

     UP