运行一个系统命令,例如 dir,format 等.请问在delphi或kylix里用什么命令? 在c里是用system(). 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 怎么用呀,WinExec('dir');也运行不了呀。 用shellexecute();我用过format好使 这个一定OK的Uses ShellAPINT/2k/XP ShellExecute(handle,'open','cmd.exe','/c dir',nil,SW_SHow);9x/Me ShellExecute(handle,'open','command.com','/c dir',nil,SW_SHow); 给你一个原来的笔记吧调用外部应用程序 【转贴】 我们常用的函数有两个,WinExec 和 ShellExecute。 1) 使用 WinExec 函数 (属于 WinProcs单元) · 声明形式 UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow); [例] var SDir:string; SetLength(SDir,144); GetWindowsDirectory(PChar(SDir),144); SetLength(SDir,StrLen(PChar(SDir))); SDir:=SDir+'\notepad.exe'+' '+savedialog1.FileName; WinExec(PChar(SDir), SW_SHOWMAXIMIZED); 注意:如果 SDir 不是有效路径不会提示错误。 [例] winexec('command.com /c copy *.* c:\',SW_Normal); [例] winexec('start abc.txt'); 2)使用 ShellExecute 函数(属于ShellAPI单元) 它的几个参数: · hwnd:窗体的句柄; · lpOperation:打开程序执行的操作,共预留有"open"、"explore"、 "print"三种方式,此参数可以省略,此时将依据打开的文件(lpFile)的类型执行相应的操作,比如:如果lpFile为一文本文件,那么将会在与该文件相关联的程序中打开它 · lpFile:文件名; · lpParamerters:打开文件时所需的参数; · lpDirectory:文件名所在的路径,当然,一般来说,在Windows中登记过的程序(如WinWord)不必提供此参数; · nShowCmd:打开文件后程序窗体如何显示。 (1)运行可执行文件 [例] 以"记事本"为例 procedure TForm1.OpenBtnClick(Sender:TObject); begin ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal); end; 此外,ShellExeCute() 还可以进行链接网络。 [例] procedure TForm1.HttpClick(Sender: TObject); begin ShellExecute(handle,'open','http://liangming.163.net', nil,nil,SW_ShowNormal); end; (2)打开在Windows注册的外部文件 如果一个文件已经在Windows的注册表中注册了,那我们就可以通过以下方法运行他,首先要在uses部分加入: uses Shellapi; 接着定义一个过程 procedure URLink(URL:PChar); begin ShellExecute(0, nil, URL, nil, nil, SW_NORMAL); end; 在要调用的地方使用: URLink('Readme.txt'); 要链接到主页就改用: URLink('http://vortex.yeah.net'); 要发邮件就要在邮件地址前加: mailto URLink('mailto:[email protected]'); 如果是打开外部执行程序的话,那么也可以直接调用。 delphi 用正则取一段字符串的问题 关于cxgrid的问题!求教,在线等谢谢 一個超級簡單的問題,我是新手!!!! 关于UDP广播 怎样判断是否对日期选择控件MonthCalender进行了点击操作? SQL Server中存储doc文件的问题 动态SQL问题 关于曲线图的问题 为何adoquery多表查询后,不能提交到数据库 一个关于局域网聊天的程序,我找不出错误,希望大家想想办法 如何获得表中浮点型字段的总长度?急!!解决了高分相送..在线等待 用语句怎么设置数据集的displayformat := '#0.0';
Uses ShellAPI
NT/2k/XP
ShellExecute(handle,'open','cmd.exe','/c dir',nil,SW_SHow);
9x/Me
ShellExecute(handle,'open','command.com','/c dir',nil,SW_SHow);
· 声明形式 UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow);
[例] var SDir:string;
SetLength(SDir,144);
GetWindowsDirectory(PChar(SDir),144);
SetLength(SDir,StrLen(PChar(SDir)));
SDir:=SDir+'\notepad.exe'+' '+savedialog1.FileName;
WinExec(PChar(SDir), SW_SHOWMAXIMIZED);
注意:如果 SDir 不是有效路径不会提示错误。
[例] winexec('command.com /c copy *.* c:\',SW_Normal);
[例] winexec('start abc.txt'); 2)使用 ShellExecute 函数(属于ShellAPI单元)
它的几个参数:
· hwnd:窗体的句柄;
· lpOperation:打开程序执行的操作,共预留有"open"、"explore"、 "print"三种方式,此参数可以省略,此时将依据打开的文件(lpFile)的类型执行相应的操作,比如:如果lpFile为一文本文件,那么将会在与该文件相关联的程序中打开它
· lpFile:文件名;
· lpParamerters:打开文件时所需的参数;
· lpDirectory:文件名所在的路径,当然,一般来说,在Windows中登记过的程序(如WinWord)不必提供此参数;
· nShowCmd:打开文件后程序窗体如何显示。 (1)运行可执行文件
[例] 以"记事本"为例
procedure TForm1.OpenBtnClick(Sender:TObject);
begin ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal); end;
此外,ShellExeCute() 还可以进行链接网络。
[例] procedure TForm1.HttpClick(Sender: TObject);
begin
ShellExecute(handle,'open','http://liangming.163.net', nil,nil,SW_ShowNormal);
end; (2)打开在Windows注册的外部文件
如果一个文件已经在Windows的注册表中注册了,那我们就可以通过以下方法运行他,首先要在uses部分加入: uses Shellapi;
接着定义一个过程
procedure URLink(URL:PChar);
begin
ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);
end;
在要调用的地方使用: URLink('Readme.txt');
要链接到主页就改用: URLink('http://vortex.yeah.net');
要发邮件就要在邮件地址前加: mailto URLink('mailto:[email protected]');
如果是打开外部执行程序的话,那么也可以直接调用。