- 博客(16)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 按键精灵361插件后台脚本
Hwnd = Plugin.Window.Foreground()If Hwnd>0Call Plugin.Window.Active(Hwnd) Call Plugin.bgkms6_10.FakeWindowState(Hwnd, 2)//目标窗口对应的进程总是以为目标窗口在前台,361度6.10Rem aCall Plugin.Bkgnd.KeyDown(Hwnd,
2013-06-17 04:40:19
8422
转载 窗体重绘，半透明
{*******************************************************}{ }{ 异形窗口
2013-06-02 18:53:50
653
转载 delphi idtcpserver&idtcpclient 演示
{---------------------------------------------------------------------- Unit Name: sUnit Author: Mats Asplund, 2001-11-09 Purpose: Indy client/server示例, 服务器部分-----------------------------
2013-05-27 19:59:13
1042
转载 delphi中单独编译pas生成dcu文件
delphi中单独编译pas生成dcu文件 在网上下载了一个带源码的组件，结果碰到提示说缺少xxx.dcu。一看它的目录下确实没有，那能不能生成一个呢？当然可以！方法是使用delphi的安装目录\bin文件夹下的的dcc32.exe。例如：dcc32 myUnit.pas正常情况下运行上面的命令就会编译myUnit.pas生成 myU
2013-05-25 00:50:43
1369
原创 CENTOS IPTABLES 远程只允许22端口
#清除目前所有规则iptables -F#允许通过tcp协议访问22端口iptables -A INPUT -p tcp --dport 22 -j ACCEPT#禁止访问除22端口以外的所有端口iptables -P INPUT DROPiptables -P FORWARD DROPiptables -P OUTPUT ACCEPT#允许本地内部访问ipta
2013-01-20 14:24:19
1502
转载 C# 取RichTextBox所有图片
private void button3_Click(object sender, EventArgs e) { for (int i = 0; i < richTextBox1.TextLength; i++) { richTextBox1.Select(i, 1);
2012-11-21 22:24:35
3222
1
原创 线程内Socket被动关闭导致程序异常问题
在无限循环receive的时候，如果try在循环体内，一旦发生异常，会导致线程异常，程序强制关闭try{while(true){socket.receive}}catch(){} 把while放进try里就OK了
2012-11-16 18:18:03
713
转载 INI配置文件读写
一、INI文件的结构：;注释[小节名]关键字=值...---- INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。---- 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。---- 注释以分号“;”开头。二、定义---- 1、
2012-11-11 05:14:01
498
原创 无边框图片背景窗体自由移动
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);beginif (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);e
2012-11-11 04:45:36
679
原创 动态创建tidhttp组件
IdHTTP 命名空间引用定义idhttp1 : Tidhttp;Param:TStringList;RStream:TStringStream;userid:string;userpwd:string;创建try idhttp1 := Tidhttp.create(nil);用来接收返回的数据流。 RStream:=TStringStream.Create(
2012-11-11 04:43:29
1072
原创 线程简单使用
CreateThread(nil, 0, @New_Thread, nil, 0, Tid);function New_Thread(P:pointer):DWORD;stdcall;访问主线程USES SyncObjs 命名空间CS: TcriticalSection; 定义CS:=TcriticalSection.Create; 创建子线程内CS.Enter; 进入
2012-11-11 04:37:10
506
原创 利用seven 7zip的API来进行压缩和解压文件夹
首先下载seven 7zip源码包http://download.csdn.net/detail/lokeyyang/4748647将sevenzip.pas和7z.dll 复制到你的工程目录下，将sevenzip.pas加入你的工程在uses后面加入sevenzip命名空间然后就可以直接适用seven里面的各种函数了。 procedure TForm1.Button1Cl
2012-11-10 02:46:29
3338
原创 CSS定义Scroll滚动条样式。
scrollbar-face-color: #000000; scrollbar-shadow-color: #FFC300; scrollbar-highlight-color: #000000; scrollbar-3dlight-color: #FFC300; scrollbar-darkshadow-color: #000000; scrollbar-track-color: #0000
2010-03-02 02:41:00
1009
原创 CSS切开图片
clip:rect(上，右，下，左) 四个点坐标此方法不适合剪切背景 背景使用style="background-image:url(bg.jpg); background-position:20px 0px;" kground-position: 1.定位方法 left center 横向 纵向2.切取 横向px 纵向px 不适合平铺重复
2010-03-02 02:32:00
532
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人