9111 - 博客园

1619

摘要： begin#158D2A18E9B7021D6E868C6D71F4393DDE6FCC04C144169F9943F1CC0DD20EDE6C3D575E6A2FC9A0C9B3621A6C2E396166BDC320D5970450CF600F9A7B4EDBE65ED417D2A3107C9D 阅读全文

posted @ 2016-01-17 17:51 9111 阅读(337) 评论(0) 推荐(0) 编辑

delphi 中如何查看网页POSTDATA

摘要： procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);begin ppDisp := WebBrowser2.Application; Cancel :... 阅读全文

posted @ 2015-10-29 15:50 9111 阅读(806) 评论(0) 推荐(0) 编辑

Encrypt2

摘要： begin#33AB6770A8A98127BD0B5A6DAEC68E5E9385C02D24C850B12987FE36CF1A62738174C6FE5336E3B50048E836238582C20956DA9FB6D8ECED4185C9D200096321AAB0DE3DC9EA31B3 阅读全文

posted @ 2015-05-28 17:11 9111 阅读(307) 评论(0) 推荐(0) 编辑

高亮 TRichEdit 当前行

摘要： var gStart, gLength, gCol: Integer;procedure SetRichEdit(aRichEdit: TRichEdit);var fRow, fCol: Integer; fStart, fLength, tStart: Integer;begin fRow :=... 阅读全文

posted @ 2015-01-07 12:43 9111 阅读(190) 评论(0) 推荐(0) 编辑

编码符_new88

摘要： begin#239B38F58D59E401465E1FEE0AFA7AE2DD920EB6645F4A2075C7ABBBE2141B925668C9D635D90DE884907F4E52F92113421558E0F886CE0346A4BE52E24055C6D727B2B6BACBEF68 阅读全文

posted @ 2014-10-11 16:25 9111 阅读(1026) 评论(0) 推荐(0) 编辑

汇编指令速查

摘要：指令功能AAA调整加AAD调整除AAM调整乘AAS调整减ADC进位加ADD加AND与ARPL调整优先级BOUND检查数组BSF位右扫描BSR位左扫描BSWAP交换字节BT位测试BTC位测试求反BTR位测试清零BTS位测试置一CALL过程调用CBW转换字节CDQ转换双字CLC进位清零CLD方向清零CL... 阅读全文

posted @ 2014-08-18 22:37 9111 阅读(279) 评论(0) 推荐(0) 编辑

WinAPI: GetKeyNameText - 根据键盘消息获取按键名称

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure Form... 阅读全文

posted @ 2014-07-28 18:17 9111 阅读(359) 评论(0) 推荐(0) 编辑

使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数

摘要：这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDivunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,... 阅读全文

posted @ 2014-07-28 18:10 9111 阅读(306) 评论(0) 推荐(0) 编辑

^ 符号的特殊用法

摘要： begin ShowMessage(IntToStr(Byte(^A))); {1} ShowMessage(IntToStr(Integer(^b))); {2} ShowMessage(IntToStr(Integer(^^))); {30} ShowMessage(IntToStr(Int... 阅读全文

posted @ 2014-07-25 22:16 9111 阅读(689) 评论(0) 推荐(0) 编辑

获取程序自身大小的函数

摘要： function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := S... 阅读全文

posted @ 2014-07-24 11:03 9111 阅读(130) 评论(0) 推荐(0) 编辑

导航

2016年1月17日

2015年10月29日

2015年5月28日

2015年1月7日

2014年10月11日

2014年8月18日

2014年7月28日

2014年7月25日

2014年7月24日