8封装。用函数封装 系统api
先设定C99标准。
设定标准，有助于tc健康发展。
1、增加库文件(****.t文件)：
右键“项目管理-**项目名字”。 添加，新建文件(N)
文件名: structAPI，位置: 使用默认的。
2、把自定义的结构体/API函数，封装到“structAPI.t”文件。
3、定义部分带0。封装部分带0。
带0的，表示这是形参，是定义部分。
不带0的，表示这是实参，是调用部分。
//
C++中调用系统API，可以直接写/直接调，简直和调用C内建api一样简单。
但在aj,tc,e中调用系统API，都得先定义，先声明，麻烦多多的。
把常用系统API/ 常用API结构体，封装到“structAPI库.t”。
当某项目 使用到某个API时，在项目中新建一个“structAPI.t”，
再在“structAPI库.t” 中搜索该API名字，复制到“structAPI.t”使用。这样就省力多了。平时多积累，用时少费心。易api伴侣也是这样操作。
//
重用性强。编程就有这种好处，
来来去去的，都是这些东西。一次编写，多次调用，这不是吹牛的。
=======================================================
封装，不带传址参数的api。
这是比较简单的。
api带几个参数，函数就定义几个参数。
api带返回值，就用return返回数值。
照单拾药，照本宣科就行。
//
封装带有传址参数的api。
用函数封装，带有传址参数的api，形参必须带上&。
什么是形参，什么是实参？参考教程：
第三法，函数的定义。形参和实参。
第三法，函数的定义。引用传参的学习。
.
例子：GetCursorPos，VB声明：
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
说明：获取鼠标指针的当前位置返回值Long，非零表示成功，零表示失败。
会设置GetLastError参数表，参数类型，及说明lpPointPOINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构。
在VB中，
ByVal 代表普通传参，是传值的。
ByRef 代表引用传参，是传址的。
VB默认是传址的，省略标识ByVal，都默认为传址。Ip也代表传址。
.
VC声明
Api 函数功能：该函数检取光标的位置，以屏幕坐标表示。函数原型：BOOL GetCursorPos（LPPOlNT IpPoint）。参数：IpPint：POINT结构指针，该结构接收光标的屏幕坐标。
Ip是代表传址。
———————————————————————
———————————————————————
执行部分：
功能 执行()
var pt = pt0()//用新数组pt，继承结构体。
GetCursorPos(pt)
messagebox(pt["x"]["value"]&","& pt["y"]["value"])
结束
//
定义部分。封装部分。
功能 pt0()//定义结构体。使用下一行要封装的数组名，作为函数名。
var pt0 = 数组()
pt0["x"] = 数组("long"=1,"value"=0)
pt0["y"] = 数组("long"=1,"value"=0)
return pt0
结束
功能 GetCursorPos(&pt0)//定义api。把下一行要封装的api名，作为函数名。
//封装带传址参数，形参必须带上&，&pt0。
var ret0=dllcall("user32.dll","long","GetCursorPos","pstruct",pt0)
return ret0
结束
=======================================================
上面的讲解繁多。
把注释去掉，代码还是很简洁的。
功能 执行()
var pt = pt0()
GetCursorPos(pt)
messagebox(pt["x"]["value"]&","& pt["y"]["value"])
结束
功能 pt0()
var pt0 = 数组()
pt0["x"] = 数组("long"=1,"value"=0)
pt0["y"] = 数组("long"=1,"value"=0)
return pt0
结束
功能 GetCursorPos(&pt0)
var ret0=dllcall("user32.dll","long","GetCursorPos","pstruct",pt0)
return ret0
结束
本贴记录在：tc简单开发吧，精品区目录8，项目未归类。
先设定C99标准。
设定标准，有助于tc健康发展。
1、增加库文件(****.t文件)：
右键“项目管理-**项目名字”。 添加，新建文件(N)
文件名: structAPI，位置: 使用默认的。
2、把自定义的结构体/API函数，封装到“structAPI.t”文件。
3、定义部分带0。封装部分带0。
带0的，表示这是形参，是定义部分。
不带0的，表示这是实参，是调用部分。
//
C++中调用系统API，可以直接写/直接调，简直和调用C内建api一样简单。
但在aj,tc,e中调用系统API，都得先定义，先声明，麻烦多多的。
把常用系统API/ 常用API结构体，封装到“structAPI库.t”。
当某项目 使用到某个API时，在项目中新建一个“structAPI.t”，
再在“structAPI库.t” 中搜索该API名字，复制到“structAPI.t”使用。这样就省力多了。平时多积累，用时少费心。易api伴侣也是这样操作。
//
重用性强。编程就有这种好处，
来来去去的，都是这些东西。一次编写，多次调用，这不是吹牛的。
=======================================================
封装，不带传址参数的api。
这是比较简单的。
api带几个参数，函数就定义几个参数。
api带返回值，就用return返回数值。
照单拾药，照本宣科就行。
//
封装带有传址参数的api。
用函数封装，带有传址参数的api，形参必须带上&。
什么是形参，什么是实参？参考教程：
第三法，函数的定义。形参和实参。
第三法，函数的定义。引用传参的学习。
.
例子：GetCursorPos，VB声明：
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
说明：获取鼠标指针的当前位置返回值Long，非零表示成功，零表示失败。
会设置GetLastError参数表，参数类型，及说明lpPointPOINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构。
在VB中，
ByVal 代表普通传参，是传值的。
ByRef 代表引用传参，是传址的。
VB默认是传址的，省略标识ByVal，都默认为传址。Ip也代表传址。
.
VC声明
Api 函数功能：该函数检取光标的位置，以屏幕坐标表示。函数原型：BOOL GetCursorPos（LPPOlNT IpPoint）。参数：IpPint：POINT结构指针，该结构接收光标的屏幕坐标。
Ip是代表传址。
———————————————————————
———————————————————————
执行部分：
功能 执行()
var pt = pt0()//用新数组pt，继承结构体。
GetCursorPos(pt)
messagebox(pt["x"]["value"]&","& pt["y"]["value"])
结束
//
定义部分。封装部分。
功能 pt0()//定义结构体。使用下一行要封装的数组名，作为函数名。
var pt0 = 数组()
pt0["x"] = 数组("long"=1,"value"=0)
pt0["y"] = 数组("long"=1,"value"=0)
return pt0
结束
功能 GetCursorPos(&pt0)//定义api。把下一行要封装的api名，作为函数名。
//封装带传址参数，形参必须带上&，&pt0。
var ret0=dllcall("user32.dll","long","GetCursorPos","pstruct",pt0)
return ret0
结束
=======================================================
上面的讲解繁多。
把注释去掉，代码还是很简洁的。
功能 执行()
var pt = pt0()
GetCursorPos(pt)
messagebox(pt["x"]["value"]&","& pt["y"]["value"])
结束
功能 pt0()
var pt0 = 数组()
pt0["x"] = 数组("long"=1,"value"=0)
pt0["y"] = 数组("long"=1,"value"=0)
return pt0
结束
功能 GetCursorPos(&pt0)
var ret0=dllcall("user32.dll","long","GetCursorPos","pstruct",pt0)
return ret0
结束
本贴记录在：tc简单开发吧，精品区目录8，项目未归类。
