如何创建一个简单的安装程序调用程序

时间:2014-08-27 18:36:39

标签: vb.net windows installer

事情是:我有两个简单的程序(x86和相同软件的x64版本),我从互联网上下载。我想为他们创建一个CD安装程序。

我只需要一个小而简单的程序,从软件文件夹中“调用”setup.exe。一个带有两个按钮的简单窗口:“安装x86版本”和“安装x64版本”。我可以单击其中一个按钮,程序将从右侧文件夹中调用setup.exe,然后自行关闭。

所以我可以在我的CD中使用这个结构:

./setup.exe
./x64/setup.exe
./x86/setup.exe

事情是,我不知道如何编写这个简单的软件。我有python知识,但安装一个完整的python解释器只是打开一个带有两个按钮的小窗口是相当矫枉过正。

是否有一个简单的脚本(在VB中,我猜)可以为我做这个?我在linux的curses中写了这样的东西,但我不是Windows高级用户。

提前多多感谢!

1 个答案:

答案 0 :(得分:2)

在Visual Studio Express中创建一个新的WinForms应用程序并拖动表单上的两个按钮。随心所欲地设计。双击每个按钮以编辑.Click事件。

启动新Windows进程的方法是Process.Start()

Private Sub Button1_Click(sender as Object, e as EventArgs) Handles Button1.Click
    RunAndClose(IO.Path.Combine(Application.StartupPath, "x86", "setup.exe"))
End Sub
Private Sub Button2_Click(sender as Object, e as EventArgs) Handles Button2.Click
    RunAndClose(IO.Path.Combine(Application.StartupPath, "x64", "setup.exe"))
End Sub

Private Sub RunAndClose(filename As String)
  If IO.File.Exists(filename) = False Then
     MessageBox.Show(String.Format("The selected installer {0}{0}{1}{0}{0} could not be found!", vbCrLf, filename), "Installer not found", MessageBoxButtons.OK, MessageBoxIcon.Error)
  Else
     Process.Start(filename)
     Me.Close
  End If
End Sub

您创建了一个实际完成工作的子RunAndClose。您有文件名作为sub的参数。检查您要启动的文件是否存在(IO.File.Exists)。如果是,请启动它并关闭应用程序,如果没有显示错误消息。

Button-Subs使用IO.Path.Combine功能。您为它提供了一些零件,并构建了一条路径。您想要使用它而不是手工构建字符串。