如沒有現(xiàn)存的辦法的話只能讀取注冊表,以txt文件為類:

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務,包含不限于成都網(wǎng)站制作、網(wǎng)站建設、朝陽網(wǎng)絡推廣、小程序制作、朝陽網(wǎng)絡營銷、朝陽企業(yè)策劃、朝陽品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;成都創(chuàng)新互聯(lián)公司為所有大學生創(chuàng)業(yè)者提供朝陽建站搭建服務,24小時服務熱線:18980820575,官方網(wǎng)址:chinadenli.net
HKEY_CLASSES_ROOT\.txt?? '在這個地址有個默認屬性值是:txtfile
HKEY_CLASSES_ROOT\txtfile\shell\open\command?? '這里的默認屬性值txtfile的關(guān)聯(lián)程序:%SystemRoot%\system32\NOTEPAD.EXE %1
我暫不了解vb.net讀注冊表函數(shù)(剛在學),以vbs為類:
Dim?WshShell
Set?WshShell?=?WScript.CreateObject("Wscript.Shell")
Dim?Ext
ext=?WshShell.RegRead?("HKEY_CLASSES_ROOT\.mp3\") '這里的擴展名.mp3可以改成其它的看看
MsgBox?WshShell.RegRead?("HKEY_CLASSES_ROOT\"??ext??"\shell\open\command\")
樓下的根本不對。exe右鍵是沒有“打開方式”的,也沒必要因為這個問題而還原系統(tǒng)。把exe設置為直接運行,方法:新建一個txt文件,輸入ftype exefile="%1" %* ,保存,把擴展名改為bat,雙擊這個文件,就好了。
1 新建安裝部署項目
打開VS2005,點擊新建項目,選擇:其他項目類型-安裝與部署-安裝向?qū)?安裝項目),然后點擊確定。
2 安裝向?qū)?/p>
關(guān)閉后打開安裝向?qū)Вc擊下一步,或者直接點擊完成。
3 開始制作
安裝向?qū)瓿珊蠹纯蛇M入項目文件夾:
雙擊"應用程序文件夾"在右邊的空白處右擊,選擇添加-文件,將你的做的應用程序的可執(zhí)行文件和相應的類庫和組件添加進來。然后右擊你的文件,創(chuàng)建快捷方式,然后把快捷方式分別復制或剪切到左邊的"用戶的'程序'菜單"和"用戶桌面"中。這樣安裝程序安裝完成后會在 "開始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用戶的'程序'菜單"和"用戶桌面"相應目錄下新建快捷方式,然后定位到你的文件。
然后右擊左邊的"應用程序文件夾"打開屬性對話框:將屬性中的"DefaultLocation"的路徑中的"[Manufacturer]"去掉,不然的話做好的安裝程序默認安裝目錄會是"C:\Program Files\你的用戶名\安裝解決方案名稱";
然后打開解決方案管理器,右擊你的解決方案名稱,選擇屬性:打開的屬性頁中,選擇"系統(tǒng)必備", 在打開的系統(tǒng)必備頁中,在"指定系統(tǒng)必備安裝組件的位置"中選中如下選擇項:從與我的應用程序相同的位置下載系統(tǒng)必備組件。選上以后,在生成的安裝文件包中包含.NetFramework組件 。好了,這樣就完成99%了,然后點擊"生成-生成解決方案",生成成功!
我以前參考過的,希望對你有幫助。
安裝完成后自動啟動程序
1.新建一個空的項目InstallCompenent,步驟為:解決方案-右鍵添加-新建項目-選擇"空項目"-輸入名稱"InstallCompenent"-確定,完成項目的添加.
2.在InstallCompenent項目中右鍵-添加-新建項-選擇安裝程序類-輸入名稱"Installer",完成installer類的添加.
修改代碼為:
/// summary
/// 功能是做安裝項目主項目輸出
/// 實現(xiàn)安裝過程中的一些操作
/// 如:安裝完成后啟動項目
/// /summary
[RunInstaller(true)]
public partial class Installer : Installer
{
/// summary
/// 應用程序入口
/// /summary
public static void Main()
{
}
/// summary
/// 構(gòu)造函數(shù)
/// /summary
public ECSuitsInstaller()
{
InitializeComponent();
}
/// summary
/// 重寫安裝完成后函數(shù)
/// 實現(xiàn)安裝完成后自動啟動已安裝的程序
/// /summary
/// param name="savedState"/param
protected override void OnAfterInstall(IDictionary savedState)
{
base.OnAfterInstall(savedState);
Assembly asm = Assembly.GetExecutingAssembly();
string path = asm.Location.Remove(asm.Location.LastIndexOf("\\")) + "\\";
System.Diagnostics.Process.Start(path + "\\ECSuits.exe");
}
/// summary
/// 重寫安裝過程方法
/// /summary
/// param name="stateSaver"/param
public override void Install(IDictionary stateSaver)
{
base.Install(stateSaver);
}
/// summary
/// 重寫安裝之前方法
/// /summary
/// param name="savedState"/param
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
}
/// summary
/// 重寫卸載方法
/// /summary
/// param name="savedState"/param
public override void Uninstall(IDictionary savedState)
{
base.Uninstall(savedState);
}
/// summary
/// 重寫回滾方法
/// /summary
/// param name="savedState"/param
public override void Rollback(IDictionary savedState)
{
base.Rollback(savedState);
}
}
3.在安裝項目中右鍵-添加項目輸出-選擇"項目"-InstallCompenent.
完成主輸出項目的添加.
4.打開自定義操作編輯器,在安裝-右鍵-添加自定義操作-選擇"應用程序文件夾"-選擇"主輸出來自InstallCompenent",完成添加.
樓上的Imports?System.Windows.Forms?方法欠妥...因為項目并未引用這個DLL,所以無法引入這個命名空間.
為了解決你的問題,?需要使用自定義項目模板,?方法如下.
1.建立一個空的?控制臺應用程序,?可采用默認名字.
2.不要對這個項目的其他文件做修改,僅在"項目-加添引用"中添加system.windows.forms.
3.全部保存項目.
4.{關(guān)鍵}在菜單中:?文件-導出模板.
選擇"項目模板",(下面的combobox默認選擇了當前打開的項目).點下一步.
填寫模板名稱和說明,?建議起英文名稱,?我這里示例的命名為"帶Form的控制臺".選中復選框.
此時,?你的上述動作就被記錄為一種新的項目模板了.?這是單擊新建項目,?就可以在"我的模板"中找到了,用這個模板建立項目,?就能滿足你的要求,?如圖片所示.
希望對你有幫助
你是不是用的Visual Studio來開發(fā)的?如果是,這樣操作:打開 項目 菜單 中的 XXX屬性,在彈出的屬性頁選擇最上面那個 應用程序 標簽,里面有個啟動窗體,你選擇一下就可以了。
如果你不是用的visual Studio來開發(fā)的,那么可以考慮把另外一個窗口的visible屬性先設置為false或者把你要顯示的窗口改為對話框的形式,大小比另外一個窗口大一點或者一樣(即 模態(tài)窗口,必須關(guān)閉才能繼續(xù)操作),這樣都可以實現(xiàn)你要的效果。
1、如果上一個窗體是程序的主窗體(默認是程序的第一個窗體),
則不能關(guān)閉這個窗體,只能隱藏(Me.Hide())這個窗體,否則整
個程序就被關(guān)掉了。
2、如果上一個窗體不是程序的主窗體,可以用Me.Close()
關(guān)閉。
當前題目:vb.net默認程序,vb運行程序
分享URL:http://chinadenli.net/article43/dsgeges.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供自適應網(wǎng)站、網(wǎng)站建設、用戶體驗、靜態(tài)網(wǎng)站、企業(yè)建站、微信公眾號
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)