Information générale
Catégorie:
Fonctions Windows API
Tracy, recapturing thread of CreateProcess... I'm insist with find application related with extension.
Try with this.
DEFINE CLASS RunFiles AS Custom
PROCEDURE RunFileNoEXE( sFilePath )
SET PROCEDURE TO "C:\.........\samples\classes\registry.prg"
oReg = CreateObject("FileReg")
*|-- File extension
m.cExtn = JUSTEXT( sFilePath )
nErrNum = oReg.GetAppPath(m.cExtn,@cAppKey,@cAppName)
IF m.nErrNum # ERROR_SUCCESS
MESSAGEBOX(C_EXTNOFOUND_LOC)
RETURN
ENDIF
IF ATC(".EXE",m.cAppName) #0
m.cAppName= ALLTRIM(SUBSTR(m.cAppName,1,ATC(".EXE",m.cAppName)+3))
IF ASC(LEFT(cAppName,1))=34 &&check for long file name in quotes
m.cAppName = SUBSTR(m.cAppName,2)
ENDIF
ENDIF
*|-- Run REAL App, with file name parameter
llacordok = RunAndWait( m.cAppName, '61NC.XFDF', 'C:\FOXPRO\VFP8' )
IF !llacordok
=MESSAGEBOX("Unable to print Acord Form.",0+16+4096,"ERROR")
ELSE
WAIT WINDOW "Finished Printing" NOWAIT
ENDIF
ENDPROC
ENDDEFINE
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement