Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
Dragging files from Explorer window and dropping them on FoxPro control (requires VFP9)
Form Magnifier
Pocket PC: custom RAPI class for operating with files and folders on mobile device
Validating URLs using moniker functions
Enumerating devices installed on the local machine
How to block the ALT+TAB shortcut (WinXP)
How to download a file from HTTP server using URL Monikers functions
How to register custom Event Log source
How to retrieve adapter information for the local computer (including MAC address)
Retrieving list of files on the FTP directory
Testing serial ports
A class that encrypts and decrypts files using Cryptography API Functions
Class library providing access to the System Registry
How to view icons stored in executable files (Icon Viewer) - II
Locking and unlocking file of a VFP table
Using the DeleteFile
Comparing dimensions of the VFP main window with _SCREEN properties
Converting a hexadecimal string to an integer
Enumerating Processes -- WinNT
How to initiate System shutdown
Setting properties of the window: caption and user-defined value
Storing screen shot of a form to enhanced metafile (*.emf)
Switching between keyboard layouts
The original LoadPicture() function in VFP returns valid handles to bitmaps, icons, cursors, and metafiles
PocketPC: custom RAPI class for executing routines on remote Windows CE device

User rating: 0/10 (0 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:
The class calls CeCreateProcess RAPI function to create new process on PocketPC device. The new process executes the specified executable file.


Use the following code to test
TRapiExec class:

LOCAL rapi As TRapiExec
rapi = CREATEOBJECT("TRapiExec")
IF NOT rapi.Connected
        = MESSAGEBOX("Could not detect connection " +;
                "to Windows CE device. ", 48, "Not connected")
        RETURN
ENDIF
IF NOT rapi.RunApp("\Windows\Notes.exe",;
                "\My Documents\Personal\test.txt")
        = MESSAGEBOX("Error code: " + TRANSFORM(rapi.errorcode) +;
                " (" + TRANSFORM(rapi.errorcode, "@0") +;
                ") ", 48, "Error")
ENDIF

 
  Members area. Log in to view this example.
 
  User name:
  Password:
 
 
  Forgot your password?
 
  Sign up for
the Membership
 
 


User rating: 0/10 (0 votes)
Rate this code sample:
  • ~
2570 bytes  
Created: 2004-08-13 09:26:22  
Modified: 2011-12-10 09:20:22  
Visits in 7 days: 84  
Listed functions:
CeCloseHandle
CeCreateProcess
CeGetLastError
CeRapiGetError
CeRapiInitEx
CeRapiInvoke
CeRapiUninit
WaitForSingleObject
Printer friendly API declarations
My comment:
RunApp method of the class accepts two parameters: AppName and CommandLine.

Try the code calling various executables located inside \Windows directory on your PocketPC: Notes.exe, pxl.exe, sndplay.exe, tasks.exe, iexplore.exe, pword.exe etc.

* * *
At this point I am not aware how to terminate a remote process. There might be a way, I think, by using the CeRapiInvoke.

* * *
CeRapiInvoke function, I am still struggling with, can be used to remotely execute routines in DLLs stored on Window CE device. This function accepts DLL and function names as parameters, as well as buffer with input parameters for the remote call and buffer for output parameters.

So far I was successful only in calling functions, which do not require input parameters, like Random and GetProcessHeap (both located in Coredll.dll) and similar to them. Hopefully I will be able to add this functionality to the class some time later.

* * *
This is how to create new email message on your Pocket PC:
cApp="\Windows\tmail.exe"
cCmd=[-TO "info@yourcompany.com" -SUBJECT "Test message" ] +;
        [-BODY "Wake up!"]
rapi.RunApp(cApp, cCmd)

Note that the message will be stored in Drafts folder, not sent. Use other command line options: -CC, -BCC, -ATTACHMENT.
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:
dallgood@iservtexas.com | 2006-08-11 15:10:16
Would there be a way to have RunApp wait until the launched application was finished and closed. I played with trying to use WaitForSingleObject, but could not make it work. Thanks!

Copyright © 2001-2013 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.1.55-log), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
Last Topics Visited (184.73.7.143)
13.22 min.Function: 'MAPIResolveName'
13.32 min.Example: 'Using Video Capture: enumerating installed capture drivers'
1.1 hrs.Function: 'ConvertSidToStringSid'
 Example: 'Adding a background image to VFP report (VFP9, ReportListener)'
1.21 hrs.Function: 'GdipGetDpiY'
2.18 hrs.Function: 'CreateCompatibleBitmap'
Function group: 'Bitmap'
 Function: 'JetRetrieveColumn'
4.16 hrs.Function: 'ReadFile'
 Example: 'Obtaining window class name for the main VFP window'
5.11 hrs.Example: 'Using InternetSetFilePointer when resuming interrupted download from the Internet'
Google
Advertise here!