在Delphi中执行外部程序并返回其结果,可以通过使用ShellExecute或CreateProcess函数来实现。以下是分步骤的说明和代码示例: 1. 使用 ShellExecute 执行外部程序 ShellExecute 是一个简单的方法来执行外部程序,但它不直接提供获取程序输出的机制。如果只需要执行程序而不需要捕获其输出,可以使用这个方法。 delphi uses Shell...
https://www.shuzhiduo.com/A/gGdXxNGmd4/ Delphi通过管道执行外部命令行程序(cmd)并获取返回结果 实例代码: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1...
delphi执行外部程序并等待结束返回响应 //写成函数 需要引用 ShellAPI 单元;functionExecuteFileWait(ExecuteFile:string):Integer;//实现执行外部程序,并等待程序结束的函数,返回值为1varSEInfo: TShellExecuteInfo; ExitCode: DWORD; ParamString, StartInString:string;beginFillChar(SEInfo, SizeOf(SEInfo), #0);...
delphi 实现执行外部程序,并等待程序结束的函数 引用ShellAPI单元; 1type2TExecState =(esNormal, esMinimized, esMaximized, esHidden);34functionExecuteFileWait(Handle: HWND;constFileName, Params, StartDir:string; InitialState: TExecState): Integer;56{7Handle: 传入当前窗口或 Applicaton 的句柄8FileName:...
//在外部的程序结束运行之前,不能做任何操作! //Ex:WinExecW('c:\windows\notepad.exe','',sw_show); Function WinExecExW(cmd,workdir:pchar;visiable:integer):DWORD; var StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation... 文档格式:PDF | 页数:2 | 浏览次数:115 | 上传日期:2012-03-...
delphi执行一个外部程序,当外部程序结束后,delphi程序立即响应,//需要引用ShellAPI单元;procedureTForm1.Button1Click(Sender:TObject);varSEInfo:TShellExecuteInfo;ExitCode:DWORD;ExecuteFile,ParamString,StartInSt
我们经常能看到360安全卫士进行windows系统升级时,执行windows升级程序,当升级程序执行完成后,360马上弹出提示框。 这样的程序是如何做到的呢?下述代码就能完成! uses shellAPI; procedure TForm1.Button1Click(Sender: TObject); var SEInfo: TShellExecuteInfo; ...
delphi 执行一个外部程序,当外部程序结束后言主程序立即响应 我们经常能看到360安全卫士进行windows系统升级时,执行windows升级程序,当升级程序执行完成后,360马上弹出提示框。 这样的程序是如何做到的呢?下述代码就能完成! usesshellAPI;procedureTForm1.Button1Click(Sender: TObject);varSEInfo: TShellExecuteInfo; ...
procedure TForm1.Button1Click(Sender: TObject); var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string; begin ExecuteFile := 'c:\Windows\system32\Calc.exe'; FillChar(SEInfo, SizeOf(SEInfo), #0); ...
参考IsProgram_Runing函数,你也可以调用RunProgram('c:\aa.exe')先异步执行,然后根据返回的进程句柄,自己判断程序是否执行结束。 // 异步执行 function RunProgram(ProgramName:string;Wait:Boolean=False):Cardinal; var StartInfo:STARTUPINFO; ProcessInfo:PROCESS_INFORMATION; ...