求教大佬这一段用火山怎么写？

blackmagic

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件			取窗口句柄定时器

变量名	类 型	静态	数组	备 注
hwnd	整数型
位置	精易_矩形
DesktopWindowHwnd	整数型
DesktopWindowDC	整数型
DrawMode	整数型
PenHwnd	整数型
OldPenHwnd	整数型

处理事件 ()
hwnd ＝ 窗口_取鼠标处窗口句柄 ()
编辑框24.内容 ＝ 到文本 (hwnd)
GetWindowRect (hwnd, 位置)
' ==================↑变量定义区↑====================画窗口边框 ()
DesktopWindowHwnd ＝ GetDesktopWindow ()  ' 取桌面窗口句柄
DesktopWindowDC ＝ GetWindowDC (DesktopWindowHwnd)  ' 取窗口设备场景
DrawMode ＝ SetROP2 (DesktopWindowDC, 10)  ' 设置指定设备场景的绘图模式,并返回窗口前一个绘图模式
PenHwnd ＝ CreatePen (0, 4, #绿色 )  ' 用指定的样式、宽度和颜色创建一个画笔，并返回一个画笔句柄
OldPenHwnd ＝ SelectObject (DesktopWindowDC, PenHwnd)  ' 选入设备场景,并返回以前选入设备场景的相同hObject类型的一个对象的句柄
Rectangle (DesktopWindowDC, 位置.左边 － 1, 位置.顶边 － 1, 位置.右边 ＋ 1, 位置.底边 ＋ 1)
完美延时 (100)
Rectangle (DesktopWindowDC, 位置.左边 － 1, 位置.顶边 － 1, 位置.右边 ＋ 1, 位置.底边 ＋ 1)  ' 用当前选定的画笔描绘矩形，并用当前选定的刷子进行填充
SelectObject (DesktopWindowDC, OldPenHwnd)  ' 选入设备场景
SetROP2 (DesktopWindowDC, DrawMode)  ' 设置指定设备场景的绘图模式
DeleteObject (PenHwnd)  ' 删除对象
ReleaseDC (DesktopWindowHwnd, DesktopWindowDC)  ' 释放由调用GetDC或GetWindowDC函数获取的指定设备场景

.版本 2<br /> <br /> .子程序 _时钟1_周期事件, , , 取窗口句柄定时器<br /> .局部变量 hwnd, 整数型<br /> .局部变量 位置, 精易_矩形<br /> .局部变量 DesktopWindowHwnd, 整数型<br /> .局部变量 DesktopWindowDC, 整数型<br /> .局部变量 DrawMode, 整数型<br /> .局部变量 PenHwnd, 整数型<br /> .局部变量 OldPenHwnd, 整数型<br /> <br /> 处理事件 ()<br /> hwnd ＝ 窗口_取鼠标处窗口句柄 ()<br /> 编辑框24.内容 ＝ 到文本 (hwnd)<br /> GetWindowRect (hwnd, 位置)<br /> <br /> <br /> ' ==================↑变量定义区↑====================画窗口边框 ()<br /> DesktopWindowHwnd ＝ GetDesktopWindow ()  ' 取桌面窗口句柄<br /> DesktopWindowDC ＝ GetWindowDC (DesktopWindowHwnd)  ' 取窗口设备场景<br /> DrawMode ＝ SetROP2 (DesktopWindowDC, 10)  ' 设置指定设备场景的绘图模式,并返回窗口前一个绘图模式<br /> PenHwnd ＝ CreatePen (0, 4, #绿色)  ' 用指定的样式、宽度和颜色创建一个画笔，并返回一个画笔句柄<br /> OldPenHwnd ＝ SelectObject (DesktopWindowDC, PenHwnd)  ' 选入设备场景,并返回以前选入设备场景的相同hObject类型的一个对象的句柄<br /> Rectangle (DesktopWindowDC, 位置.左边 － 1, 位置.顶边 － 1, 位置.右边 ＋ 1, 位置.底边 ＋ 1)<br /> 完美延时 (100)<br /> Rectangle (DesktopWindowDC, 位置.左边 － 1, 位置.顶边 － 1, 位置.右边 ＋ 1, 位置.底边 ＋ 1)  ' 用当前选定的画笔描绘矩形，并用当前选定的刷子进行填充<br /> SelectObject (DesktopWindowDC, OldPenHwnd)  ' 选入设备场景<br /> SetROP2 (DesktopWindowDC, DrawMode)  ' 设置指定设备场景的绘图模式<br /> DeleteObject (PenHwnd)  ' 删除对象<br /> ReleaseDC (DesktopWindowHwnd, DesktopWindowDC)  ' 释放由调用GetDC或GetWindowDC函数获取的指定设备场景

补充内容 (2023-11-17 22:01):
已解决！

Whitemagic

详细看火山PCAPI调用
https://bbs.voldp.com/forum.php?mod=viewthread&tid=19354&highlight=gdi

dnxl

全是API，照着抄就行

blackmagic

dnxl 发表于 2023-11-15 22:06
全是API，照着抄就行

不行啊，提示找不到该命令

121212121212121

支持支持支持支持

blackmagic

已解决.......