- 博客(38)
- 收藏
- 关注
RSS订阅原创 开心网多帐号批量加好友过验证码
一款集多功能的开心网批量好友工具，一键启用，无需操作。多帐号操作。1.批量搜索在线热帖用户，可提高好友增加成功率。2.批量发送请求好友信息。3.批量通过好友请求消息。4.批量清空系统消息及请求消息。5.批量转发热门转贴，并且附带广告语句。6.自动选择好
2011-09-09 21:04:08
1028
转载 让子窗口跟这主窗口移动
procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged); message WM_WindowPosChanged;const uFlag = SWP_NOACTIVATE or SWP_NOZORDER or SWP_NOMOVE or SWP_NOSIZE;procedure TForm
2010-01-29 14:27:00
1089
转载 磁性窗口制作
private { Private declarations } procedure WMWINDOWPOSCHANGING(var msg:TWMWindowPosChanging);message WM_WINDOWPOSCHANGING;procedure TForm3.WMWINDOWPOSCHANGING(var msg: TWMWindowPosMsg);varwork
2010-01-29 14:24:00
560
原创 计算程序运行时间 毫秒
var StartTime,EndTime:integer; begin StartTime:=GetTickCount; // EndTime:=GetTickCount; showmessage(用时+floattostr((EndTime-StartTime)/1000.0)+秒); en
2009-03-04 14:00:00
1250
1
转载 一个可以清理程序内存的代码（不错）
if Win32Platform = VER_PLATFORM_WIN32_NT thenbeginSetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);application.ProcessMessages;end;
2009-02-23 22:47:00
1688
转载 Delphi中的线程类
Delphi中的线程类Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对此作一个补充。线程本质上是进程中一段并发运行的代码。一个进程至少有一个线程，即所谓的主线
2009-02-23 22:47:00
471
转载 Delphi 枚举系统进程以及模块文件名
uses Tlhelp32;procedure SetPrivilege;//DEBUG提权 varOldTokenPrivileges, TokenPrivileges: TTokenPrivileges;ReturnLength: dword;hToken: THandle;Luid: int64;beginOpenProcessToken(Ge
2008-12-13 15:07:00
1855
转载 Delphi SendKeys.Pas
unit sndkey32;interfaceUses SysUtils, Windows, Messages;Function SendKeys(SendKeysString : PChar; Wait : Boolean) : Boolean;function AppActivate(WindowName : PChar) : boolean;{Bu
2008-11-21 17:31:00
3079
转载 Delphi Debug权限提升
procedure SetPrivilege;varOldTokenPrivileges, TokenPrivileges: TTokenPrivileges;ReturnLength: dword;hToken: THandle;Luid: int64;beginOpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken
2008-11-18 15:30:00
1849
原创 Delphi 2种排序方法
比较第一个字串的最小值，然后取出第二字串中相应的一组 方法一；function GetMinValue(s1,s2:string):string; varss1,ss2:TStringList;MinIndex:integer;i:integer;beginss1:=TStringList.Create; ss2:=TStringList.Create;ss1.Delimiter:=
2008-10-09 22:25:00
1587
转载 Delphi 托盘类
托盘区就是在windows的状态栏下方显示时钟、输入法状态的地方，要把你的程序显示在托盘区：下面是一个托盘类，只要把下面粘贴到文本文件中，改成TrayIcon.pas，使用时uses TrayIcon就可以了。先声明一个全局变量：var tray:TTrayNotifyIcon;然后在窗体的OnCreate事件中：tray:=TTrayNotifyIcon.Create(self);//将窗体创建
2008-10-08 16:58:00
549
转载 Listview中行之间的上下移动
procedure TForm1.N5Click(Sender: TObject); var idex: Integer; TmpList1, TmpList2, TmpupList: TListItem; begin TmpList1 := lv2.Selected; if TmpLis
2008-10-08 11:15:00
651
转载 VB Winsock 介绍
Winsock是Mcrosoft windows提供的网络编程接口,它供了基于TCP/IP协议接口实现方法.通过网络进行的数据通信,需要用地址来表示网络中的主机.TCP/IP协议使用IP地址来作为主机的标识.实现的连接方式是通过IP地址来识别的.通常情况下每台设备运行的不止一个程序,所以为了使用应用程序间的连接,还需要建立一个地址标识.在TCP/IP中使用端口来作为标识号(PORT).IP地址+端
2008-09-13 03:03:00
1182
原创 完美世界 邮件发包结构分析
function StrtoUnicode(Str:string):string;var s: string; i, j, k: integer; a: array [1..1000] of char; begin s:=; StringToWideChar(Str, @(a[1]), 500); i:=1; while
2008-09-03 18:23:00
786
转载 Delphi 获取Mac地址
function MacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;begin Result := ; Lib := LoadLibrary(rpcrt4.dll); if Li
2008-09-03 18:20:00
597
转载 VB获取MAC地址
Private Const NCBASTAT As Long = Private Const NCBNAMSZ As Long = 16Private Const HEAP_ZERO_MEMORY As Long = Private Const HEAP_GENERATE_EXCEPTIONS As Long = Private Const NCBRESET As L
2008-09-03 18:19:00
1780
转载 Doevents函数详解
Doevents函数是一个很好用的函数，但很多人对它的用法不清楚或有误解。由于我在网上查到一篇关于此函数的用法，并添加了一些内容，不敢独享，特此献出。 其中有一个“控时循环和变速齿轮”的内容，有点意思，感兴趣的可看一看。 DoEvents函数的功能是：转让控制权，以便让操作系统处理其它的事件。 问:为什么要用doevents? A.在需要用某一循环处理相当耗时或者很
2008-08-31 22:28:00
1913
转载 Delphi部份函数,命令,属性中文说明
Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alignment 属性 控件标签的文字位置 AllocMem 函数 在堆栈上分配给定大小的块 Allow
2008-08-31 22:06:00
610
转载 隐藏进程的unit HideProcess
unit HideProcess;interfacefunction MyHideProcess: Boolean;implementationusesWindows, SysUtils, Variants, Classes, AclAPI, accCtrl;typeNTSTATUS = LongInt;const//NT_SUC
2008-08-31 22:03:00
917
转载 delphi idhttp post应用
uses IdMultipartFormData;{ .... }procedure TForm1.Button1Click(Sender: TObject);var data: TIdMultiPartFormDataStream;begin data := TIdMultiPartFormDataStream.Create; try
2008-08-28 15:25:00
4205
转载 GetWindowText - 获取窗口标题
//声明:GetWindowText( hWnd: HWND; {窗口句柄} lpString: PChar; {接收文本的缓冲区的指针} nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
2008-08-28 15:21:00
3778
转载 Delphi中进行延时的4种方法
1、挂起，不占CPUsleep2、不挂起,占cpuprocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages;until ((GetTickCount-FirstTickCount) >= Longint(
2008-08-28 15:09:00
898
原创 delphi 完美发言Call
type TspeakCallParam = packed record //str: PWideChar; len: integer; str: array[1..255] of widechar; end; PspeakCallParam = ^TspeakCallParam;//发言函数 procedure speakCa
2008-08-25 09:50:00
733
原创 PB HOOKAPI函数
Function HookAPI(ByRef module As Asciiz, ByRef api As Asciiz, ByVal lpcallbackFunc As Dword,ByRef nextHook As Dword,Opt ByVal pSize As Dword) As Long Local DLLModule As Dword,FuncAddr As Dwo
2008-08-24 13:49:00
1340
转载 多线程idhttp下载文件源代码
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdHT
2008-08-24 13:19:00
3051
翻译 delphi 使用API返回网页信息
uses WinInet function GetIp(Url: PChar): string; //向网页提交GET信息函数 var ErrCode: string; hInternets, hInternetFiles: HINTERNET; dwOut: DWORD; lpBuffer: array[0..4096] of Char;begin
2008-08-24 13:03:00
780
翻译 VB 使用API读写INI
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _ (ByVal LpApplicationName As String, _ ByVal LpKe
2008-08-24 11:33:00
542
原创 VB 使用API实现INET功能
Public Declare Function InternetOpen Lib "Wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal
2008-08-24 11:29:00
769
转载 VB开机运行程序
有两种方法，1是注册表方式模块代码Option ExplicitPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long,
2008-08-24 11:22:00
697
原创 VB让程序启动时自动改名
Private Sub Form_Load() 产生随机码 Dim ranNuma As Long Randomize ranNuma = Int(124435894 * Rnd) + 19850317 创建BAT Open App.Path & "/A.bat" For Output As #1 创建一个批处理文件并往
2008-08-24 11:17:00
609
转载 不使用API读取ini
uses inifiles;procedure TForm1.FormCreate(Sender: TObject);varini: TIniFile;path,a,b,c,d: string; beginpath := ExtractFilePath(Application.Exename)+server.INI; 获取当前路径i
2008-08-24 01:07:00
363
转载 遍历groupbox1的所有控件，让edit和combobox为空
var i:integer;begin for i:=0 to GroupBox1.ControlCount-1 do begin if GroupBox1.Controls[i].ClassType=tedit then begin
2008-08-24 01:01:00
538
转载 API读写ini文件
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) Memo1: TMemo; Button1:
2008-08-24 00:51:00
369
转载 注册全局热键应用例子
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Labe
2008-08-24 00:48:00
344
转载 获取网卡、硬盘、CPU硬件信息
//---------------------------------------------------------------------------// HardwareInfo.pas // 获取网卡、硬盘、CPU硬件信息//-----------------------------------------------
2008-08-24 00:15:00
1033
转载 Delphi编译错误代码翻译表
; not allowed before ELSE ElSE前不允许有“;” clause not allowed in OLE automation section 在OLE自动区段不允许“”子句 is not a type identifier 不是类型标识符 not previously declared as a PROPERTY 前面没有说明PROPERTY GOTO lead
2008-08-23 23:26:00
1393
转载 Windows 使用的256个虚拟键码 VB键盘常量大全
Public Const VK_LBUTTON = &H1Public Const VK_RBUTTON = &H2Public Const VK_CANCEL = &H3Public Const VK_MBUTTON = &H4Public Const VK_BACK = &H8Public Const VK_TAB = &H9Public Const VK_CLEAR = &HCPublic
2008-08-23 23:25:00
2157
转载 SetWindowPos 参数介绍
//声明:SetWindowPos(hWnd: HWND; {窗口句柄}hWndInsertAfter: HWND; {窗口的 Z 顺序}X, Y: Integer; {位置}cx, cy: Integer; {大小}uFlags: UINT {选项}): BOOL;//hWndInsertAfter 参数可选值:HWND_T
2008-08-23 23:21:00
912
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人