Cordova - Windows版本图形界面管理工具，告别命令行输入方式！

原文: Cordova - Windows版本图形界面管理工具，告别命令行输入方式！

Cordova本身提供的是命令行管理工具，并没有提供图形界面管理工具，虽然命令行管理工具可以完成所有Cordova管理，但是对于我这种懒蛋，可真不希望每次都输入命令，而且我更担心一旦输错一个字符，命令执行失败，再次重新输入，反复执行这种无意义的事情！于是，我就用Delphi编写了这个Windows下的管理工具，用于执行大多数Cordova命令，能够满足我开发Cordova的需求！

由于目前工作紧张，所以暂时未能提供教程，近期完成项目后，会补上详细使用教程！

全部源码和编译好的工具下载：https://download.csdn.net/download/sunylat/10782003

此工具目前还有很少一点点功能需要完善，但不影响正常使用，只是锦上添花！

功能描述：

1，Cordova环境检查：对Cordova依赖的各种工具进行检查，看是否满足Cordova工作需要。

2，Cordova工程管理：新建、删除、加入已建立工程、在任意工程之间切换。

3，Cordova平台管理：添加、删除Cordova平台，Windows版，支持Android、IOS、Windows平台，其余平台未在本工具中加入，其实可以随时加入！

4，Cordova插件管理：添加、删除所有Cordova官方插件；支持第三方插件安装、删除。

5，编译、发布：支持Android平台APP的编译、发布，可以发布到模拟器或真机。

工具截图：

1，

2，

3，

4，

5，

全部源码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.ComCtrls, Vcl.Buttons, System.Generics.collections;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    clearLogBtn: TButton;
    logMemo: TMemo;
    Splitter1: TSplitter;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel4: TPanel;
    projectPathEdt: TEdit;
    Label1: TLabel;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    projectNameEdt: TEdit;
    Label3: TLabel;
    projectIdEdt: TEdit;
    openProjectPathBtn: TButton;
    GroupBox2: TGroupBox;
    androidCBox: TCheckBox;
    IOSCBox: TCheckBox;
    addPlatformBtn: TButton;
    removePlatformBtn: TButton;
    windowsCBox: TCheckBox;
    getPlatformBtn: TButton;
    installPluginBtn: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox3: TGroupBox;
    checkToolRGroup: TRadioGroup;
    installCordovaBtn: TButton;
    checkToolBtn: TButton;
    GroupBox4: TGroupBox;
    checkJavaHomeBtn: TButton;
    setJavaHomeBtn: TButton;
    GroupBox5: TGroupBox;
    checkAndroidHomeBtn: TButton;
    setAndroidHomeBtn: TButton;
    GroupBox6: TGroupBox;
    batteryStatusCBox: TCheckBox;
    cameraCBox: TCheckBox;
    contactsCBox: TCheckBox;
    deviceCBox: TCheckBox;
    deviceMotionCBox: TCheckBox;
    compassCBox: TCheckBox;
    dialogsCBox: TCheckBox;
    fileCBox: TCheckBox;
    fileTransferCBox: TCheckBox;
    geolocationCBox: TCheckBox;
    globalizationCBox: TCheckBox;
    mediaCBox: TCheckBox;
    mediaCaptureCBox: TCheckBox;
    networkCBox: TCheckBox;
    splashScreenCBox: TCheckBox;
    vibrationCBox: TCheckBox;
    statusbarCBox: TCheckBox;
    consoleCBox: TCheckBox;
    inappbrowserCBox: TCheckBox;
    selectPluginBitBtn: TBitBtn;
    GroupBox7: TGroupBox;
    downloadGradleBtn: TButton;
    configGradleBtn: TButton;
    Label7: TLabel;
    OpenDialog1: TOpenDialog;
    GroupBox8: TGroupBox;
    Label8: TLabel;
    pluginNameEdt: TEdit;
    selectLocalPluginBtn: TButton;
    isInstallThirdCBox: TCheckBox;
    GroupBox9: TGroupBox;
    buildBtn: TButton;
    GroupBox10: TGroupBox;
    sendToEmulatorBtn: TButton;
    Label10: TLabel;
    GroupBox11: TGroupBox;
    Label11: TLabel;
    sendToDeviceBtn: TButton;
    Label12: TLabel;
    isRebuildCBox: TCheckBox;
    selectPlatformBitBtn: TBitBtn;
    delPluginInfoLab: TLabel;
    pluginInfoLab: TLabel;
    projectListBox: TListBox;
    deleteProjectBtn: TButton;
    addOldProjectBtn: TButton;
    getProjectInfoBtn: TButton;
    Button8: TButton;
    createProjectBtn: TButton;
    curProjectNameEdt: TEdit;
    Label4: TLabel;
    openAndroidBuildPathBtn: TButton;
    openGradleDirBtn: TButton;
    chcpRGroup: TRadioGroup;
    doChcpBtn: TButton;
    buildPlatformRGroup: TRadioGroup;
    buildTypeRGroup: TRadioGroup;
    procedure clearLogBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure createProjectBtnClick(Sender: TObject);
    procedure openProjectPathBtnClick(Sender: TObject);
    procedure checkToolBtnClick(Sender: TObject);
    procedure installCordovaBtnClick(Sender: TObject);
    procedure getProjectInfoBtnClick(Sender: TObject);
    procedure getPlatformBtnClick(Sender: TObject);
    procedure addPlatformBtnClick(Sender: TObject);
    procedure removePlatformBtnClick(Sender: TObject);
    procedure installPluginBtnClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure buildBtnClick(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure checkJavaHomeBtnClick(Sender: TObject);
    procedure checkAndroidHomeBtnClick(Sender: TObject);
    procedure selectPluginBitBtnClick(Sender: TObject);
    procedure downloadGradleBtnClick(Sender: TObject);
    procedure configGradleBtnClick(Sender: TObject);
    procedure sendToEmulatorBtnClick(Sender: TObject);
    procedure sendToDeviceBtnClick(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure selectPlatformBitBtnClick(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure deleteProjectBtnClick(Sender: TObject);
    procedure addOldProjectBtnClick(Sender: TObject);
    procedure projectListBoxDblClick(Sender: TObject);
    procedure selectLocalPluginBtnClick(Sender: TObject);
    procedure openAndroidBuildPathBtnClick(Sender: TObject);
    procedure openGradleDirBtnClick(Sender: TObject);
    procedure doChcpBtnClick(Sender: TObject);
  private
    { Private declarations }

    // 是否程序正在运行
    function isExeRunning(exeName: string): boolean;
    // 终止进程
    procedure KillProc(procname: string);
    // 得到特殊目录
    function GetSpecialDir(SpecialDirID: Integer): string;
    // 得到用户目录
    function GetAppDir: string;

  public
    { Public declarations }
    procedure MyLog(tempLog: string); // log方法

    // 关闭DOS窗口
    procedure KillDosWindow;

    // 执行单条DOS命令
    procedure RunDosCommand(commandStr: string; isPause: boolean); Overload;

    {
      // 同时执行多条DOS命令
      stringList:包含要执行DOS命令的TStringList。
      isPause:是否执行完毕暂停当前窗口，不关闭
    }
    procedure RunDosCommand(var stringList: TStringList;
      isPause: boolean); Overload;

    // 判断是否Cordova工程目录
    function IsCordovaDir(projectDir: string): boolean;

    // 进入Cordova工程目录的DOS命令字符串
    function CdCordovaDirCommandStr(CordovaDir: string): string;

    {
      得到选中的插件
      isAdd:是否添加插件操作(tru,添加;false,删除)
    }
    function GetSelectedPlugin(isAdd: boolean): string;

    // 选择插件
    procedure SelectPlugin(isSelectAll: boolean);

    {
      得到选中的平台
      isAdd:是否添加插件平台(tru,添加;false,删除)
    }
    function GetSelectedPlatform: string;

    // 选择平台
    procedure SelectPlatform(isSelectAll: boolean);

    // 显示被管理工程信息
    procedure ShowProjectInfo(var projectDic: TDictionary<string, string>;
      var projectListBox: TListBox);

    // 通过工程全路径名称得到工程路径和名称
    procedure GetProjectPathAndName(projectDir: string; var projectPath: string;
      var projectName: string);

    // 对ini文件内容操作(添加和删除)
    procedure OperateIniFile(iniFileName, section, key, value: string;
      isAdd: boolean);

    // 同步数据
    procedure SyncProjectes(var projectDic: TDictionary<string, string>;
      var projectListBox: TListBox; iniFileName: string; isDicToIni: boolean);

    // 延时方法
    procedure Delay(msecs: Integer);

  end;

const
  {
    Gradle工具在用户目录中存放的路径名称

    注意：当前cordova版本:8.0.0,如果cordova版本不同，需要注意正在使用的cordova存放Gradle工具目录还是不是这个名称，
    如果不是，则直接把下面常量修改成正在使用的Gradle存放目录名称就可以了

    我当前版本cordova存放Gradle全路径：
    C:\Users\sunylat\.gradle\wrapper\dists\gradle-4.1-all\bzyivzo6n839fup2jbap0tjew
  }
  GradleDirInUserHome
    : string = ‘.gradle\wrapper\dists\gradle-4.1-all\bzyivzo6n839fup2jbap0tjew‘;

  // cordova命令使用的常量
  Cordova: String = ‘cordova ‘;

  // ini配置文件名称
  configFile: string = ‘config.ini‘;

  // 默认的工程ID
  defaultProjectID: string = ‘io.cordova.hellocordova‘;
  // 默认的工程名称
  defaultProjectName: string = ‘HelloCordova ‘;

  // DOS连接命令符合(前面命令必须成功执行，才能执行后面命令)
  DosJoinCode: string = ‘&‘;
  // DOS空白行命令
  DosBlankLine: string = ‘echo.‘;

var
  Form2: TForm2;

  logInfo: string; // log信息

  // -----------------------------------------

  curProjectPath: string; // 当前工程路径(不包括cordova工程目录)
  curProjectName: string; // 当前cordova工程名称
  curProjectDir: string; // cordova工程全路径名称(curProjectPath + curProjectName)

  DosCommand: string; // Dos命令

  iniFileName: string; // ini文件

  isSelectPlugin: boolean; // 是否选中插件

  isSelectPlatfom: boolean; // 是否选中平台

  // 被管理全部工程的Dictionary
  projectDictionary: TDictionary<string, string>;

implementation

{$R *.dfm}

uses
  FileCtrl, System.IOUtils, inifiles, ShellAPI, TLHelp32, ShlObj,
  System.StrUtils;

procedure TForm2.addOldProjectBtnClick(Sender: TObject);
var
  tempStr: string;
  tempProjectPath, tempProjectName: string; // 临时用的工程路径和工程名称
begin
  // 选择工程目录
  if SelectDirectory(‘请选择已有工程的目录！‘, ‘‘, tempStr) = true then
  begin
    // 通过选择的工程全路径名称得到工程路径和工程名称
    self.GetProjectPathAndName(tempStr, tempProjectPath, tempProjectName);

    // 把选中的工程信息加入到ni文件中
    self.OperateIniFile(iniFileName, ‘projectes‘, tempProjectName,
      tempProjectPath, true);

    // 同步数据
    self.SyncProjectes(projectDictionary, projectListBox, iniFileName, false);

  end;
end;

procedure TForm2.addPlatformBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
  platformStr: string; // 要添加平台命令字符串
begin

  // 得到选中平台
  platformStr := trim(self.GetSelectedPlatform);

  if platformStr <> ‘‘ then
  begin
    try
      tempList := TStringList.Create;

      // 加入进入工程目录的DOS命令
      tempCommand := self.CdCordovaDirCommandStr(curProjectDir);
      tempList.Add(tempCommand);

      // 加入添加平台的cordova命令
      tempCommand := ‘cordova platform add ‘ + platformStr + ‘ --save‘;
      tempList.Add(tempCommand);

      // 执行所有命令
      self.RunDosCommand(tempList, true);

    finally
      tempList.Free;
    end;
  end
  else
  begin
    showmessage(‘请选择要添加的平台，随后执行添加平台操作！‘);
  end;

end;

procedure TForm2.checkJavaHomeBtnClick(Sender: TObject);
begin
  // 查看JAVA_HOME环境变量
  DosCommand := ‘echo %JAVA_HOME%‘;

  // 执行DOS命令
  self.RunDosCommand(DosCommand, true);
end;

procedure TForm2.checkAndroidHomeBtnClick(Sender: TObject);
begin
  // 查看ANDROID_HOME环境变量
  DosCommand := ‘echo %ANDROID_HOME%‘;

  // 执行DOS命令
  self.RunDosCommand(DosCommand, true);
end;

procedure TForm2.openAndroidBuildPathBtnClick(Sender: TObject);
const

  // android debug程序编译输出目录
  androidDebugOutputPath = ‘platforms\android\app\build\outputs\apk\debug‘;

  // windows phone debug程序编译输出目录
  windowsDebugOutputPath = ‘platforms\windows\build\windows\debug\anycpu‘;

var
  projectDir, openDir: string;
begin

  projectDir := trim(projectPathEdt.Text);

  if projectDir <> ‘‘ then
  begin

    if buildPlatformRGroup.ItemIndex = 0 then
    begin
      openDir := projectDir + ‘\‘ + androidDebugOutputPath;
    end
    else if buildPlatformRGroup.ItemIndex = 1 then
    begin
      openDir := projectDir + ‘\‘ + windowsDebugOutputPath;
    end;

    ShellExecute(Handle, ‘open‘, ‘Explorer.exe‘, PChar(openDir), nil,
      SW_SHOWNORMAL);
  end;

end;

procedure TForm2.openProjectPathBtnClick(Sender: TObject);

begin

  if (trim(curProjectPath) <> ‘‘) and (trim(curProjectName) <> ‘‘) then
  begin
    ShellExecute(Handle, ‘open‘, ‘Explorer.exe‘, PChar(curProjectDir), nil,
      SW_SHOWNORMAL);
  end
  else
  begin
    showmessage(‘请确认是否已经创建过工程？‘);
  end;

end;

procedure TForm2.createProjectBtnClick(Sender: TObject);
var
  projectID: string; // 工程ID

  tempIniFile: TInifile; // ini配置文件

  // 创建工程
  procedure CreateProject;
  begin
    DosCommand := ‘cordova create ‘;

    {
      A,执行添加工程命令
    }

    // 1,在执行命令中加入工程路径
    DosCommand := DosCommand + curProjectPath + ‘\‘ + curProjectName + ‘ ‘;

    // 工程ID
    projectID := trim(projectIdEdt.Text);
    if projectID = ‘‘ then
    begin
      projectID := defaultProjectID;
    end;

    // 2，在执行命令中加入工程ID
    DosCommand := DosCommand + projectID + ‘ ‘;

    // 3，在执行命令中加入工程名称
    DosCommand := DosCommand + curProjectName;

    // 执行创建工程命令
    self.RunDosCommand(DosCommand, true);

    {
      B,把刚创建工程写入ini文件
    }
    try
      tempIniFile := TInifile.Create(iniFileName);

      // 当前工程名称
      tempIniFile.WriteString(‘curProject‘, ‘name‘, curProjectName);
      // 当前工程目录(不包括cordova工程目录的全路径名称)
      tempIniFile.WriteString(‘curProject‘, ‘path‘, curProjectPath);

    finally
      tempIniFile.Free;
    end;

    {
      C,把刚创建工程加入工程管理Dictionary中
    }
    projectDictionary.Add(curProjectName, curProjectPath);

    {
      D,重新显示全部工程信息
    }
    self.ShowProjectInfo(projectDictionary, projectListBox);

  end;

begin

  // 选择工程目录
  if SelectDirectory(‘请选择保存当前工程的上级文件夹，系统自动创建工程文件夹！‘, ‘‘, curProjectPath) then
  begin

    // 工程名称
    if trim(projectNameEdt.Text) <> ‘‘ then
    begin
      curProjectName := trim(projectNameEdt.Text);
    end
    else
    begin
      curProjectName := defaultProjectName;
    end;

    if rightStr(curProjectPath, 1) = ‘\‘ then
    begin
      // 工程全路径名称
      curProjectDir := curProjectPath + curProjectName;
    end
    else
    begin
      // 工程全路径名称
      curProjectDir := curProjectPath + ‘\‘ + curProjectName;
    end;

    if TDirectory.Exists(curProjectDir) = true then
    begin
      // 2，创建cordova工程
      if TDirectory.IsEmpty(curProjectDir) = false then
      begin
        if MessageBox(0,
          ‘执行创建工程操作，如果当前选中工程存放目录已经存在同名工程名称文件夹，则此文件夹将被彻底删除，确定创建吗？‘, ‘提醒‘,
          MB_YESNO + MB_ICONWARNING) = IDYES then
        begin

          // 删除已有文件夹(包括所有子文件夹和文件)
          TDirectory.Delete(curProjectDir, true);

          self.Delay(1500);

          // 重新创建工程目录
          TDirectory.CreateDirectory(curProjectDir);

          // 执行创建工程
          CreateProject;

        end;
      end
      else
      begin
        // 创建工程目录
        TDirectory.CreateDirectory(curProjectDir);

        // 执行创建工程
        CreateProject;
      end;
    end
    else
    begin
      // 创建工程目录
      TDirectory.CreateDirectory(curProjectDir);

      // 执行创建工程
      CreateProject;
    end;

    // 显示当前工程名称
    curProjectNameEdt.Text := curProjectName;
    // 显示创建工程的全路径名称
    projectPathEdt.Text := curProjectDir;

    // 同步工程信息
    SyncProjectes(projectDictionary, projectListBox, iniFileName, true);

  end;
end;

procedure TForm2.sendToEmulatorBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
  runCommand: string; // 运行安卓程序命令
begin

  try
    tempList := TStringList.Create;

    tempCommand := self.CdCordovaDirCommandStr(curProjectDir);

    tempList.Add(tempCommand);

    // 组装把安卓程序发送到模拟器运行的命令
    if isRebuildCBox.Checked = true then
    begin
      runCommand := ‘cordova run android --emulator‘;
    end
    else
    begin
      runCommand := ‘cordova run android --nobuild --emulator‘;
    end;

    // 加入把安卓程序发送到模拟器运行的命令
    tempList.Add(runCommand);

    self.RunDosCommand(tempList, true);

  finally
    tempList.Free;

    // 窗口最小化到任务栏
    Application.Minimize;
  end;
end;

procedure TForm2.TabSheet4Show(Sender: TObject);
var
  tempStr: string;
begin

  {
    1,第三方插件安装方法
  }
  tempStr := ‘第三方插件安装方法：必须选中"安装第三方插件"复选框后，采用下面两种方式安装。‘ + #13;
  tempStr := tempStr + ‘1,远程下载：在"插件名称或URL"文本框输入下载插件的url。‘ + #13;
  tempStr := tempStr + ‘2,本地安装：点击"选择本地插件"按钮，选择本地插件。‘;

  // 显示设置第三方插件安装方法
  pluginInfoLab.Caption := tempStr;

  {
    2,第三方插件删除方法
  }
  tempStr := ‘第三方插件删除方法：在"插件名称或URL"文本框输入删除插件名称。‘ + #13;
  tempStr := tempStr + ‘注意：删除的插件名称和安装时候的名称不一样！‘ + #13;
  tempStr := tempStr + ‘删除的插件名称是安装时候的名称的最后一部分，‘ + #13;
  tempStr := tempStr + ‘是去掉整个名称的"cordova-plugin-"之后剩余的字符串！，‘ + #13;
  tempStr := tempStr + ‘例如：camera插件‘ + #13;
  tempStr := tempStr + ‘安装名称：cordova-plugin-camera‘ + #13;
  tempStr := tempStr + ‘删除名称：camera‘;

  delPluginInfoLab.Caption := tempStr;

end;

procedure TForm2.sendToDeviceBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
  runCommand: string; // 运行安卓程序命令
begin

  try
    tempList := TStringList.Create;

    tempCommand := self.CdCordovaDirCommandStr(curProjectDir);

    tempList.Add(tempCommand);

    // 组装把安卓程序发送到模拟器运行的命令
    if isRebuildCBox.Checked = true then
    begin
      runCommand := ‘cordova run android --device‘;
    end
    else
    begin
      runCommand := ‘cordova run android --nobuild --device‘;
    end;

    // 加入把安卓程序发送到模拟器运行的命令
    tempList.Add(runCommand);

    self.RunDosCommand(tempList, true);

  finally
    tempList.Free;

    // 窗口最小化到任务栏
    Application.Minimize;
  end;
end;

procedure TForm2.installPluginBtnClick(Sender: TObject);

var
  tempList: TStringList;
  tempCommand: string;
  pluginStr: string; // 插件列表

  {
    删除摄像头插件配置文件，如果不删除，则再次安装时候报错，这可能是一个BUG
  }
  procedure DeleteCameraXml(tempProjectDir: string);
  const
    // 摄像头插件的配置文件
    cameraXml: string =
      ‘platforms\android\app\src\main\res\xml\camera_provider_paths.xml‘;
  var
    tempFile: string; // 临时变量
  begin

    // 摄像头插件的配置文件的全路径名称
    tempFile := tempProjectDir + ‘\‘ + cameraXml;
    if TFile.Exists(tempFile) = true then
    begin
      TFile.Delete(tempFile);
    end;
  end;

begin

  // 安装第三方插件
  if isInstallThirdCBox.Checked = true then
  begin
    // 得到要安装插件名称或者url
    pluginStr := trim(pluginNameEdt.Text);

    // 可以安装，则直接安装
    if pluginStr = ‘‘ then
    begin
      showmessage(‘要安装的第三方插件名称或者Url不能为空！‘);
      pluginNameEdt.SetFocus;
    end;

  end
  else // 安装Cordova官方插件
  begin

    // 得到要安装的插件列表
    pluginStr := self.GetSelectedPlugin(true);

  end;

  // 如果有要安装的插件，则执行安装
  if trim(pluginStr) <> ‘‘ then
  begin
    // 1,删除摄像头插件配置文件
    DeleteCameraXml(curProjectDir);

    // 2,安装指定的插件
    try
      tempList := TStringList.Create;

      // 1,加入进入Cordova工程目录命令
      tempCommand := self.CdCordovaDirCommandStr(curProjectDir);
      tempList.Add(tempCommand);

      // 2，加入执行安装插件命令
      tempCommand := ‘cordova plugin add ‘ + pluginStr +
        ‘ --save --searchpath ../plugins‘;
      tempList.Add(tempCommand);

      // 3，执行安装插件命令
      self.RunDosCommand(tempList, true);

    finally
      tempList.Free;
    end;
  end
  else
  begin
    showmessage(‘请选择要安装的插件后，在执行安装插件操作！‘);
  end;

end;

procedure TForm2.openGradleDirBtnClick(Sender: TObject);
var
  GradleSaveDir: string; // Gradle最终保持目录名称
  userHome: string; // 用户目录
begin

  // 得到用户目录
  userHome := StringReplace(self.GetAppDir, ‘AppData\Roaming‘, ‘‘,
    [rfReplaceAll]);

  // Gradle最终保持目录名称
  GradleSaveDir := userHome + GradleDirInUserHome;

  ShellExecute(Handle, ‘open‘, ‘Explorer.exe‘, PChar(GradleSaveDir), nil,
    SW_SHOWNORMAL);
end;

procedure TForm2.Button5Click(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
  pluginStr: string; // 插件列表
begin

  // 安装Cordova官方插件
  if isInstallThirdCBox.Checked = false then
  begin
    // 得到要删除的插件列表
    pluginStr := self.GetSelectedPlugin(false);

  end
  else // 安装第三方插件
  begin

    // 得到要安装插件名称或者url
    pluginStr := trim(pluginNameEdt.Text);

    // 可以安装，则直接安装
    if pluginStr = ‘‘ then
    begin
      showmessage(‘要安装的第三方插件名称或者Url不能为空！‘);
      pluginNameEdt.SetFocus;
    end;

  end;

  // 执行删除插件命令
  if trim(pluginStr) <> ‘‘ then
  begin

    try
      tempList := TStringList.Create;

      // 1,加入进入Cordova工程目录命令
      tempCommand := self.CdCordovaDirCommandStr(curProjectDir);
      tempList.Add(tempCommand);

      // 2,加入执行删除插件命令
      tempCommand := ‘cordova plugin rm ‘ + pluginStr + ‘ --save‘;
      tempList.Add(tempCommand);

      // 3，执行删除插件命令
      self.RunDosCommand(tempList, true);

    finally
      tempList.Free;
    end;
  end
  else
  begin
    showmessage(‘请选择要删除的插件后，在执行删除插件操作！‘);
  end;

end;

procedure TForm2.Button6Click(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
begin

  try
    tempList := TStringList.Create;

    tempCommand := self.CdCordovaDirCommandStr(curProjectDir);

    tempList.Add(tempCommand);
    tempList.Add(‘cordova plugin ls‘);

    self.RunDosCommand(tempList, true);

  finally
    tempList.Free;
  end;

end;

procedure TForm2.buildBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
begin

  try
    tempList := TStringList.Create;

    // 1, 加入进入当前工程目录命令
    tempCommand := self.CdCordovaDirCommandStr(curProjectDir);
    tempList.Add(tempCommand);

    if buildPlatformRGroup.ItemIndex = 0 then
    begin
      // 2,加入编译cordova在安卓平台的程序

      if buildTypeRGroup.ItemIndex = 0 then
      begin
        tempList.Add(‘cordova build android --debug‘);
      end
      else if buildTypeRGroup.ItemIndex = 1 then
      begin
        // tempList.Add(‘cordova build android --release -- --keystore="..\android.keystore" --storePassword=android --alias=mykey‘);
      end;

    end
    else if buildPlatformRGroup.ItemIndex = 1 then
    begin
      // 2,加入编译cordova在windows平台的程序

      if buildTypeRGroup.ItemIndex = 0 then
      begin
        tempList.Add(‘cordova build windows --debug‘);
      end
      else if buildTypeRGroup.ItemIndex = 1 then
      begin
        // tempList.Add(‘cordova build android --release -- --keystore="..\android.keystore" --storePassword=android --alias=mykey‘);
      end;
    end;

    // 执行命令
    self.RunDosCommand(tempList, true);

  finally
    tempList.Free;
  end;
end;

procedure TForm2.Button8Click(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
begin

  try
    tempList := TStringList.Create;

    tempCommand := self.CdCordovaDirCommandStr(curProjectDir);

    // browser ~5.0.1
    // osx ~4.0.1
    // windows ~5.0.0
    // www ^3.12.0

    tempList.Add(tempCommand);
    tempList.Add(‘cordova requirements ‘);

    self.RunDosCommand(tempList, true);

  finally
    tempList.Free;
  end;
end;

procedure TForm2.getProjectInfoBtnClick(Sender: TObject);

var
  stringList: TStringList;
  tempStr: string;
  projectDisk: string; // 工程目录存放磁盘的盘符
  tempProjectPath: string;
begin

  // 通过工程全路径名称得到所在磁盘盘符
  projectDisk := ExtractFileDrive(curProjectDir);

  // 得到去除盘符之后的路径名称
  tempProjectPath := rightStr(curProjectDir, length(curProjectDir) - 3);
  // 命令例子：cd cordovaTest\test\HelloCordova
  if projectDisk = ‘C:‘ then
  begin
    tempStr := ‘cd ‘ + curProjectDir;
  end
  else
  begin
    tempStr := ‘cd ‘ + tempProjectPath;
  end;

  // 创建并执行查看工程信息命令
  try
    stringList := TStringList.Create;

    stringList.Add(projectDisk);
    stringList.Add(tempStr);
    stringList.Add(‘echo 工程信息:‘);
    stringList.Add(DosBlankLine);
    stringList.Add(‘cordova info‘);

    // 测试信息
    stringList.Add(DosBlankLine);
    stringList.Add(‘cordova platform ls‘);

    self.RunDosCommand(stringList, true);

  finally
    stringList.Free;
  end;

end;

procedure TForm2.getPlatformBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
begin

  try
    tempList := TStringList.Create;

    tempCommand := self.CdCordovaDirCommandStr(curProjectDir);

    tempList.Add(tempCommand);
    tempList.Add(‘cordova platform ls‘);

    self.RunDosCommand(tempList, true);

  finally
    tempList.Free;
  end;

end;

procedure TForm2.checkToolBtnClick(Sender: TObject);
var
  ItemIndex: Integer; // 工具选中ID
begin

  ItemIndex := checkToolRGroup.ItemIndex;

  if ItemIndex = -1 then
  begin
    showmessage(‘请选择要检测的工具！‘);
  end
  else
  begin

    // 如果没有项目选中，则提示用户选择
    if ItemIndex = 0 then
    begin
      // 查看node.js版本
      DosCommand := ‘node -v‘;

      // 执行DOS命令
      self.RunDosCommand(DosCommand, true);
    end
    else if ItemIndex = 1 then
    begin
      // 查看phonegap版本
      DosCommand := ‘git --version‘;

      // 执行DOS命令
      self.RunDosCommand(DosCommand, true);
    end
    else if ItemIndex = 2 then
    begin
      // 查看cordova版本
      DosCommand := ‘cordova -v‘;

      // 执行DOS命令
      self.RunDosCommand(DosCommand, true);
    end;

  end;

end;

procedure TForm2.clearLogBtnClick(Sender: TObject);
begin
  logMemo.Clear;

  // projectDictionary.Add(‘ccc‘, ‘e:\abc\def‘);
  // projectDictionary.Add(‘dddd‘, ‘f:\uio\wer‘);
  // self.SyncProjectes(projectDictionary, projectListBox, iniFileName, true);

  // self.SyncProjectes(projectDictionary, projectListBox, iniFileName, false);
  // MyLog(projectDictionary.ToString);
  // MyLog(IntToStr(projectDictionary.Count));
end;

procedure TForm2.configGradleBtnClick(Sender: TObject);
var
  GradleZipFileName: string; // gradle下载文件名
  GradleSaveDir: string; // Gradle最终保持目录名称
  destFile: string; // 存放gradle的文件名
  userHome: string; // 用户目录
begin
  if OpenDialog1.Execute then
  begin

    // 得到用户目录
    userHome := StringReplace(self.GetAppDir, ‘AppData\Roaming‘, ‘‘,
      [rfReplaceAll]);

    // Gradle最终保持目录名称
    GradleSaveDir := userHome + GradleDirInUserHome;

    {
      1，准备gradle存放目录
    }

    // 删除非空的gradle存放目录
    if TDirectory.Exists(GradleSaveDir) = true then
    begin
      TDirectory.Delete(GradleSaveDir, true);
    end;
    // 创建gradle存放
    TDirectory.CreateDirectory(GradleSaveDir);

    // 2,拷贝下载文件到gradle存放目录
    GradleZipFileName := ExtractFileName(OpenDialog1.FileName);
    destFile := GradleSaveDir + ‘\‘ + GradleZipFileName;
    TFile.Copy(trim(OpenDialog1.FileName), destFile);

    MyLog(‘gradle配置完毕!‘);

  end;
end;

procedure TForm2.deleteProjectBtnClick(Sender: TObject);
var
  delProjectName: string; // 要删除工程名称
  iniFile: TInifile;
begin
  if projectListBox.ItemIndex <> -1 then
  begin
    // 得到要删除工程名称
    delProjectName := trim(projectListBox.Items[projectListBox.ItemIndex]);

    try
      iniFile := TInifile.Create(iniFileName);

      // 1，从全部被管理工程里面删除当前要删除的工程
      iniFile.DeleteKey(‘projectes‘, delProjectName);

      // 同步数据
      self.SyncProjectes(projectDictionary, projectListBox, iniFileName, false);

      {
        如果删除工程是当前管理工程，则进一步处理，
        A，清理当前工程全局变量
        B，从程序界面上消除显示信息
        c，删除ini配置信息
      }
      if delProjectName = curProjectName then
      begin
        // A，清理当前工程全局变量
        curProjectPath := ‘‘;
        curProjectName := ‘‘;
        curProjectDir := ‘‘;

        // B，从程序界面上消除显示信息
        curProjectNameEdt.Clear;
        projectPathEdt.Clear;

        // c，删除ini配置信息
        iniFile.WriteString(‘curProject‘, ‘name‘, ‘‘);
        iniFile.WriteString(‘curProject‘, ‘path‘, ‘‘);

      end;

    finally
      iniFile.Free;
    end;

  end;
end;

procedure TForm2.doChcpBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
  ItemIndex: Integer; // 选中项目ID
begin

  // 得到选中项目ID
  ItemIndex := chcpRGroup.ItemIndex;

  // 有项目选中，则执行具体操作
  if ItemIndex <> -1 then
  begin
    try
      tempList := TStringList.Create;

      if ItemIndex = 3 then
      begin
        tempList.Add(‘npm install -g cordova-hot-code-push-cli‘);
      end
      else
      begin
        // 1, 加入进入当前工程目录命令
        tempCommand := self.CdCordovaDirCommandStr(curProjectDir);
        tempList.Add(tempCommand);

        case ItemIndex of
          0:
            begin
              tempList.Add(‘cordova-hcp build‘);
            end;
          1:
            begin
              tempList.Add(‘cordova-hcp server‘);
            end;
          2:
            begin
              tempList.Add(‘cordova-hcp init‘);
            end;
        end;

      end;

      // 执行命令
      self.RunDosCommand(tempList, true);

    finally
      tempList.Free;
    end;
  end;

end;

procedure TForm2.downloadGradleBtnClick(Sender: TObject);
const
  // Gradle配置文件名称
  GradleWapperFile
    : string = ‘\platforms\android\gradle\wrapper\gradle-wrapper.properties‘;
  GradleUrlKey: string = ‘distributionUrl‘; // 下载Gradle的网址key
var
  WapperFile: string; // Gradle配置文件权路径名称
  tempList: TStringList;
  tempUrl: string;
begin
  WapperFile := curProjectDir + GradleWapperFile;

  // 如果Gradle配置文件存在，则获取下载url，并且下载对应版本的Gradle
  if TFile.Exists(WapperFile) = true then
  begin
    try
      tempList := TStringList.Create;
      tempList.LoadFromFile(WapperFile);

      // 得到配置文件中当前版本的gradle下载地址
      tempUrl := tempList.Values[GradleUrlKey];

      // 去掉"\"
      tempUrl := StringReplace(tempUrl, ‘\‘, ‘‘, [rfReplaceAll]);

      // 打开浏览器下载gradle
      ShellExecute(0, nil, PChar(tempUrl), nil, nil, 1);

    finally
      tempList.Free;
    end;
  end
  else
  begin
    showmessage(‘Gradle配置文件不存在，请确认是否添加了Android平台，如果未添加，请添加后执行此操作！‘);
  end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // 关闭打开的DOS窗口
  self.KillDosWindow;

  // 释放被管理工程Dictionary
  projectDictionary.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  iniFile: TInifile;
  tempList: TStringList;
  i: Integer;
begin

  // 是否选中插件默认值为false
  isSelectPlugin := false;

  // 是否选中平台默认值为false
  isSelectPlatfom := false;

  // --------------------------------------------
  // 从ini文件获取被管理的工程

  // 被管理全部工程的Dictionary
  projectDictionary := TDictionary<string, string>.Create;

  try
    // ini配置文件
    iniFileName := ExtractFilePath(ParamStr(0)) + configFile;

    // 实例化inifile类
    iniFile := TInifile.Create(iniFileName);

    {
      A，得到当前正在管理工程信息
    }

    // 1,得到cordova工程目录
    curProjectPath := iniFile.ReadString(‘curProject‘, ‘path‘, ‘‘);

    // 2,得到工程名称
    curProjectName := iniFile.ReadString(‘curProject‘, ‘name‘, ‘‘);
    curProjectNameEdt.Text := curProjectName;

    // 工程目录
    // curProjectDir := curProjectPath + ‘\‘ + curProjectName;

    if trim(curProjectName) <> ‘‘ then
    begin
      if rightStr(curProjectPath, 1) = ‘\‘ then
      begin
        // 工程全路径名称
        curProjectDir := curProjectPath + curProjectName;
      end
      else
      begin
        // 工程全路径名称
        curProjectDir := curProjectPath + ‘\‘ + curProjectName;
      end;

      // 显示工程目录
      projectPathEdt.Text := curProjectDir;
    end;

    {
      B，得到全部被管理工程信息
    }
    tempList := TStringList.Create;
    iniFile.ReadSectionValues(‘projectes‘, tempList);
    // 如果有被管理网站，则继续处理
    if tempList.Count > 0 then
    begin

      // 遍历被管理网站
      for i := 0 to tempList.Count - 1 do
      begin
        // 加入管理Dictionary中
        projectDictionary.Add(tempList.KeyNames[i], tempList.ValueFromIndex[i]);

        // 在程序界面显示被管理网站名称
        projectListBox.Items.Add(tempList.KeyNames[i]);
      end;

    end;

  finally
    iniFile.Free;
    tempList.Free;
  end;

end;

procedure TForm2.installCordovaBtnClick(Sender: TObject);
begin
  if MessageBox(0, ‘node.js和git已经都安装完毕了吗？‘, ‘提醒‘, MB_YESNO + MB_ICONWARNING) = IDYES
  then
  begin

    // // 关闭正在打开的DOS窗口
    // self.KillDosWindow;

    // 安装cordova
    DosCommand := ‘npm install -g cordova‘;

    // 执行DOS命令
    self.RunDosCommand(DosCommand, true);
  end;
end;

// log方法
procedure TForm2.MyLog(tempLog: string);
var
  temp: string;
  oldLog: string;
begin
  if trim(tempLog) <> ‘‘ then
  begin

    oldLog := trim(logMemo.Text);
    logMemo.Clear;

    temp := FormatDateTime(‘yyyy-mm-dd hh:mm:ss‘, now) + ‘ ‘ + trim(tempLog);
    if oldLog = ‘‘ then
    begin
      logMemo.Lines.Add(temp);
      logMemo.Lines.Add(‘‘);
    end
    else
    begin
      logMemo.Lines.Add(temp);
      logMemo.Lines.Add(‘‘);
      logMemo.Lines.Add(oldLog);
    end;

  end;

end;

procedure TForm2.removePlatformBtnClick(Sender: TObject);
var
  tempList: TStringList;
  tempCommand: string;
  platformStr: string; // 要添加平台命令字符串
begin

  // 得到选中平台
  platformStr := trim(self.GetSelectedPlatform);

  if platformStr <> ‘‘ then
  begin
    try
      tempList := TStringList.Create;

      // 加入进入工程目录的DOS命令
      tempCommand := self.CdCordovaDirCommandStr(curProjectDir);
      tempList.Add(tempCommand);

      // 加入添加平台的cordova命令
      tempCommand := ‘cordova platform rm ‘ + platformStr + ‘ --save‘;
      tempList.Add(tempCommand);

      // 执行所有命令
      self.RunDosCommand(tempList, true);

    finally
      tempList.Free;
    end;
  end
  else
  begin
    showmessage(‘请选择要删除的平台，随后执行删除平台操作！‘);
  end;

  // try
  // tempList := TStringList.Create;
  //
  // tempCommand := self.CdCordovaDirCommandStr(projectDir);
  //
  // tempList.Add(tempCommand);
  // tempList.Add(‘cordova platform rm android ios windows --save‘);
  //
  // self.RunDosCommand(tempList, true);
  //
  // finally
  // tempList.Free;
  // end;
end;

// 关闭DOS窗口
procedure TForm2.KillDosWindow;
const
  dosName: string = ‘cmd.exe‘; // DOS程序名称
begin
  // 如果有DOS窗口打开，则强制关闭
  if self.isExeRunning(dosName) = true then
  begin
    // 关闭DOS窗口
    self.KillProc(dosName);

    // 延时，以便先前DOS窗口彻底关闭
    sleep(50);
  end;
end;

// 执行DOS命令
procedure TForm2.RunDosCommand(commandStr: string; isPause: boolean);
const
  // DOS命令加暂停关闭窗口的语句
  commandHead: string = ‘/c ‘;
  PauseWindow: string = ‘ & pause‘;
var
  DosCommand: string; // Dos命令

begin

  // tempStr := ‘/c ping 192.168.1.1 & pause‘;

  KillDosWindow;

  // 组装DOS命令
  DosCommand := commandHead + trim(commandStr);

  // 添加执行完操作后的暂停命令
  if isPause = true then
  begin
    DosCommand := DosCommand + PauseWindow;
  end;

  // 打开DOS窗口，执行指定的命令
  ShellExecute(Handle, nil, ‘cmd.exe‘, PChar(DosCommand), nil, sw_normal);

end;

// 判断是否Cordova工程目录
function TForm2.IsCordovaDir(projectDir: string): boolean;
const
  wwwDir: string = ‘www‘; // Cordova工程目录中的"www"目录名
  pluginsDir: string = ‘plugins‘; // Cordova工程目录中的"plugins"目录名
  platformsDir: string = ‘platforms‘; // Cordova工程目录中的"plugins"目录名
  hooksDir: string = ‘hooks‘; // Cordova工程目录中的"plugins"目录名
var
  tempWwwDir: string;
  tempPluginsDir: string;
  tempPlatformsDir: string;
  tempHooksDir: string;

  isTrue: boolean;
begin
  // Cordova工程目录中的"www"目录
  tempWwwDir := trim(projectDir) + ‘\‘ + wwwDir;

  // Cordova工程目录中的"plugins"目录
  tempPluginsDir := trim(projectDir) + ‘\‘ + pluginsDir;

  // Cordova工程目录中的"plugins"目录
  tempPlatformsDir := trim(projectDir) + ‘\‘ + platformsDir;

  // Cordova工程目录中的"plugins"目录
  tempHooksDir := trim(projectDir) + ‘\‘ + hooksDir;

  // 只有同时这四个目录都存在时候，才判断当前目录是Cordova工程目录
  if (TDirectory.Exists(tempWwwDir) = true) and
    (TDirectory.Exists(tempPluginsDir) = true) and
    (TDirectory.Exists(tempPlatformsDir) = true) and
    (TDirectory.Exists(tempHooksDir) = true) then
  begin
    isTrue := true;
  end;

  result := isTrue;
end;

procedure TForm2.RunDosCommand(var stringList: TStringList; isPause: boolean);
const
  // DOS连接命令符合(前面命令必须成功执行，才能执行后面命令)
  DosJoinCode: string = ‘&&‘;
  dosName: string = ‘cmd.exe‘;
var
  i: Integer;
  commandStr: string;
begin

  // 如果有要执行的命令，则拼装命令
  if stringList.Count > 0 then
  begin

    // 拼装命令
    for i := 0 to stringList.Count - 1 do
    begin
      // 第一个命令，直接赋值
      if i = 0 then
      begin
        commandStr := stringList[i];
      end
      else
      begin
        // 其余命令依次添加到先前命令后，并且加入DOS多个命令链接符号"&&"
        commandStr := commandStr + DosJoinCode + stringList[i];
      end;
    end;

    // MyLog(commandStr);

    // // 关闭正在打开的DOS窗口
    // self.KillDosWindow;

    // 执行DOS命令
    self.RunDosCommand(commandStr, isPause);

  end;

end;

procedure TForm2.selectLocalPluginBtnClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    pluginNameEdt.Text := trim(OpenDialog1.FileName);
  end;
end;

// 是否程序正在运行
function TForm2.isExeRunning(exeName: string): boolean;
var
  lppe: TProcessEntry32;
  isFound: boolean;
  Hand: THandle;
  tempName: string; // 程序名称
  temp: boolean; // 返回值变量
  judgePos: Integer; // 扩展名判断位置
begin
  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  lppe.dwSize := Sizeof(lppe); // 必须设置此值
  isFound := Process32First(Hand, lppe);

  temp := false; // 返回的布尔值

  // 程序名称变量
  tempName := trim(exeName);

  // 扩展名分隔符位置
  judgePos := Pos(‘.‘, tempName);

  // 判断是否有扩展名
  if judgePos = 0 then
  begin
    tempName := tempName + ‘.exe‘; // 添加".exe"扩展名
  end
  else
  begin
    if length(Copy(tempName, judgePos, 4)) < 4 then
    begin
      // 删除不符合添加的扩展名
      Delete(tempName, judgePos, (length(tempName) - judgePos + 1));
      // 添加".exe"扩展名
      tempName := tempName + ‘.exe‘;
    end;
  end;

  // 循环判断是否有相同名称程序
  while isFound do
  begin

    // 判断当前程序名称和指定程序名称相同
    if lppe.szExeFile = tempName then
    begin
      temp := true;
      Break;
    end;

    // Memo1.Lines.Add(IntToStr(i) + ‘ : ‘ +IntToStr(lppe.th32ProcessID)+‘ ‘+ StrPas(lppe.szExeFile));
    isFound := Process32Next(Hand, lppe);
  end;

  result := temp;
end;

procedure TForm2.selectPluginBitBtnClick(Sender: TObject);
begin
  if isSelectPlugin = false then
  begin
    self.SelectPlugin(true);
  end
  else
  begin
    self.SelectPlugin(false);
  end;
end;

// 杀死进程
procedure TForm2.KillProc(procname: string);
const
  PROCESS_TERMINATE = $0001;
var
  ExeFileName: String;
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  ExeFileName := procname;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))
      = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile)
      = UpperCase(ExeFileName))) then
      TerminateProcess(OpenProcess(PROCESS_TERMINATE, Bool(0),
        FProcessEntry32.th32ProcessID), 0);
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
end;

procedure TForm2.Label12Click(Sender: TObject);
const
  asHelpUrl = ‘https://www.cnblogs.com/sunylat/p/9674666.html‘;
begin
  ShellExecute(Handle, ‘open‘, ‘Explorer.exe‘, PChar(asHelpUrl), nil, 1);
end;

// 进入Cordova工程目录的DOS命令字符串
function TForm2.CdCordovaDirCommandStr(CordovaDir: string): string;
var
  dirStr: string; // 不包含盘符的cordova工程全路径名
  commandStr: string;
begin
  dirStr := trim(CordovaDir);

  commandStr := ‘cd /d ‘ + dirStr;

  result := commandStr;
end;

// 得到选中的插件
function TForm2.GetSelectedPlugin(isAdd: boolean): string;
const
  spaceLetter: string = ‘ ‘;
var
  tempStr: string;
begin

  tempStr := ‘‘;

  // 1,电池状态
  if batteryStatusCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-battery-status‘ + spaceLetter;
  end;

  // 2,照相机
  if cameraCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-camera‘ + spaceLetter;
  end;

  // 3,通讯录
  if contactsCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-contacts‘ + spaceLetter;
  end;

  // 4,设备
  if deviceCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-device‘ + spaceLetter;
  end;

  // 5,加速计
  if deviceMotionCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-device-motion‘ + spaceLetter;
  end;

  // 6,指南针
  if compassCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-device-orientation‘ + spaceLetter;
  end;

  // 7,通知
  if dialogsCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-dialogs‘ + spaceLetter;
  end;

  // 8,文件
  if fileCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-file‘ + spaceLetter;
  end;

  // 9,文件传输
  if fileTransferCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-file-transfer‘ + spaceLetter;
  end;

  // 10,地理位置
  if geolocationCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-geolocation‘ + spaceLetter;
  end;

  // 11,国际化
  if globalizationCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-globalization‘ + spaceLetter;
  end;

  // 12,多媒体
  if mediaCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-media‘ + spaceLetter;
  end;

  // 13,多媒体采集
  if mediaCaptureCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-media-capture‘ + spaceLetter;
  end;

  // 14,网络
  if networkCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-network-information‘ + spaceLetter;
  end;

  // 15,闪屏
  if splashScreenCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-splashscreen‘ + spaceLetter;
  end;

  // 16,震动
  if vibrationCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-vibration‘ + spaceLetter;
  end;

  // 17,状态栏
  if statusbarCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-statusbar‘ + spaceLetter;
  end;

  // 18,控制台
  if consoleCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-console‘ + spaceLetter;
  end;

  // 19,内置浏览器
  if inappbrowserCBox.Checked = true then
  begin
    tempStr := tempStr + ‘cordova-plugin-inappbrowser‘ + spaceLetter;
  end;

  // 删除插件操作，需要把"cordova-plugin-"这些字符去掉
  if isAdd = false then
  begin
    if trim(tempStr) <> ‘‘ then
    begin
      // 替换字符串
      tempStr := StringReplace(tempStr, ‘cordova-plugin-‘, ‘‘, [rfReplaceAll]);
    end;
  end;

  result := tempStr;
end;

// 选择插件
procedure TForm2.SelectPlugin(isSelectAll: boolean);
begin

  // 1,电池状态
  batteryStatusCBox.Checked := isSelectAll;

  // 2,照相机
  cameraCBox.Checked := isSelectAll;

  // 3,通讯录
  contactsCBox.Checked := isSelectAll;

  // 4,设备
  deviceCBox.Checked := isSelectAll;

  // 5,加速计
  deviceMotionCBox.Checked := isSelectAll;

  // 6,指南针
  compassCBox.Checked := isSelectAll;

  // 7,通知
  dialogsCBox.Checked := isSelectAll;

  // 8,文件
  fileCBox.Checked := isSelectAll;

  // 9,文件传输
  fileTransferCBox.Checked := isSelectAll;

  // 10,地理位置
  geolocationCBox.Checked := isSelectAll;

  // 11,国际化
  globalizationCBox.Checked := isSelectAll;

  // 12,多媒体
  mediaCBox.Checked := isSelectAll;

  // 13,多媒体采集
  mediaCaptureCBox.Checked := isSelectAll;

  // 14,网络
  networkCBox.Checked := isSelectAll;

  // 15,闪屏
  splashScreenCBox.Checked := isSelectAll;

  // 16,震动
  vibrationCBox.Checked := isSelectAll;

  // 17,状态栏
  statusbarCBox.Checked := isSelectAll;

  // 18,控制台
  consoleCBox.Checked := isSelectAll;

  // 19,内置浏览器
  inappbrowserCBox.Checked := isSelectAll;

  // 设置是否已经选择全部插件的值
  isSelectPlugin := isSelectAll;

  if isSelectAll = true then
  begin
    selectPluginBitBtn.Caption := ‘全  不  选‘;
    selectPluginBitBtn.Font.Color := clRed;
  end
  else
  begin
    selectPluginBitBtn.Caption := ‘全      选‘;
    selectPluginBitBtn.Font.Color := clBlue;
  end;

end;

// 得到特殊目录
function TForm2.GetSpecialDir(SpecialDirID: Integer): string;
var
  pidl: PItemIDList;
  Path: array [0 .. MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, SpecialDirID, pidl);
  SHGetPathFromIDList(pidl, Path);
  result := Path;
end;

// 得到用户目录
function TForm2.GetAppDir: string;
begin
  result := GetSpecialDir(CSIDL_APPDATA);
end;

{
  得到选中的平台
  isAdd:是否添加插件平台(tru,添加;false,删除)
}
function TForm2.GetSelectedPlatform: string;
const
  spaceLetter: string = ‘ ‘;
var
  tempStr: string;
begin

  tempStr := ‘‘;

  // 1,androidwindows
  if androidCBox.Checked = true then
  begin
    tempStr := tempStr + ‘android‘ + spaceLetter;
  end;

  // 2,ios平台
  if IOSCBox.Checked = true then
  begin
    tempStr := tempStr + ‘ios‘ + spaceLetter;
  end;

  // 3,windows平台
  if windowsCBox.Checked = true then
  begin
    tempStr := tempStr + ‘windows‘ + spaceLetter;
  end;

  result := tempStr;
end;

// 选择平台
procedure TForm2.SelectPlatform(isSelectAll: boolean);
begin

  // 安卓平台
  androidCBox.Checked := isSelectAll;

  // IOS平台
  IOSCBox.Checked := isSelectAll;

  // Windows(8.1, 10,Phone 8.1)
  windowsCBox.Checked := isSelectAll;

  isSelectPlatfom := isSelectAll;

  if isSelectAll = true then
  begin
    selectPlatformBitBtn.Caption := ‘全  不  选‘;
    selectPlatformBitBtn.Font.Color := clRed;
  end
  else
  begin
    selectPlatformBitBtn.Caption := ‘全      选‘;
    selectPlatformBitBtn.Font.Color := clBlue;
  end;
end;

procedure TForm2.selectPlatformBitBtnClick(Sender: TObject);
begin
  if isSelectPlatfom = false then
  begin
    self.SelectPlatform(true);
  end
  else
  begin
    self.SelectPlatform(false);
  end;
end;

// 显示被管理工程信息
procedure TForm2.ShowProjectInfo(var projectDic: TDictionary<string, string>;
  var projectListBox: TListBox);
var
  i: Integer;
  siteNameStr: string; // 被管理网站名称
begin

  // 清除先前显示信息
  projectListBox.Clear;

  // 如果有被管理网站，则继续处理
  if projectDic.Count > 0 then
  begin

    // 遍历被管理网站
    for siteNameStr in projectDic.Keys do
    begin
      // 添加被管理网站名称到ListBox上
      projectListBox.Items.Add(siteNameStr);
    end;

  end;

end;

// 通过工程全路径名称得到工程路径和名称
procedure TForm2.GetProjectPathAndName(projectDir: string;
  var projectPath: string; var projectName: string);
var
  lastPos: Integer; // 全路径名称中最后一个"\"出现位置
begin

  // 全路径名称中最后一个"\"出现位置
  lastPos := LastDelimiter(‘\‘, projectDir);

  // 得到路径名称
  projectPath := LeftStr(projectDir, lastPos - 1);

  // 得到工程名称
  projectName := rightStr(projectDir, length(projectDir) - lastPos);
end;

// 对ini文件内容操作(添加和删除)
procedure TForm2.OperateIniFile(iniFileName, section, key, value: string;
  isAdd: boolean);
var
  iniFile: TInifile;
begin
  try
    iniFile := TInifile.Create(iniFileName);

    if isAdd = true then
    begin
      iniFile.WriteString(section, key, value);
    end
    else
    begin
      iniFile.DeleteKey(section, key);
    end;

  finally
    iniFile.Free;
  end;
end;

procedure TForm2.projectListBoxDblClick(Sender: TObject);
begin
  if projectListBox.ItemIndex <> -1 then
  begin
    // 被选中工程名称
    curProjectName := trim(projectListBox.Items[projectListBox.ItemIndex]);
    curProjectNameEdt.Text := curProjectName;

    // 工程路径
    curProjectPath := projectDictionary.Items[curProjectName];

    // 工程名称
    if rightStr(curProjectPath, 1) = ‘\‘ then
    begin
      // 工程全路径名称
      curProjectDir := curProjectPath + curProjectName;
    end
    else
    begin
      // 工程全路径名称
      curProjectDir := curProjectPath + ‘\‘ + curProjectName;
    end;
    projectPathEdt.Text := curProjectDir;

    // 把工程名称写入当前工程名称
    self.OperateIniFile(iniFileName, ‘curProject‘, ‘name‘,
      curProjectName, true);

    // 把工程路径写入当前工程路径
    self.OperateIniFile(iniFileName, ‘curProject‘, ‘path‘,
      curProjectPath, true);

    logInfo := ‘当前工程已更换为：‘ + #13#10;
    logInfo := logInfo + curProjectName;
    self.MyLog(logInfo);

  end;
end;

// 同步数据
procedure TForm2.SyncProjectes(var projectDic: TDictionary<string, string>;
  var projectListBox: TListBox; iniFileName: string; isDicToIni: boolean);
var
  iniFile: TInifile;
  tempList: TStringList;
  i: Integer;
  key: string;
begin

  try
    iniFile := TInifile.Create(iniFileName);
    tempList := TStringList.Create;

    if isDicToIni = true then
    begin
      // 删除被管理工程原有小节信息
      iniFile.EraseSection(‘projectes‘);

      // 清除ListBox显示数据
      projectListBox.Clear;

      // 把Dictionary中所有被管理工程信息写入Ini
      for key in projectDic.Keys do
      begin

        // 写入ini文件
        iniFile.WriteString(‘projectes‘, key, projectDic.Items[key]);

        // 在ListBox上显示数据
        projectListBox.Items.Add(key);
      end;

    end
    else
    begin
      // 清除Dictionary先前数据
      projectDic.Clear;

      // 清除ListBox显示数据
      projectListBox.Clear;

      iniFile.ReadSectionValues(‘projectes‘, tempList);
      // 如果有被管理网站，则继续处理
      if tempList.Count > 0 then
      begin

        // 遍历被管理网站
        for i := 0 to tempList.Count - 1 do
        begin
          // 加入管理Dictionary中
          projectDic.Add(tempList.KeyNames[i], tempList.ValueFromIndex[i]);

          // 在程序界面显示被管理网站名称
          projectListBox.Items.Add(tempList.KeyNames[i]);
        end;

      end;

    end;
  finally
    iniFile.Free;
    tempList.Free;
  end;

end;

// 延时
procedure TForm2.Delay(msecs: Integer);
var
  Tick: DWORD;
  Event: THandle;
begin
  Event := CreateEvent(nil, false, false, nil);
  try
    Tick := GetTickCount + DWORD(msecs);
    while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, false, msecs,
      QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      msecs := Tick - GetTickCount;
    end;
  finally
    CloseHandle(Event);
  end;
end;

end.