Delphi 调用批处理

最新推荐文章于 2020-12-27 18:44:38 发布

weixin_30950887

最新推荐文章于 2020-12-27 18:44:38 发布

阅读量168

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/p/3528436.html

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;