>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 > >I have resolved the problem - set exact on at the start of the program was missing - put it in and everything works - thanks for your help