DECLARE INTEGER FindExecutable IN Shell32; STRING lpFile, STRING lpDirectory, STRING @lpResult lcfile = ADDBS(SYS(2023)) + SYS(2015) + ".PDF" STRTOFILE("TEMP FILE", lcfile) lcbuffer = SPACE(200) lnresult = FindExecutable(lcfile, "", @lcbuffer) ERASE (lcfile ) lcExe = "" DO CASE CASE lnresult = 31 * No program is associated with PDF files CASE lnresult < 32 * Some other error OTHERWISE * Extract executable associated with PDF file lcExe = LEFT(lcBuffer, RAT(CHR(0), lcbuffer )-1) ENDCASE ? lcExe>Hi Sergey,