|
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. |
原文：http://www.cnblogs.com/kivin/p/4842189.html