Running applications from DelphiTM: Using ShellExecute (Part 1) {转贴}
来源:互联网 发布:安卓软件管理器 编辑:程序博客网 时间:2024/04/29 04:50
Running applications from DelphiTM: Using ShellExecute (Part 1)
Level: Newbie-HackerAuthor: The Baker
Date: 2002-04-19
Running or opening external programs or files, from DelphiTM applications, is often a necessary requirement. This article covers the ShellExecute
Windows API function, revealing techniques for running external applications from your Delphi applications.
Running applications from Delphi
There are a number of reasons why you might be interested in running external applications from your Delphi application. Often programs are segmented into a number of logical divisions to represent different components of a larger system. Some sub-system components might include:
Main application
Setup/Installer application
System application (specifying system wide options)
Application server application
Reporting application
an external third party application
As can be seen, there are a number of reasons why you might need to call an external application. Let's discuss how we can do this with the ShellExecute
command.
ShellExecute WinAPI
The ShellExecute API allows for the execution (or "running") of external applications. It also has a number of other uses, however these all involve performing operations on external files. The syntax for the ShellExecute
WinAPI function is:
HINSTANCE ShellExecute(HWND hwnd,
LPCTSTR lpOperation,
LPCTSTR lpFile,
LPCTSTR lpParameters,
LPCTSTR lpDirectory,
INT nShowCmd
);
The following is a description of the parameters for the ShellExecute function.
Parameter | Input/Output | Description |
hwnd | input | Handle to the parent window: needed for error reporting. |
lpOperation | input | Pointer to a null-terminated string. This is the action to be performed (the "object verb") |
lpFile | input | Pointer to a null-terminated string that specifies the file or object to execute the specified verb on. |
lpParameters | input | Pointer to a null-terminated string that specifies the parameters to be passed to the application (if the lpFile is an application file). Otherwise, this should be NULL. |
lpDirectory | input | Pointer to a null-terminated string that specifies the default directory. |
nShowCmd | input | Flag determining how the application window will be displayed when it is opened. |
The ShellExecute
function will return an error code if the function fails. This can be retrieved using the GetLastError
function. If the error code is greater than 32, then the function was successful. If it less than or equal to 32 then an error has occurred. For a complete listing of the error codes refer to the MSDN website (link provided in the further reading section).
The easiest way to interpret the error code is with the SysErrorMessage(GetLastError)
function call. This will map the appropriate Windows error message returned by the GetLastError
API function.
if ShellExecute(Handle, 'print', PChar('c:/log.txt'), nil, nil, SW_SHOWNORMAL) <= 32 then
ShowMessage(SysErrorMessage(GetLastError));
Operation Type
The ShellExecute function allows for operations to be executed on programs and application objects. In some cases, objects may not be able to respond to an operation type. For example, not all document types support the "print" verb. A list of the commonly supported verbs include:
lpOperation Value | Result Description |
edit | Opens a document for editing in an editor. |
explore | Explores the folder, using Windows Explorer, specified by the lpFile parameter. |
find | Opens the Search form initiating a search starting from the directory specified in the lpFile parameter. |
open | Opens the file, application or folder specified by the lpFile parameter. |
Prints the document file specified by lpFile parameter. | |
NULL | More information below |
If NULL is specified then different functionality will occur depending on the operating system version. The following is an extract from the MSDN ShellExecute document:
For systems prior to Microsoft?Windows?2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.
For Windows 2000 and later systems, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.
If I use the "open" verb on a .PAS file, nothing happens. If I use NULL instead, then the .PAS file will be opened in Delphi. The registry defines the application that is associated with the .PAS file.
Show Command
The ShellExecute requires the nShowCmd
type. This represents how the new window will be displayed when it is created via the ShellExecute call.
nShowCmd Value | Result Description |
SW_HIDE | Hides the window and activates another window. |
SW_MAXIMIZE | Maximizes the specified window. |
SW_MINIMIZE | Minimizes the specified window and activates the next top-level window in the z-order. |
SW_RESTORE | Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window. |
SW_SHOW | Activates the window and displays it in its current size and position. |
SW_SHOWDEFAULT | Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window. |
SW_SHOWMAXIMIZED | Activates the window and displays it as a maximized window. |
SW_SHOWMINIMIZED | Activates the window and displays it as a minimized window. |
SW_SHOWMINNOACTIVE | Displays the window as a minimized window. The active window remains active. |
SW_SHOWNA | Displays the window in its current state. The active window remains active. |
SW_SHOWNOACTIVATE | Activates and displays a window. Windows restores it to its original size and position. The active window remains active. |
SW_SHOWNORMAL | Activates and displays a window. Windows restores it to its original size and position. |
When you call an application for the first time you should call the SW_SHOWNORMAL flag.
Using ShellExecute
The following is a list of ShellExecute uses. You will need to add the Windows and ShellAPI units to the uses clause.
Run an application called Demo.exe in "C:/apps" directory:
ShellExecute(Handle,NIL,PChar('C:/apps/demo.exe'), nil,nil,SW_SHOWNORMAL);
Open a file (e.g. "log.txt"):
ShellExecute(Handle,'open',PChar('c:/log.txt'), nil,nil,SW_SHOWNORMAL);
Play a music file (e.g. "ending.mp3"):
ShellExecute(Handle,'play',PChar('c:/ending.mp3'), nil,nil,SW_SHOWNORMAL);
Print a log file (e.g. "log.txt"):
ShellExecute(Handle,'print',PChar('c:/log.txt'), nil,nil,SW_SHOWNORMAL);
Open up Windows Explorer on C Drive (e.g. "c:"):
ShellExecute(Handle,'explore',PChar('c:/'), nil,nil,SW_SHOWNORMAL);
Create a new email message with Outlook or Outlook express:
Procedure CreateEmail(Const EmailAddr, Subject, Body: String);
var
ConcatEmailStr: String;
Begin
ConcatEmailStr := EmailAddr + '?subject=' + Subject + '&body=' + Body;
ShellExecute(Handle,'open',PChar(ConcatEmailStr), nil, nil, SW_SHOWNORMAL);
end;
Conclusion
I hope this article has provided you with a greater insight into running applications from Delphi and the ShellExecute WinAPI function. In the next article I will discuss how to wait for an application to finish before resuming application execution.
Further Reading
For further information on the ShellExecute WinAPI function refer to the MSDN online library:
- Running applications from DelphiTM: Using ShellExecute (Part 1) {转贴}
- Using files from web applications
- Using XML in Delphi applications. Part I.
- Tutorial for building J2EE Applications using JBOSS and ECLIPSE Chapter 2 part 1
- Kernel APIs, Part 1: Invoking user-space applications from the kernel
- using JMX to Manage Web Applications (from tts)
- Monitor Your Applications With JConsole - Part 1
- Running OpenStack in Production: Part 1: Hardware
- Tutorial for building J2EE Applications using JBOSS and ECLIPSE Chapter 2 part 2
- The Building Blocks-Enterprise Applications Part 1- Overview and ERP
- GPS tracking using SVG-Part 1
- Using LINQ to SQL (Part 1)
- Using LINQ to SQL (Part 1)
- Using WebSocket in .NET 4.5 (Part 1)
- Debugging the kernel using Ftrace - part 1
- 爬蟲實戰 - using Python3 (part 1 / 3)
- Part 1 – Reverse engineering using Androguard
- Tutorial for building J2EE Applications using JBOSS and ECLIPSE -1
- 香港的户外店
- STUDY olereader
- 回忆那年那月(1997~2003)起篇---高复班的残余
- 招聘网址大全!中英文简历模板!
- 面向对象技术文章集锦(不断更新)
- Running applications from DelphiTM: Using ShellExecute (Part 1) {转贴}
- 关于泛型编程思想的言论摘录(不断更新)
- Windows下如何彻底删除
- QuickReport 4.0.3 自定义纸张有 问题
- 在系统注册realone的组件,使Windows Media Player播放rm文件
- 14bit 40 MSamples/s ADC成功工作了
- Apache的httpd.conf文件常用指令解释
- PHP初学者头疼问题总结
- 9.10星期五.天气晴