想在应用程序中调用系统自带的计算器和日期程序
想到用shell调用
但是在不同的操作系统下如何获得系统目录啊?
计算器的可执行程序文件名称是calc.exe
显示日期的是哪个可执行程序啊?
多谢!
想到用shell调用
但是在不同的操作系统下如何获得系统目录啊?
计算器的可执行程序文件名称是calc.exe
显示日期的是哪个可执行程序啊?
多谢!
解决方案 »
- 645-2007规约控制继电器命令代码
- 大家看看我这段代码那里错了?? 提示语法错误。帮我看看那里错了
- 输入法问题
- 很简单的问题
- 一个关于消息发送和接受的问题,大家来看看!
- 能通过互联网连接服务器上的COM组件?(代码如下)
- 超菜,请问,如何才能使用户不能改变Form的大小?
- 如何用ado和sybase11连接
- VB编程通过鼠标画曲线 ,鼠标的轨迹就是曲线的轨迹 ,急盼帮助!!!!!!!!!
- 哪位大侠解决在下几个问题中的任何一个,即送500分,决不食言!(有请TECHOFANTASY大侠)
- 如何在VB中将指定的文件上传到WEb站点?
- VB中使用MSFlexGrid控件时,知道了行号如何定位该行并高亮显示?
得到System目录:
VB声明
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
说明
这个函数能取得Windows系统目录(System目录)的完整路径名。在这个目录中,包含了所有必要的系统文件。根据微软的标准,其他定制控件和一些共享组件也可放到这个目录。通常应避免在这个目录里创建文件。在网络环境中,往往需要管理员权限才可对这个目录进行写操作
返回值
Long,装载到lpBuffer缓冲区的字符数量。如lpBuffer不够大,不能容下文件名,则返回要求的缓冲区长度
参数表
参数 类型及说明
lpBuffer String,用于装载系统目录路径名的一个字串缓冲区。它应事先初始化成nSize+1个字符的长度。通常至少要为这个缓冲区分配MAX_PATH个字符的长度
nSize Long,lpBuffer字串的最大长度 得到Windows目录:
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
说明
这个函数能获取Windows目录的完整路径名。在这个目录里,保存了大多数windows应用程序文件及初始化文件
返回值
Long,复制到lpBuffer的一个字串的长度。如lpBuffer不够大,不能容下整个字串,就会返回lpBuffer要求的长度。零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpBuffer String,指定一个字串缓冲区,用于装载Windows目录名。除非是根目录,否则目录中不会有一个中止用的“\”字符
nSize Long,lpBuffer字串的最大长度 得到临时文件目录:
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
说明
获取为临时文件指定的路径
返回值
Long,装载到lpBuffer的字符数。如当前缓冲区的长度不够,不能容下整个路径,则返回lpBuffer需要的长度。零表示失败。会设置GetLastError
参数表
参数 类型及说明
nBufferLength Long,lpBuffer字串的长度
lpBuffer String,用于装载临时文件路径的一个预初始化字串
注解
临时路径是由TMP环境变量指定的一个路径。如TMP不存在,则是由TEMP环境变量指定的路径。如果这两个环境变量都不存在,就是当前目录
例如:
Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Longregstr = "c:\windows\notepad.exe"
value = WinExec(regstr, SW_SHOWMAXMIZED)
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 其中各个参数的意义如下表所示:参数 意义
hwnd Long,指定一个窗口的句柄,有时windows程序要在创建自己的主窗口前显示一个消息框
lpOperation String,指定字串“open”来打开lpFlie文档,或指定“Print”来打印它
lpFile String,想用关联程序打印或打开一个程序名或文件名
lpParameters String,如lpszFlie是可执行文件,则这个字串包含传递给执行程序的参数
lpDirectory String,想使用的完整路径
nShowCmd Long,定义了如何显示启动程序的常数值 Call ShellExecute(Form1.hwnd, "open", "c:\windows\calc.exe", vbNullString, vbNullString, &H0)