Delphi 路径有空格调用批处理

本文整理自网络，侵删。

 
uses ShellApi;
 
procedure TForm1.Button1Click(Sender: TObject);
var  filename, Path: string;begin  filename := 'D:\WmgjServer146\server\start.bat';  Path := ExtractFilePath(filename);  SetCurrentDir(Path);  ShellExecute(Handle, 'open', PWideChar(filename), 'run', nil, SW_SHOWNORMAL);end; 

相关阅读 >>

Delphi读写ini文件加锁(独占)

Delphi高效的byte转化sring 函数

Delphi xe5 android 使用system.zip单元释放资源文件

Delphi实现qq右下角弹出信息窗口

Delphi 关于 "高位" 与 "低位"

Delphi 取得当前监视器的分辨率

Delphi 新建文件夹函数

Delphi中输入法模式imemode属性的解释

Delphi stringgrid中回车换行

Delphi idhttp实现地址自动转向

更多相关阅读请进入《Delphi》频道 >>