如何在一个程序中呼叫出其他程序啊~

Question

应该用findwindow();shellexecute()API函数。

Answer 1

【函数】
ShellExecute【操作系统】
Win9X:Yes
WinNT:Yes【声明】
ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long【说明】    
  查找与指定文件关联在一起的程序的文件名 【返回值】  Long，非零表示成功，零表示失败。会设置GetLastError 【其它】
【参数表】
  hwnd -----------  Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框  lpOperation ----  String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它  lpFile ---------  String，想用关联程序打印或打开一个程序名或文件名  lpParameters ---  String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数  lpDirectory ----  String，想使用的完整路径  nShowCmd -------  Long，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    'Send an E-Mail to the KPD-Team
    ShellExecute Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Answer 2

给你一个例子：
语法：shell(pathname[,windowstyle])eg：Retval=shell("c:windows\calc.exe",1) '调用计算器注意，用SHELL（"")时要加上*.exe文件的路径。

Answer 3

shellSHELL 命令大全
1.命令: rundll32.exe shell32.dll,Control_RunDLL
  功能: 显示控制面板2.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
　功能: 显示“控制面板->辅助选项->键盘”选项视窗3.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
　功能: 显示“控制面板->辅助选项->声音”选项视窗4.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
　功能: 显示“控制面板->辅助选项->显示”选项视窗5.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
　功能: 显示“控制面板->辅助选项->鼠标”选项视窗6.命令: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
　功能: 显示“控制面板->辅助选项->常规”选项视窗7.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
　功能: 执行“控制面板->添加新硬件”向导。8.命令: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
　功能: 执行“控制面板->添加新打印机”向导。9.命令: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
　功能: 显示 “控制面板->添加/删除程序->安装/卸载” 面板。10.命令: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2
　 功能: 显示 “控制面板->添加/删除程序->安装Windows” 面板。11.命令: rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3
　功能: 显示 “控制面板->添加/删除程序->启动盘” 面板。12.命令: rundll32.exe syncui.dll,Briefcase_Create
　 功能: 在桌面上建立一个新的“我的公文包”。13.命令: rundll32.exe diskcopy.dll,DiskCopyRunDll
　 功能: 显示复制软盘视窗14.命令: rundll32.exe apwiz.cpl,NewLinkHere %1
　 功能: 显示“建立快捷方式”的对话框，所建立的快捷方式的位置由%1参数决定。15.命令: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0
　 功能: 显示“日期与时间”选项视窗。16.命令: rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1
　 功能: 显示“时区”选项视窗。17.命令: rundll32.exe rnaui.dll,RnaDial [某个拨号连接的名称]
　 功能: 显示某个拨号连接的拨号视窗。如果已经拨号连接，则显示目前的连接状态的视窗。18.命令: rundll32.exe rnaui.dll,RnaWizard
　 功能: 显示“新建拨号连接”向导的视窗。19.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0
　 功能: 显示“显示属性->背景”选项视窗。20.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1
　 功能: 显示“显示属性->屏幕保护”选项视窗。21.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2
　 功能: 显示“显示属性->外观”选项视窗。22.命令: rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
　 功能: 显示显示“显示属性->属性”选项视窗。23.命令: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder
　 功能: 显示Windows的“字体”文件夹。24.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
　 功能: 同样是显示Windows的“字体”文件夹。25.命令: rundll32.exe shell32.dll,SHFormatDrive
　 功能: 显示格式化软盘的对话框。26.命令: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,0
　 功能: 显示“控制面板->游戏控制器->常规”选项视窗。27.命令: rundll32.exe shell32.dll,Control_RunDLL joy.cpl,,1
　 功能: 显示“控制面板->游戏控制器->高级”选项视窗。28.命令: rundll32.exe mshtml.dll,PrintHTML (HTML文档)
　 功能: 打印HTML文档。29.命令: rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl
　 功能: 显示Microsoft Exchange常规选项视窗。30.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @0
　 功能: 显示“控制面板->鼠标” 选项 。31.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1
　 功能: 显示 “控制面板->键盘属性->速度”选项视窗。32.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @1,,1
　 功能: 显示 “控制面板->键盘属性->语言”选项视窗。33.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
　 功能: 显示Windows“打印机”文件夹。34.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
　 功能: 显示Windows“字体”文件夹。35.命令: rundll32.exe shell32.dll,Control_RunDLL main.cpl @4
　功能: 显示“控制面板->输入法属性->输入法”选项视窗。36.命令: rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add
　功能: 执行“添加新调制解调器”向导。37.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
　 功能: 显示“控制面板->多媒体属性->音频”属性页。38.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1
　 功能: 显示“控制面板->多媒体属性->视频”属性页。39.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2
　 功能: 显示“控制面板->多媒体属性->MIDI”属性页。40.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3
　 功能: 显示“控制面板->多媒体属性->CD音乐”属性页。41.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4
　 功能: 显示“控制面板->多媒体属性->设备”属性页。42.命令: rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1
　 功能: 显示“控制面板->声音”选项视窗。43.命令: rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl
　 功能: 显示“控制面板->网络”选项视窗。44.命令: rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl
　 功能: 显示ODBC32资料管理选项视窗。45.命令: rundll32.exe shell32.dll,OpenAs_RunDLL {drive:\path\filename}
　 功能: 显示指定文件(drive:\path\filename)的“打开方式”对话框。46.命令: rundll32.exe shell32.dll,Control_RunDLL password.cpl
　 功能: 显示“控制面板->密码”选项视窗。47.命令: rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl
　 功能: 显示“控制面板->电源管理属性”选项视窗。48.命令: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder
　 功能: 显示Windows“打印机”文件夹。(同rundll32.exe shell32.dll,Control_RunDLL main.cpl @2)49.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0
　 功能: 显示“控制面板->区域设置属性->区域设置”选项视窗。50.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1
　 功能: 显示“控制面板->区域设置属性->数字”选项视窗。51.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2
　 功能: 显示“控制面板->区域设置属性->货币”选项视窗。52.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3
　 功能: 显示“控制面板->区域设置属性->时间”选项视窗。53.命令: rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4
　 功能: 显示“控制面板->区域设置属性->日期”选项视窗。54.命令: rundll32.exe desk.cpl,InstallScreenSaver [屏幕保护档案名]
　 功能: 将指定的屏幕保护文件设置为Windows的屏保，并显示屏幕保护属性视窗。55.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0
　 功能: 显示“控制面板->系统属性->传统”属性视窗。56.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
　 功能: 显示“控制面板->系统属性->设备管理器”属性视窗。57.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2
　 功能: 显示“控制面板->系统属性->硬件配置文件”属性视窗。58.命令: rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3
　 功能: 显示“控制面板->系统属性->性能”属性视窗。59.命令: rundll32.exe user.exe,restartwindows
　 功能: 强行关闭所有程式并重启机器。60.命令: rundll32.exe user.exe,exitwindows
　 功能: 强行关闭所有程式并关机。61.命令: rundll32.exe shell32.dll,Control_RunDLL telephon.cpl
　 功能: 显示“拨号属性”选项视窗。。62.命令: rundll32.exe shell32.dll,Control_RunDLL themes.cpl
　 功能: 显示“桌面主题”选项面板。

Answer 4

怎么答的好象文不对题呢？
他的意思好象是编写一个程序，然后当这个窗口不是当前窗口时也能用热键调出来。就象在打游戏时，能用热键调出fpe游戏修改器一样。

Answer 5

方法有两个：
1.用VB自己的函数 SHELL
    Call Shell("C:\WINDOWS\NOTEPAD.EXE d:\temp\0827.txt", 1)
    这条语句的意思就是用目录C:\WINDOWS下的NOTEPAD.EXE 来打开
    d:\temp\0827.txt这个文件。缺点是不能保证这个NOTEPAD.EXE
    在任何机器上都存在，因此较好的做法是把NOTEPAD.EXE随同自己
    的程序一起发布，这样就能万无一失。
2.用WINDOWS的函数 ShellExecute
    这不是VB自带的函数，所以必须在程序里对这函数进行声明。
    Public Declare Function ShellExecute Lib "shell32.dll" Alias
      "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As
      String, ByVal lpFile As String, ByVal lpParameters As
      String, ByVal lpDirectory As String, ByVal nShowCmd As
      Long) As Long
    
    ShellExecute(Me.hwnd, vbNullString, "d:\temp\0827.txt", 
    vbNullString, vbNullString, 1)
    这个函数并不关心文件被什么程序打开，如果WINDOWS中现在把.TXT的
    文件和NOTEPAD.EXE关联，那自动就会用NOTEPAD.EXE来打开这个文本文
    件，如果是和其他的文字处理程序关联的，就会用所关联的程序来打开
    这个文件。
    优点，比如当知道客户机器上一定安装了EXCEL这个软件，但并不知道
    客户把它安装到哪儿了，这时候用第一种方法就力不从心了，而用这条
    函数就显得极为方便。缺点，如果打开文件的格式和任何程序都没关联
    起来，这时系统就不知道该如何打开它了。  Shell 是调用指定的可执行文件,只能执行Bat,Com.Exe.
API函数ShellExecute  是用关联的文件打开某个文件,它可以打开任何已关联的文件,如Txt,Doc,还能打开网址.