Associate file

[AlexSchaft]

Hi,

How can I associate a file extension with my piece of software we've written from inside our software?

[vilian]

I also need it. Any idea how?

[amnunez]

Code: Select all | Expand

#Define  nCLASSES_ROOT  1

LOCAL aFileExt := {'.pdf','.rtf','.doc','.xls'} 

AEval(aFileExt, {|a,n|cRet := GetRegistry( nCLASSES_ROOT , a, "" ),;
                            IF (cRet <> nil .Or. cRet == '',,(;
                               IF (a == '.pdf',(cMsg += "   '.pdf'  =  PDF File Format(Acrobat Reader)" + CRLF, nFound := n),),;
                               IF (a == '.rtf',(cMsg += "   '.rtf'  =  RichText File Format(Word Pad) " + CRLF, nFound := n),),;
                               IF (a == '.doc',(cMsg += "   '.doc'  =  MS Word File Format(MS Office or Sun's OpenOffice)"  + CRLF, nFound := n),),;
                               IF (a == '.xls',(cMsg += "   '.xls'  =  MS Excel File Format(MS Office or Sun's OpenOffice)" + CRLF, nFound := n),);
           ))})

 

[Silvio]

it can be very good,
can you make a test sample to use it ?

[vilian]

Ammunez,

Thanks, but This is not what I need. I want is to make the association between some types of files with my application. When the user makes a double click on the files, deploy my app.

Any ideas?