重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub open()
成都创新互联是专业的民和网站建设公司,民和接单;提供成都做网站、成都网站制作、成都外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行民和网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Dim thefile as string
On Error Goto FE
If (Right(dirLook.Path,1)="\") then
TheFile=dirLook.Path+filFind.FileName
Else
TheFile=dirLook.Path+"\"+filFind.FileName
End if
Open thefile for input as #1
TEXTBOX1.text=Input(LOF(1),#1)
Close #1
Exit Sub
FE:
MsgBox"ERR"核改
Resume Next
End Sub
'dirLook指路径,filFind.filFind指芦枯文件名,dirlook最先为盘陪氏洞名
一、用wshshell组件的RegWrite方法写注册表,在HKEY_CLASSES_ROOT\*\Shell 位置加入的你槐轮唯程序,
例如:
[HKEY_CLASSES_ROOT\*\shell\我的程序\command]
@="D:\\我的程序.exe %1"
后桐凯面的%1会将文件名传送给你的程序的Command$,多文件名需要使用DDE方式进行互斥传入。
二、
将下面内容输入记事本后保存为reg文件,运行即可:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell]
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\铅培OpenInNotepad]
@="用记事本打开"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\OpenInNotepad\command]
@="notepad.exe %1"
"用记事本打开" 为右键菜单中显示的名称
这个啊,呵呵,应该不难吧
先找到你要打开的应用程序的文件
然后用一个调用代码:
System.Diagnostics.Process.Start("C:\WINDOWS\system32\notepad.exe")
这是要枯高前开记事本的
System.Diagnostics.Process.Start("C:\WINDOWS\system32\calc.exe")
这是打开计算器的
应念塌该也可以把这两个应用程序复制到你的程序的默认目录下,就是BIN下吧!
呵呵,试没清试!!要给我加分哦!!!
楼下的根散拿本不对。冲判搭exe右键是没有“打开方式”的,也没必要因为这个问题而还原系统。把exe设置为冲手直接运行,方法:新建一个txt文件,输入ftype exefile="%1" %* ,保存,把扩展名改为bat,双击这个文件,就好了。