Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
File 'shellexecute.prg' does not exist
Message
 
 
À
04/11/2022 02:37:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
01685206
Message ID:
01685231
Vues:
34
>>>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.

Thank you, Tore.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform