Declare Function GetVersion Lib "kernel32" Alias "GetVersion" () As Long

最新推荐文章于 2022-05-01 10:34:46 发布
最新推荐文章于 2022-05-01 10:34:46 发布
阅读量1k 收藏
点赞数
分类专栏： 系统 vb
系统 同时被 2 个专栏收录
171 篇文章 0 订阅
订阅专栏
vb
32 篇文章 0 订阅
订阅专栏

GetVersion

VB声明
Declare Function GetVersion Lib "kernel32" Alias "GetVersion" () As Long
说明
判断当前运行的Windows和DOS版本
返回值
Long，低16位包含了windows版本；低 字节包含了主版本号（3代表windows 3.10，4代表nt 4.0）；高字节包含了两个数位的辅助版本号（10代表windows 3.10，95代表windows 95）。高16位则包含了平台信息。针对windows NT，高位设为0；针对windows for workgroups上运行的Win32s，则高位为1
注解
在win32下，最好换用GetVersionEx函数。在win32下，高字不会返回DOS版本
开放分类：
API函数  VB  VC++
Hustudent20080101
关注
专栏目录
vb6.0中声明Windows的Win32API时用到的函数声明（vb.net c#中也可用）
zhouyiliaoyang的专栏
02-14 5324
  *********************************************作者：  秋水长天     （精品源于毅杨）邮件：zyliaoyang@yahoo.com.cn********************************************最近在维护一个10年前的系统，是vb6.0做的。里面要用到了很多Win32的API。与之关联的
VB多线程操作类
rsice的专栏
12-19 725
Option Explicit Private Declare Function CreateWin32Thread Lib "kernel32" Alias "CreateThread" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpPar...
启动程序伴随音乐(VB6.0源代码编写)Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
01-20
启动程序伴随音乐(VB6.0源代码编写)Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Private Sub Form_Load() sndPlaySound App.Path + "\PY.WAV", &H1 End Sub
kernel32 的 GetVersionExA/W
weixin_30396699的博客
02-13 193
今天接到一个问题，说Kernel32 模块的GetVersionEx 获取系统版本不准确， 然后让我查查什么原因， 我当时就想，它不准，就用ntdll的 RtlGetVersion 阿，或者RtlGetNtVersionNumbers，这不都行么， 那就看看为什么会出现 kernel32 的函数出现问题吧， 其实挺简单的，梳理一下调用过程 环境 Win10 x64 16299， 调...
在64bitAccess中，原来32bit的Declare Function GetOpenFileName Lib "comdlg32.dll" 报错问题
xzwong的博客
12-11 3916
在64bitAccess中，原来32bit的Declare Function GetOpenFileName Lib “comdlg32.dll” 报错问题，可以通过下面方法解决： 第一步：在Delcare后面增加PtrSafe关键字 比如： Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFile...
dll/lib 声明与调用
静思阁
09-27 1082
  声明导出函数：.h导出：extern "C" datatype __declspec(dllexport) function(parameter_list); .def导出：; lib.def 导出DLL函数LIBRARY __EXPORT_DLL_NAME__EXPORTSFun_Name @ idx .def文件的规则为：";"表示注释，且不
declare语句
水中木的专栏
07-01 1329
1.语法VB里的说明语句（Declare），仅支持动态链结库（DLL）的子程序和无变量函数。 VB程序要使用DLL中的函数，首先必须要有特殊的声明，用Declare声明语句在窗体级或模块级或全局模块的代码声明段进行声明，将动态链接库中的函数声明到VB中，供VB程序调用。 语句格式为：Declare Sub 过程名 Lib [ Alias " 别名] （[ByVal 参数 AS 类型
隐藏与显示鼠标程序(vb6.0源代码编写)Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
02-05
隐藏与显示鼠标程序(vb6.0源代码编写)Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Sub Command1_Click() '隐藏鼠标 ShowCursor True '计数加一 Command1.Enabled = ...
透明窗体透明控件
08-04
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function ...
获取系统临时目录
格物致知 知行合一
01-19 387
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Function GetTmpPath() As String     Dim tmpBuffer As ...
VB.NET Declare语句
u014050788的专栏
12-20 3776
原文链接：http://www.educity.cn/develop/1403904.html 本文向大家介绍VB.NET Declare语句，可能好多人还不了解VB.NET Declare语句，没有关系，看完本文你肯定有不少收获，希望本文能教会你更多东西。 　　要声明一个DLL过程，首先需要在代码窗口的"通用（General）"部分增加一个VB.NET Declare语句。如果该过程
bat脚本打开VBA文件
qq_38801934的博客
05-01 1023
’ 32 位系统为 ’ Declare Function GetCommandLine Lib “kernel32” Alias “GetCommandLineW” () As Long ’ Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (MyDest As Any, MySource As Any, ByVal MySize As Long) ’ Declare Function lstrlenW Lib “kernel32”
编译错误：若要在64位系统上使用，则必须更新此项目中的代码。。。。
热门推荐
budzend的博客
08-28 4万+
在matlab中使用notebook时，出现如下编译错误： 解决方案：将红色字体部分替换成以下内容即可#If Win64 Then Private Declare PtrSafe Sub sleepp Lib "kernel32.dll" Alias "Sleep" (ByVal dwMilliseconds As LongLong) Private Declare PtrSafe
代码修正：Option Explicit Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare PtrSafe Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long Private Declare PtrSafe Function EmptyClipboard Lib32" () As Long Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Private Const CF_BITMAP = 2 Private Const SRCCOPY = &HCC0020
最新发布
07-25
抱歉，我之前给出的代码有一些错误。以下是修正后的代码： ```vba Option Explicit Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As LongPtr Private Declare PtrSafe Function BitBlt Lib "gdi32" (ByVal hDestDC As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As LongPtr, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As LongPtr) As LongPtr Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As LongPtr Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hdc As LongPtr, ByVal hObject As LongPtr) As LongPtr Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As LongPtr Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hdc As LongPtr) As LongPtr Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As LongPtr) As Long Private Const CF_BITMAP = 2 Private Const SRCCOPY = &HCC0020 Sub CaptureRangeAsImage(rng As Range, filePath As String) Dim ws As Worksheet Dim hwnd As LongPtr Dim hdcSrc As LongPtr Dim hdcDest As LongPtr Dim hBitmap As LongPtr Dim leftPos As Long Dim topPos As Long Dim width As Long Dim height As Long Set ws = rng.Worksheet hwnd = Application.hwnd ' 获取源设备上下文 hdcSrc = GetDC(0) ' 创建兼容的目标设备上下文 hdcDest = CreateCompatibleDC(hdcSrc) ' 获取要保存的区域的位置和尺寸 leftPos = rng.Left topPos = rng.Top width = rng.Width height = rng.Height ' 创建兼容位图 hBitmap = CreateCompatibleBitmap(hdcSrc, width, height) ' 将兼容位图选入目标设备上下文 SelectObject hdcDest, hBitmap ' 使用 BitBlt 函数将源设备上下文中的内容复制到目标设备上下文中 BitBlt hdcDest, 0, 0, width, height, hdcSrc, leftPos, topPos, SRCCOPY ' 将位图保存到剪贴板 OpenClipboard hwnd EmptyClipboard SetClipboardData CF_BITMAP, hBitmap CloseClipboard ' 保存剪贴板中的位图为图片文件 SavePicture GetClipboardImage(), filePath ' 释放创建的对象和资源 DeleteObject hBitmap DeleteDC hdcDest ReleaseDC hwnd, hdcSrc End Sub Function GetClipboardImage() As IPicture Dim dataObj As DataObject Set dataObj = New DataObject dataObj.GetFromClipboard Set GetClipboardImage = dataObj.GetImage End Function ``` 在上述代码中，我们修正了 API 函数的声明，并进行了一些其他的调整。`CaptureRangeAsImage` 过程用于将指定区域的内容保存为图片，然后通过 `SavePicture` 将剪贴板中的位图保存为图片文件。 请注意，为了获取剪贴板中的位图，我们定义了 `GetClipboardImage` 函数，该函数使用 `DataObject` 类获取剪贴板上的图像。 希望这次能够帮助到您！如果您有任何其他问题，请随时提问。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值