04 2014 档案

网页截取图片
摘要：程序：http://files.cnblogs.com/xe2011/EXE_iWeb2014-4-9-185315.7z源码：http://files.cnblogs.com/xe2011/Pascal_iWeb2014-4-9-185315.7z 1 function CaptureScreenRect(ARect: TRect): TBitmap; 2 var 3 ScreenDC: HDC; // 设备描述表的句柄 4 begin 5 result := TBitmap.Create; 6 with result, ARect do 7 begin 8 Widt... 阅读全文
posted @ 2014-04-09 18:57 XE2011 阅读(529) 评论(0) 推荐(0) 编辑
FormMove
摘要：private { Private declarations } procedure WMMOVE(var Msg: TMessage); message WM_MOVE;procedure TForm1.WMMOVE(var Msg: TMessage);begin inherited; if (Left 0) and (Top 0) then // 设定移动到左上角 10 点范围内时贴到边... 阅读全文
posted @ 2014-04-08 13:46 XE2011 阅读(145) 评论(0) 推荐(0) 编辑
登陆器
摘要：说明1 将登陆器放在D:\完美国际版本 目录下2 程序会自动创建一个快捷方式到桌面上3 要修改D:\完美国际版本\patcher\skin\mainuni.xml 相关链接成自己的才会有效program 登陆器;uses Windows, Forms, ShlObj, ActiveX, ComObj, SysUtils, Dialogs, Controls, ShellApi;//{$APPTY... 阅读全文
posted @ 2014-04-02 20:39 XE2011 阅读(491) 评论(0) 推荐(0) 编辑
Delphi 根据快捷方式路径取源文件地址
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender:... 阅读全文
posted @ 2014-04-02 20:04 XE2011 阅读(311) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示