求助求助转换错误
本帖最后由 心态 于 2025-3-28 18:49 编辑求助老师该怎么写是64位的
<火山程序 类型 = "通常" 版本 = 1 />
类 启动类 <公开 基础类 = 窗口程序类>
{
方法 启动方法 <公开 类型 = 整数 折叠>
{
变量 a <类型 = 窗口信息类>
@ @<a>.cbSize=sizeof(WINDOWINFO);
调试输出 (取窗口信息 (133502, a))
调试输出 (a.rcClient.left)
返回 (1)
}
方法 取窗口信息 <公开 静态 类型 = 逻辑型 折叠 折叠2 @输出名 = "GetWindowInfo" @视窗.输入 = "user32.dll">
参数 窗口句柄 <类型 = 变整数>
参数 窗口信息 <类型 = 窗口信息类 @视窗.输出参数 = 真>
{
}
}
类 窗口信息类 <公开 折叠 折叠2 @别名 = "WINDOWINFO" @别名类型 = 本地结构 @视窗.结构类 = 0>
{
变量 cbSize <公开 类型 = 整数 编辑时信息 = "0, 29BD0, 0, 0" @输出名 = "cbSize">
变量 rcWindow <公开 类型 = 窗口矩形类 编辑时信息 = "0, 29BD0, 0, 0" @输出名 = "rcWindow">
变量 rcClient <公开 类型 = 窗口矩形类 编辑时信息 = "0, 29BD0, 0, 0" @输出名 = "rcClient">
变量 dwStyle <公开 类型 = 整数 @输出名 = "dwStyle">
变量 dwExStyle <公开 类型 = 整数 @输出名 = "dwExStyle">
变量 dwWindowStatus <公开 类型 = 整数 @输出名 = "dwWindowStatus">
变量 cxWindowBorders <公开 类型 = 整数 @输出名 = "cxWindowBorders">
变量 cyWindowBorders <公开 类型 = 整数 @输出名 = "cyWindowBorders">
变量 atomWindowType <公开 类型 = 变整数 @输出名 = "atomWindowType">
变量 wCreatorVersion <公开 类型 = 短整数 @输出名 = "wCreatorVersion">
#
}
类 窗口矩形类 <公开 折叠 @别名 = "RECT" @视窗.结构类 = 0 @别名类型 = 本地结构>
{
变量 left <公开 类型 = 整数 @输出名 = "left">
变量 top <公开 类型 = 整数 @输出名 = "top">
变量 right <公开 类型 = 整数 @输出名 = "right">
变量 bottom <公开 类型 = 整数 @输出名 = "bottom">
#
}
谢谢老师？！！！！！
页:
[1]