>>Hello,
>>
>>A couple of times I received email error message pointing to the fact that
>>'ShellExecute.prg' does not exist.
>>
>>In my code I do have calls to execute the ShellExecute (Windows API function) when printing PDF documents.
>>So, the ShellExecute is outside of what my program created.
>>
>>What would cause this error?
>>
>>TIA
>
>This is the code of how my program executes the ShellExecute. Please let me know if you see anything wrong with my code.
>
>ADLLS( aDllList )
>
>IF TYPE( "aDllList" ) = "C" AND ASCAN(aDllList,"ShellExecute",-1,-1,1) > 0
> lLoadDll = .F.
>ENDIF
>
>IF lLoadDll
>
> DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
> INTEGER hwnd, ;
> STRING lpVerb, ;
> STRING lpFile, ;
> STRING lpParameters, ;
> STRING lpDirectory, ;
> LONG nShowCmd
>
>ENDIF
>
>lnResult =Shellexecute(0, tcCommand, tcFileName, tcParameter,tcDirectory,tnShowCommand)
>
>
I think most of this code is overkill. No need for checking if the dll is already declared. Just declare it, if it's already declare VFP won't declare it again.