【羊毛羊的奇葩教程】pascal截图功能
pascal吧
全部回复
仅看楼主
level 9
风x千叶翔龙V 楼主
一楼度娘
二楼备用
三楼开始上教程
2014年08月30日 04点08分 1
level 9
风x千叶翔龙V 楼主
二楼备用
2014年08月30日 04点08分 2
level 12
℃ve
三楼教程
2014年08月30日 04点08分 3
风x千叶翔龙V
[啊]
2014年08月30日 04点08分
风x千叶翔龙V
回复 风x千叶翔龙V :先去吃饭，教程下午上
2014年08月30日 04点08分
风x千叶翔龙V
这玩意能给加精吗
2014年08月30日 04点08分
风x千叶翔龙V
回复 风x千叶翔龙V :你可以先下载看看[滑稽]
2014年08月30日 04点08分
level 12
℃ve
[咦]喂- -#这算哪门子的截图啊 至少做个快捷键运行什么的
2014年08月30日 04点08分 4
风x千叶翔龙V
我的截图是作用在游戏里面的。。。。给用户记录一些东西。。。。快捷键可以，要用户关闭36蛋，我加一个开机启动就好
2014年08月30日 05点08分
level 9
猎火电脑工作室
前排

orz
2014年08月30日 04点08分 5
level 9
风x千叶翔龙V 楼主
@Meau_遗忘 @猎火电脑工作室 @洋葱超人008 @Fallen_Breath @罗不理 @fp4869 @4533大多数 @12345yhgv @canadaottawa
2014年08月30日 05点08分 6
风x千叶翔龙V
回复 风x千叶翔龙V :教程开始
2014年08月30日 05点08分
level 10
4533大多数
开始吧
lz
。。。
　　　--闪过
2014年08月30日 05点08分 7
level 9
风x千叶翔龙V 楼主
准备工作：
1.一个正常的FP编译器
2.一台正常的windows电脑【七喜什么的滚边[喷]
3.一个正常的虚拟键值对照表
2014年08月30日 05点08分 8
猎火电脑工作室
[委屈]
2014年08月30日 06点08分
level 9
风x千叶翔龙V 楼主
想要截图，先了解一下windows自带的截图功能：PrtScr键【有的电脑是PrtSc】。
这个键的功能是印屏幕，就是将整个电脑屏幕给截图下来。
好像有点鸡肋？
PrtScr键还有一个组合件：Alt+PrtScr。这个组合键的功能是【当前窗口截图】就是将你嘴上发的那个窗口给截图下来。
今天我们要讲的就是用程序来实现Alt+Prtsc的功能。
2014年08月30日 05点08分 9
Xero⚡12
“嘴上发”改为“最上方”。
2017年06月26日 01点06分
level 7
罗不理
[思考]
2014年08月30日 06点08分 10
level 9
猎火电脑工作室

插
2014年08月30日 06点08分 11
level 9
风x千叶翔龙V 楼主
实际上pascal里面是没有自带这么高端的函数的，而很不幸楼主也没有在API里面找到截图的函数，我们就要想办法模拟Alt+PrtScr。
用过按键精灵这个程序的人都知道，按键精灵可以吧用户的操作记录下来，录成脚本，之后可以重复。我们要做的是向按键精灵学习，将一些按键”重复“出来。
在windows API里面有这样一个函数：keybd_event。这个函数的作用是向Windows【发送】按键，比如说，你用keybd_event向Windows发送一个‘a*键，效果就等同于按下’a*键。
2014年08月30日 06点08分 12
level 9
风x千叶翔龙V 楼主
keybd_event怎么用呢？
keybd_event有四个参数：
keybd_event（BYTE bVk，BYTE bScan，DWORD dwFlags，DWORD dwExtralnfo）；
bVk：定义一个虚拟键码。键码值必须在1～254之间。
　　bScan:定义该键的硬件扫描码。
　　dwFlags:定义函数操作的各个方面的一个标志位集。应用程序可使用如下一些预定义常数的组合设置标志位。
　　dwExtralnfo：定义与击键相关的附加的32位值。
2014年08月30日 06点08分 14
ax_pokl
如果默认开了中文输入法的话，keybd_event可能会出错。
2014年09月04日 01点09分
ax_pokl
而且截下来的图怎么给程序用是一个问题，因为把剪贴板的东西弄进来有点麻烦。正确的办法是先GetForgroundWindow或者LoadFile等获得窗口|文件句柄，然后GetDC获取绘图设备，最后GetPixel或者其它函数取点|DC的颜色。
2014年09月04日 01点09分
风x千叶翔龙V
回复 ax_pokl ：大神为何不开一个api讲座，Windows的网站上面的都看不懂
2014年09月04日 09点09分
ax_pokl
回复 风x千叶翔龙V :怎么开？
2014年09月04日 10点09分
level 9
猎火电脑工作室

插
2014年08月30日 06点08分 15
level 9
风x千叶翔龙V 楼主
爪机作死，明天再发
2014年08月30日 06点08分 16
猎火电脑工作室
[啊]
2014年08月30日 06点08分
level 12
wfwhl12
后排卖辣条
2014年08月30日 08点08分 21
猎火电脑工作室
老板来一包，这是五毛钱不用找了[滑稽]
2014年08月30日 11点08分
wfwhl12
回复 猎火电脑工作室 :现在搞活动，十块钱一包
2014年08月30日 11点08分
猎火电脑工作室
回复 wfwhl12 :屮艸芔茻艹(╯｀□′)╯（┻━┻你™在逗我
2014年08月30日 11点08分
wfwhl12
回复 猎火电脑工作室 :↖(￣▽￣")谁TM逗你了=.=!
2014年08月30日 11点08分
level 10
4533大多数
后排卖楼主
　　　--闪过
2014年08月30日 10点08分 22
wfwhl12
是不是只要988[吐舌]
2014年08月30日 11点08分
4533大多数
回复 wfwhl12 :当然!超值
2014年08月30日 11点08分
wfwhl12
回复 4533大多数 :等等我攒到钱批发上两斤
2014年08月30日 11点08分
level 15
A菌º
后排卖唔。。。。明天把店铺搬上来吧
2014年08月30日 14点08分 23
level 7
pascal呵呵
[喷]
2017年05月15日 13点05分 24
level 12
Xero⚡12
楼主已失踪三年，现在我来承接楼主未尽的事业。
　　 格式：keybd_event(键码,0,描述,0);反正有2个是0；
描述的意思是这样滴：
按下键：keybd_event(键码,0,0,0);
抬起键：keybd_event(键码,0,keyeventf_keyup,0);
例1：模拟按下'A'键
　　 keybd_event(65,0,0,0);
　　 keybd_event(65,0,KEYEVENTF_KEYUP,0);
例2：模拟按下'ALT+F4'键
　　 keybd_event(18,0,0,0);//按Alt
　　 keybd_event(115,0,0,0);//按F4
　　 keybd_event(115,0,KEYEVENTF_KEYUP,0);//松掉F4
　　 keybd_event(18,0,KEYEVENTF_KEYUP,0);//松掉Alt
键码在这里：[无效] http://pan.baidu.com/s/1pLbQHy7
2017年06月26日 02点06分 25
1 2 尾页