Using Win32 functions in Visual FoxPro Image Gallery
Code examples:
How to play MIDI notes
Obtaining heap handles and enumerating memory blocks for the current VFP session (WinNT only)
Obtaining information about all user accounts on a server (WinNT only)
Retrieving statistics for the TCP protocol running on the local computer
Enumerating servers of the specified type (e.g. SQL Server) in the primary domain
How to display the Properties dialog box for a file (ShellExecuteEx)
How to retrieve network parameters for the local computer (including Host name, Domain name, and DNS Server)
Configuring DEVMODE structure for a printer
Enumerating network resources
Enumerating print processors and supporting data types installed on the specified server
High-powered ALLTRIM
How to delete all print jobs for a printer
How to suspend or hibernate your system
Round FoxPro form
Using the RestartDialog function -- restarting Windows
Displaying Windows shell folders in TreeView control with Visual FoxPro FLL
Obtaining the bounding rectangle for the specified device context
PocketPC: custom RAPI class for executing routines on remote Windows CE device
Retrieving graphic capabilities of your display
WAV file player
How to hot-track menu item selection in top-level form (requires VFP9)
Retrieving the interface–to–IP address mapping table
Scanning the hierarchy of child windows down from the main VFP window
How to create transparent areas inside a form -- punching holes in the form
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: 167  
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-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.1.68), the Open Source standard SQL database, AceHTML Freeware Version 4, freeware HTML Editor of choice.   Hosted by Korax Online Inc.
Last Topics Visited (54.163.179.108)
1.68 min.Example: 'GDI+: Scrolling through large image using the mouse'
5 day(s)Example: 'How to Start a Process as Another User (NT/XP/2K)'
 Function: 'inet_ntoa'
 Function: 'LockWorkStation'
6 day(s)Function: 'TaskDialogIndirect'
 Function: 'CeRapiGetError'
Function group: 'Remote Application Programming (RAPI)'
 Function: 'CreatePipe'
Google
Advertise here!