vfoxpro içinden MS paint dosyası açılması

DECLARE INTEGER ShellExecute IN "Shell32.dll" ;

    INTEGER hwnd, ;

    STRING lpVerb, ;

    STRING lpFile, ;

    STRING lpParameters, ;

    STRING lpDirectory, ;

    LONG nShowCmd

&& internet exploreri açmak için

=Shellexecute(0,"Open","www.fox4um.com","","",0) 

&& mail göndermek için

=Shellexecute(0,"Open","mailto:info@fox4um.com","","",0)

&& bir bmp dosyanı edit etmek için

=Shellexecute(0,"edit","resimadi.bmp","","",1)

&& bir word dosyası açmak için

=Shellexecute(0,"Open","dosyaadi.doc","","",0)

&& bir txt dosyasını yazdırmak için

=Shellexecute(0,"Print","c:\dosyaadi.txt","","",0)

&& windows exploreri açmak için

=Shellexecute(0,"","","","c:\windows",1)

CLEAR DLLS