MOUSEEVENTF_LEFTDOWN:鼠标左键按下 MOUSEEVENTF_LEFTUP:鼠标左键弹起 MOUSEEVENTF_RIGHTDOWN:鼠标右键按下 MOUSEEVENTF_RIGHTUP:鼠标右键弹起 使用以下代码,我们就完成了一次针对0,0点的鼠标左键单击: var x,y:integer; begin x:=0;y:=0; Mouse_Event(MOUSEEVENTF_LEFTDOWN,x,y,0,0); Mouse_Event(M ...
-
delphi 注册系统热键
在窗口的create事件中,加入以下代码 : HotKeyId := GlobalAddAtom('MyHotKey') - $C000; RegisterHotKey(Handle,hotkeyid,MOD_CONTROL,VK_F6); 注: HotKeyId的合法取之范围是0x0000到0xBFFF之间, GlobalAddAtom函数得到的值 在0xC000到0xFFFF之间,所以减掉0xC000来满足调用要求。 热键的辅助按键包括Mod_Ctrl 、 ...
-
delphi 动态替换图标
先在type下面添加如下代码: icondirentry=packed record bwidth:Byte; //该目录对应的资源的宽度 bheight:Byte; //该目录对应的资源的高度 bcolorcount:Byte; //该目录对应的资源的颜色总数,大于8的资源该值为零 breserved:Byte; //保留 wplanes:word; //指定的设 ...
-
delphi 动态添加资源文件
服务端生成客户端时,动态配置一些信息会用到! 比如: a为一个可执行文件,b为ini文件.将b文件写入a文件里,a文件里就包含了资源文件b. 写入资源文件代码: var mstrm1:TMemoryStream; update : dword; workdir:string; begin workdir := ExtractFilePath(ParamStr(0)); mstrm1 := TMemoryStream.Create; ...
-
delphi AES加密算法 含源码
将以下源码保存为AES.pas: (**************************************************) (* *) (* Advanced Encryption Standard (AES) *) (* Interface Unit v1.0 *) (* *) (* ...
-
linux下删除乱码文件名的方法
新建站点时,标识用的中文. linux下显示乱码,看着不舒服.所以就想删掉.用rm删不掉,很蛋疼哦! 网上翻了些资料,不是很全. 用下面的方法可以删除成功! linux下删除乱码文件名, 不废话: 1. ls -i 列出文件的节点ID, 如: 123456789 2. find ./ -inum 123456789 -print -exec rm -rf {} \; 批量删除: for n in 123456789 9876 ...
-
linode 添加私有ip(静态ip)
第一个配置(覆盖里面的内容): vim /etc/sysconfig/network-scripts/ifcfg-eth0 DEVICE=eth0 #网卡eth0 BOOTPROTO=none #网卡ip的绑定方式,这里选择none ONBOOT=yes #该网卡是否随机启动 IPADDR=173.255.243.77 #ip地址 NETMASK=255.255.255.0 #子网掩码 GATEWAY=173.255.243.1 #ip地址网关 记得把#和后面的都扫除 ...
-
代码转换器 html转JS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>代码转换器</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <STYLE type=text/css>BODY { MARGIN-TOP: 24px; BACKGROU ...
最活跃的读者