Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Custom GDI+ class
How to change display settings: screen resolution, screen refresh rate
Displaying dimmed window behind VFP top-level form
Enumerating devices installed on the local machine
Using Video Capture: displaying on FoxPro form frames and previewing video obtained from a digital camera
Round FoxPro form
Winsock: sending email messages (SMTP, port 25)
Configuring DEVMODE structure for a printer
Storing content of the Clipboard to a bitmap file
Winsock: connecting to a news server (NNTP, port 119)
How to convert a bitmap file to monochrome format (1 bpp)
Creating irregularly shaped FoxPro form using transparency color key
How to prevent users from accessing the Windows Desktop and from switching to other applications
How to view icons stored in executable files (Icon Viewer) - II
Custom FTP Class for Visual FoxPro application
How to put a horizontal text scrolling on the form (a news line, marquee)
Using FoxTray ActiveX control: System Tray Icon and menu attached to VFP form
Creating a directory on the FTP
Customizing the frame of top-level form: removing the standard frame (VFP9, Vista)
How to put a vertical text scrolling on the form (a movie cast)
GDI+: Implementing image scrolling with inertia
How to activate Windows Calculator
Starting an external application in VFP using WinExec
How to retrieve the size of a remote file (FTP)
Creating a file, then moving it to another destination

User rating: 9/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
Before you begin:
See also:
  • Displaying standard progress dialog box when copying files

  • #DEFINE CREATE_ALWAYS 2
    #DEFINE FILE_ATTRIBUTE_NORMAL 128
    
    DO declare
    
    lpFileName = "C:\Temp\mytest.txt"
    lpNewFileName = "C:\Temp\mytest1.txt"
    
    hFile = CreateFile(lpFileName, 0, 0, 0,;
        CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
    
    ? "File handle returned:", hFile
    = CloseHandle (hFile)
    = MoveFile(lpFileName, lpNewFileName)
    
    PROCEDURE declare
        DECLARE INTEGER MoveFile IN kernel32;
            STRING lpExistingFileName, STRING lpNewFileName
    
        DECLARE INTEGER CreateFile IN kernel32;
            STRING lpFileName, INTEGER dwDesiredAccess,;
            INTEGER dwShareMode, INTEGER lpSecurityAttributes,;
            INTEGER dwCreationDisposition,;
            INTEGER dwFlagsAndAttributes, INTEGER hTemplateFile
    
        DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject
    
    
    

    User rating: 9/10 (1 votes)
    Rate this code sample:
    • ~
    746 bytes  
    Created: 2001-07-12 12:00:00  
    Modified: 2006-03-16 08:59:58  
    Visits in 7 days: 13  
    Listed functions:
    CloseHandle
    CreateFile
    MoveFile
    Printer friendly API declarations
    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:
    There are no notes on this subject.


    Copyright 2001-2015 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.5.44), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
    Last Topics Visited (54.227.83.19)
    17 sec.Function: 'NetWkstaUserEnum'
    Function group: 'Network Management'
    43 sec.Example: 'Retrieving top-child window for the VFP form'
    20.45 hrs.Function: 'DeleteObject'
    20.46 hrs.Function: 'CryptStringToBinary'
    20.47 hrs.Function: 'GdipNewInstalledFontCollection'
    20.49 hrs.Example: 'How to enumerate terminal servers within the specified Windows domain'
    Google
    Advertise here!