PROCEDURE BUKAXFILE(tcFileName,tcWorkDir,tcOperation) LOCAL lcFileName,lcWorkDir,lcOperation IF EMPTY(tcFileName) RETURN -1 ENDIF _SCREEN.WINDOWSTATE=2 lcFileName=ALLTRIM(tcFileName) lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"") lcOperation=IIF(TYPE("tcOperation")="C" AND NOT EMPTY(tcOperation),ALLTRIM(tcOperation),"Open") DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,3) ENDPROC