Skip to content

Latest commit

 

History

History
89 lines (61 loc) · 3.17 KB

sample_093.md

File metadata and controls

89 lines (61 loc) · 3.17 KB

Home

Using Shell for performing operations on files

Before you begin:

Select valid file and directory names before testing this code.

Other code samples you might be interested in:

Code:

#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:[email protected]" +;
		"[email protected]&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)

Listed functions:

GetSystemDirectory
ShellExecute

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: