今天看到有人在问用代码执行CMD命令的问题,就总结一下用法,也算做个备忘. Delphi中,执行命令或者运行一个程序有2个函数,一个是winexec,一个是shellexecute.这两个大家应该都见过,其中,winexec比较简单,可以直接运行一个外部程序,shellexecute则更高级一些,除了可以运行外部exe,还可以执行特殊命令. 下面我们就分别举例子说明:我们先来看看运行一个exe程序,以记事本为例: WinExec(PChar(' notepad .exe'),SW_NORMAL)…

//K8执行DOS并返回结果 function RunDosCommand(Command: string): string; var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo; PI: TProcessInformation; SA: TSecurityAttributes; //     SD   :   TSecurityDescriptor; BytesRead: DWORD; Dest: array[0..102…

 http://blog.csdn.net/nerdy/article/details/8969189 [delphi]运行cmd命令,并取得输出字符 标签: delphiCMD命令 2013-05-24 11:36 1529人阅读 评论(0) 收藏 举报  分类: delphi实例(2)  procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastEr…

今天看到有人在问用代码执行CMD命令的问题,就总结一下用法,也算做个备忘. Delphi中,执行命令或者运行一个程序有2个函数,一个是winexec,一个是shellexecute.这两个大家应该都见过,其中,winexec比较简单,可以直接运行一个外部程序,shellexecute则更高级一些,除了可以运行外部exe,还可以执行特殊命令. 下面我们就分别举例子说明:我们先来看看运行一个exe程序,以记事本为例: WinExec(PChar(' notepad .exe'),SW_NORMAL)…

delphi调用cmd的两种方法vars:string;begins:='cmd.exe /c '+edit1.Text+' >c:\1.txt';winexec(pchar(s),sw_hide);sleep(2000);memo1.Lines.LoadFromFile('c:\1.txt'); 2shellexecute(handle,nil,'cmd.exe',pchar(form2.edit1.text),nil,sw_hide);WinExec主要运行EXE文件.如:WinExec(’…

转载地址:http://blog.csdn.net/hutao1101175783/article/details/42807063 cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e'; i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE); ShellExecute(Handle,nil, 'cmd.exe',pchar('/C '+GetCurrentDi…

该代码片段来自于: http://www.sharejs.com/codes/delphi/8999,发现好多代码,想用的时候找不到,记录一下备用 function RunDosCommand(Command: string): string;var  hReadPipe: THandle;  hWritePipe: THandle;  SI: TStartUpInfo;  PI: TProcessInformation;  SA: TSecurityAttributes;  //     SD…

第一次发这个,发现格式很乱,不好看,可以用XE7的project--format project sources命令格式化一下代码. 后面我会上传此次修改函数用的源代码到云盘 链接: http://pan.baidu.com/s/1jIjk7fK 密码: nf3p 基于网络上一个函数,我修改后发现如果运行命令ipconfig /all.将不能等待到返回.后面的函数已经该好了. 废话少说,先看第一个函数,注意此函数buffer为PansiChar.我想异步返回结果,结果造成不小麻烦,所有我选择一次…

//转自http://www.oschina.net/code/snippet_136241_3980 1 procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastError)); end; function RunDOS(const CommandLine: string): string; var HRead, HWrite: THandle; S…

{Unit1.pas} 通过这个单元的Button,调用另一个实例: procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'project2.exe', 'HelloWorld', nil, SW_SHOWNORMAL); end; {Unit2.pas} 接受参数的实例 procedure TForm1.FormCreate(Sender: TObject); begin Edit…