Run bat file in Delphi

 D Code 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

unit Map; interface uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type   TForm1 =  class (TForm)     mmo1: TMemo;     btn1: TButton;     edtUserName: TEdit;     lbl1: TLabel;     edtPassword: TEdit;     Label1: TLabel;     edtShareFolder: TEdit;     Label2: TLabel;     btn2: TButton;     procedure btn1Click(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure btn2Click(Sender: TObject);    private     { Private declarations }    public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btn1Click(Sender: TObject); var CreateBatFile: TstringList;  //用来创建Bat文件 BatchFilePath: TextFile;   //Bat文件的路径 Command : string;       //用来执行的命令 begin CreateBatFile :=TStringList.Create;   //创建一个字符串文件 CreateBatFile.SaveToFile( 'C:\Temp\MapScanDriver.bat' );  //在C:\Temp目录上创建一个bat文件 CreateBatFile.Free; AssignFile(BatchFilePath, 'C:\Temp\MapScanDriver.bat' ); Rewrite(BatchFilePath);  //清空 CloseFile(BatchFilePath); Command := 'net use H: "' ;     //构造命令 command := command + edtShareFolder.Text + '"  "' ; command := Command + edtPassword.Text +   '" /user:"' ; command := Command  + edtUserName.Text +  '"' ; mmo1.Lines.Add(Command);  //命令copy到memo控件上 mmo1.Lines.SaveToFile( 'C:\Temp\MapScanDriver.bat' );  //memo控件上的命令行直接保存到bat文件 WinExec( 'C:\Temp\MapScanDriver.bat' , SW_SHOWNORMAL);  //执行命令 end; procedure TForm1.btn2Click(Sender: TObject); begin mmo1.Lines.Clear; edtUserName.Clear; edtPassword.Clear; edtShareFolder.Clear; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin mmo1.Lines.Clear; mmo1.Lines.SaveToFile( 'C:\Temp\MapScanDriver.bat' );   //给bat文件写空 end; end.

转载于:https://www.cnblogs.com/kivin/p/4842189.html