Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Enumerating Windows Sound Schemes avaialble to the current user
GDI+: copying to the Clipboard (a) image of active FoxPro window/form, (b) image file
Scanning the hierarchy of child windows down from the main VFP window
Displaying Windows shell folders in TreeView control with Visual FoxPro FLL
Finding parameters for the region specified
GDI+: Creating thumbnails to preview images in a directory
GDI+: saving image of FoxPro form to graphics file (BMP, GIF, JPG, PNG, TIF)
How to write and read Window Properties for the specified window
Printing text on the main VFP window
Adding and deleting Scheduled Tasks using NetScheduleJob API functions
Establishing connection using the SQLDriverConnect
How to play MIDI notes
Simple Window Viewer
Testing an ODBC connection for supporting specific functionality
Creating a clipping region from the path selected into the device context of a form
Pocket PC: base class
Retrieving the name of the default printer for the current user on the local computer (Win NT/XP)
Accessing Adobe Reader 7.0 main menu from VFP application
Class library providing access to the System Registry
CryptoAPI: Collection of Providers class
Generating UUID values from numbers
How to display the Properties dialog box for a file (ShellExecuteEx)
How to make application automatically close all documents it opened
Obtaining current Internet Explorer browser version and UserAgent
Using Shell for performing operations on files

User rating: 10/10 (1 votes)
Rate this code sample:
  • ~
More code examples    Listed functions    Add comment     W32 Constants      Translate this page Printer friendly version of this code sample
Versions:
click to open
Before you begin:
Select valid file and directory names before testing this code.

Other code samples you might be interested in:
  • Running external applications from VFP using WinExec
  • Running external applications from VFP using CreateProcess
  • Running an external program from FoxPro and waiting for its termination
  • How to Start a Process as Another User (NT/XP/2K)

  • #DEFINE SW_SHOWNORMAL 1
    #DEFINE SW_SHOWMINIMIZED 2
    #DEFINE SW_SHOWMAXIMIZED 3 
    
        DECLARE INTEGER GetSystemDirectory IN kernel32;
            STRING @lpBuffer, INTEGER nSize
    
        DECLARE INTEGER ShellExecute IN shell32;
            INTEGER hWindow, STRING lpOperation,;
            STRING lpFile, STRING lpParameters,;
            STRING lpDirectory, INTEGER nShowCmd
    
        * opens data files with their associated applications
    *    = ShellExecute(0, "open", "c:\aa\index.mdb", "", "", SW_SHOWMAXIMIZED)
    *    = ShellExecute(0, "open", "c:\aa\aa.bmp", "", "", SW_SHOWMAXIMIZED)
    *    = ShellExecute(0, "open", "c:\aa\lacrymosa.mp3", "", "", SW_SHOWMAXIMIZED)
    *    = ShellExecute(0, "open", "c:\aa\mkart.doc", "", "", SW_SHOWMAXIMIZED)
    *    = ShellExecute(0, "open", "c:\aa\aa.txt", "", "", SW_SHOWMAXIMIZED)
    
        * opens a folder
    *    = ShellExecute(0, "explore", "c:\Temp", "", "", SW_SHOWMAXIMIZED)
    
        * open Search window starting from the specified directory
    *    = ShellExecute(0, "find", "", "", getSysDir(), SW_SHOWMAXIMIZED)
    
        * prints the text file using the associated application
    *    = ShellExecute(0, "print", "c:\aa\index.txt", "", "", SW_SHOWMAXIMIZED)
    
        * accessing a site on the Internet
    *    = ShellExecute(0, "open", "http://www.microsoft.com/",;
    *        "", "", SW_SHOWMAXIMIZED)
    
        * sending an email: 
        * Mike Lewis, http://www.ml-consult.demon.co.uk/foxst-22.htm
    
        LOCAL lcMail
        lcMail = "mailto:buddy1@somwhere.com" +;
            "?CC=buddy2@somwhere.com&Subject=Meet for lunch" +;
            "&Body=Please join me for a sandwich at noon."
    
        = ShellExecute(0, "open", lcMail, "", "", SW_SHOWNORMAL)
    
    FUNCTION GetSysDir
        lpBuffer = SPACE(250) 
        nSizeRet = GetSystemDirectory(@lpBuffer, Len(lpBuffer)) 
    RETURN SUBSTR(lpBuffer, 1, nSizeRet) 
    
    
    

    User rating: 10/10 (1 votes)
    Rate this code sample:
    • ~
    1708 bytes  
    Created: 2001-08-06 12:00:00  
    Modified: 2008-10-03 15:25:57  
    Visits in 7 days: 84  
    Listed functions:
    GetSystemDirectory
    ShellExecute
    Printer friendly API declarations
    My comment:
    There is one more action type -- EDIT.

    For some actions failed, GetLastError returns() value 1155, that means ERROR_NO_ASSOCIATION | No application is associated with the specified file for this operation..

    Links:
    HOWTO: Use ShellExecute to Launch Associated File (32-bit) (Q170918).

    Tip 168: Using the ShellExecute Function to Print Files.

    An easy way sending emails from a Visual FoxPro application -- an article of Mike Lewis.

    VBNet: Sending Large Emails via ShellExecute.

    #kwd: sln_sendemail.
    Word Index links for this example:
    Translate this page:
      Spanish    Portuguese    German    French    Italian  
    FreeTranslation.com offers instant, free translations of text or web pages.
    User Contributed Notes:
    A.M. | 2007-01-24 09:06:50
    Include "printto" verb:
    lretval=ShellExecute(0, "Printto", (lfilename), ["]+SET('PRINTER',3)+["], 0,1)

    http://www.universalthread.com/wconnect/wc.dll?2,15,1188377

    Copyright 2001-2017 News2News, Inc. Before reproducing or distributing any data from this site please ask for an approval from its owner. Unless otherwise specified, this page is for your personal and non-commercial use. The information on this page is presented AS IS, meaning that you may use it at your own risk. Microsoft Visual FoxPro and Windows are trade marks of Microsoft Corp. All other trademarks are the property of their respective owners. 

    Privacy policy
    Credits: PHP (4.4.9), an HTML-embedded scripting language, MySQL (5.6.36), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (54.146.5.196)
    10 sec.Example: 'How to block the ALT+TAB shortcut (WinXP)'
    21 sec.Example: 'Winsock: retrieving the host information corresponding to a network address'
    32 sec.Function: 'FindClose'
    Function group: 'File Management'
    43 sec.Example: 'Retrieving the state of your Internet connection'
    51 sec.Example: 'GDI+: sending image of FoxPro form to printer'
    1.02 min.Examples
    Page 3
    1.2 min.Function: 'UuidCreate'
    1.38 min.Example: 'Subclassing CommandButton control to create BackColor property'
    1.57 min.Function: 'JetSetColumn'
    Function group: 'Extensible Storage Engine (ESE, Jet Blue)'
    1.77 min.Function: 'inet_ntoa'
    Google
    Advertise here!