Declare Integer FindExecutable In Shell32.Dll ; string lpFile, ; string lpDirectory, ; string @lpResult lcResult = Space(100) lcFile = Getfile() &&or put here your executable If Empty(lcFile) retun Endi lcPath = Justpath(lcFile) lnSuccess = FindExecutable(lcFile,lcPath,@lcResult) If lnSuccess <= 32 Messagebox("Cannot find the associated program") &&then create association(explorer, rightclick,open with...(always) Else Messagebox("Associated program is "+lcResult) Endif