王集鹄-CSDN博客

原创 VB.NET中TreeView查找下一个节点

Private Function GetNextNode(ByVal ATreeNode) As TreeNode If ATreeNode Is Nothing Then Return Nothing End If If ATreeNode.Nodes.Count > 0 Then Return ATreeNode.Nodes(0

2007-05-10 22:54:00 2898

原创 C#执行动态代码并回访静态代码中的元素

using Microsoft.CSharp;using System.CodeDom.Compiler;using System.Reflection; private void button1_Click(object sender, EventArgs e){ ICodeCompiler vCodeCompiler = new CSharpCodeProvider().Cr

2007-05-09 11:11:00 1662

原创 WebBrowser调用添加收藏夹的功能

using System.Runtime.InteropServices; [DllImport("User32.DLL")]public static extern int SendMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);[DllImport("User32.DLL")]public stati

2007-05-08 09:27:00 1537

原创 Delphi获得一个进程的主窗体

type TMainWindow = packed record ProcessID: THandle; MainWindow: THandle; end; PMainWindow =^ TMainWindow;function IsMainWindow(AHandle: THandle): Boolean;begin Result :=(GetWindow(AHa

2007-05-06 23:26:00 2151 1

原创 C#绘制蚂蚁线

delegate void LINEDDAPROC(int X, int Y, IntPtr lpData);[DllImport("gdi32.dll")]static extern int LineDDA(int nXStart, int nYStart, int nXEnd, int nYEnd, LINEDDAPROC lpLineFunc, IntPtr lpDat

2007-04-30 13:14:00 2275 2

原创通过Graphics对象获取它所属的Control

using System.Runtime.InteropServices; [DllImport("user32.dll")]public static extern IntPtr WindowFromDC(IntPtr hDC); private void button1_Click(object sender, EventArgs e){ Graphic

2007-04-27 21:34:00 988

原创 C#中获得系统当前鼠标的图案

using System.Runtime.InteropServices; [StructLayout(LayoutKind.Sequential)]struct CURSORINFO{ public int cbSize; public int flags; public IntPtr hCursor; public Point ptSc

2007-04-26 00:11:00 1992

原创 VB.NET实现老板键

Public Class Form1 Public Const WM_HOTKEY = &H312 Public Const MOD_ALT = &H1 Public Const MOD_CONTROL = &H2 Public Const MOD_SHIFT = &H4 Public Const GWL_WNDPROC = (-4)

2007-04-25 18:58:00 2124 2

原创枚举当前系统用户

using System.Runtime.InteropServices; [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]public struct USER_INFO_0{ public string Username;} [DllImport("Netapi32.dll")

2007-04-23 19:42:00 1315

原创 C#中比较两个对象的地址是否相同

private void button1_Click(object sender, EventArgs e){ char[] ch = { z, s, w, a, n, g, 路, 过 }; String s1 = new String(ch); String s2 = new String(ch); String s3

2007-04-08 23:11:00 2679

原创 RichEdit选中文字右键菜单的实现

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var vPoint: TPoint;begin if Button mbRight then Exit; vPoint := Point(X, Y)

2007-04-08 10:54:00 2286

原创 C#鼠标拖动控件改变位置并绘制虚框

private Point downPoint;private Rectangle downRectangle;private Rectangle lastRectangle; private void pictureBox1_MouseDown(object sender, MouseEventArgs e){ if (e.Button != MouseBu

2007-03-31 19:11:00 4428 6

原创 C#调用记事本并填写内容

using System.Runtime.InteropServices;using System.Diagnostics; [DllImport("User32.DLL")]public static extern int SendMessage(IntPtr hWnd, uint Msg, int wParam, string lParam);[DllImpor

2007-03-28 14:03:00 6769 8

原创 C#中动态调用API函数

using System.Runtime.InteropServices; internal delegate bool Delegate_Beep(uint dwFreq, uint dwDuration);[DllImport("kernel32.dll")]internal static extern IntPtr LoadLibrary(string lpLibFile

2007-03-27 10:28:00 1722

原创 [算法]寻找字母重复组合的单词

//有字符串如"ABCD,BDAC,DRF,FRD,CADB,CAADB,XB",要将其中由相同字符组成的词归在一起，如果没有和其由相同字符组成的词则去掉，如上的结果为：//组1：ABCD,BDAC,CADB//组2: DRF,FRD//另外，CAADB和XB去掉 string vText= @"ABCD,BDAC,DRF,FRD,CADB,CAADB,XB";List

2007-03-23 11:28:00 2289

原创 C#中short数组的文件读写方法

private void button1_Click(object sender, EventArgs e){ short[] buffer = new short[] { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }; FileStream vFileStream = new FileStream(@"c:/temp/temp.dat",

2007-03-21 12:04:00 5878

原创 C#设置和恢复系统的鼠标指针

using System.Runtime.InteropServices; [DllImport("User32.DLL")]public static extern bool SetSystemCursor(IntPtr hcur, uint id);public const uint OCR_NORMAL = 32512;public const uint OCR_IBEA

2007-03-20 17:55:00 2821

原创 C#中QuotedPrintable编解码

using System.Collections;using System.Globalization; public string QuotedPrintableEncode(string AText)// QP编码{ string Result = ""; byte[] vBuffer = Encoding.Default.GetBytes(AText)

2007-03-20 12:05:00 1960 1

原创 C#中调用WebBrowser查看源文件的功能

using System.Runtime.InteropServices;[DllImport("User32.DLL")]public static extern int SendMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);[DllImport("User32.DLL")]public static extern In

2007-03-20 01:10:00 2752 7

原创 C#使用winmm播放mp3音乐

using System.Runtime.InteropServices; public static uint SND_ASYNC= 0x0001; // play asynchronously public static uint SND_FILENAME= 0x00020000; //name is file name[DllImport("winmm.dll")]pub

2007-03-19 21:59:00 2606 1

原创 C#中文数字表达式

string NumberCn(double ANumber){ const string cPointCn = "点十百千万十百千亿十百千"; const string cNumberCn = "零一二三四五六七八九"; string S = ANumber.ToString(); if (S == "0") return "" + cPointCn[

2007-03-19 00:10:00 1092

原创 C#中ListView添加系统文件图标

using System.Runtime.InteropServices; public static uint SHGFI_ICON = 0x100; public static uint SHGFI_DISPLAYNAME = 0x200; public static uint SHGFI_TYPENAME

2007-03-19 00:04:00 3219 2

原创 [算法]在数字N中删除S个数，使其最终余下的值最小

输入一个高精度的正整数N(N不超过200位),去掉其中任意S个数字后剩下的数字按原左右次序组成一个新的正整数:编程对给定的N和S,寻找一种方案使得剩下的数字组成的新数字最小private string Calc(string N, int S){ if (S 0) return N; char c = N[0]; int j = 0; for (int i = 1

2007-03-18 00:39:00 2071 1

原创 C#中关于从剪贴板中读取HTML格式含中文字符会出现的问题和解决方法

通过如下代码在剪贴板中获取含HTML格式的文本时发现当内容出现汉字的时候会有乱码if (Clipboard.ContainsText(TextDataFormat.Html)) textBox1.Text = Clipboard.GetText(TextDataFormat.Html);通过剪贴板工具分析，HTML格式的文本是UTF8编码方式看来Clipboard.GetText()是解

2007-03-15 22:23:00 2073 3

原创 C#模拟窗体系统菜单

using System.Runtime.InteropServices;const uint TPM_LEFTBUTTON = 0;const uint TPM_RIGHTBUTTON = 2;const uint TPM_LEFTALIGN = 0;const uint TPM_CENTERALIGN = 4;const uint TPM_RIGHTALIGN = 8;const u

2007-03-14 22:14:00 1981 1

原创参加CodeGear开发者日

地点在阜成门国宾酒店1号宴会厅早上9:30到达，前来参加的人不是很多开始是由大中华区总经理琚伟介绍CodeGear公司情况之后是李维上去讲Delphi2007的新功能和特点我坐在琚伟后面几排，可以看到李维上去讲的时候琚伟在看他电脑上的股票信息看来最近股票波动大家都比较关心新的Delphi2007有4大特点1、能开发Windows Vista的程序2、能方便的开发和生

2007-03-12 22:13:00 1229

//Delphi version//ZswangY37, October 2006////THIS SOFTWARE IS PROVIDED "AS IS" AND//ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE//IMPLIED WARRANTIES OF MERCHANTABILITY AND FIT

2006-10-27 11:48:00 1314 1

原创一个ComboBox的Bug

宽度改变后，输入字符被傻瓜式的匹配。即使没有输入焦点也会显示为选择状态object ComboBox1: TComboBox Text = aa Items.Strings = ( aaaaaaaa bbbbbbbb cccccccc dddddddd eeeeeeee)endprocedure TForm1.FormCreate(

2006-09-18 22:48:00 1464 2

原创获取其他进程的命令行

type UNICODE_STRING = packed record Length: Word; MaximumLength: Word; Buffer: PWideChar; end; PUNICODE_STRING = UNICODE_STRING;type PROCESS_PARAMETERS = packed record

2006-09-12 22:26:00 2302

原创获取其他进程中“Internet Explorer_TridentCmboBx”的内容

function GetTridentCmboBxText( // 获取其他进程中“Internet Explorer_TridentCmboBx”的内容 mHandle: THandle; // ComboBox句柄 mStrings: TStrings // 输出列表): Boolean; // 返回获取数据是否成功var I: Integer; vItem

2006-09-12 22:23:00 1412

原创测试一下新功能，贴代码

2006-08-22 13:46:00 1515 2

原创取得身份证号码的含义

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids; type TForm1 = class(TForm) Bu

2005-02-24 17:18:00 2157

原创获取其他进程中StatusBar的文本

(*//标题:获取其他进程中StatusBar的文本说明:Window2000+Delphi6调试通过设计:Zswang支持:wjhu111@21cn.com日期:2005-02-22//*)uses CommCtrl;function GetStatusBarText(mHandle: THandle): string;var vBuffer: ar

2005-02-22 10:49:00 2643 1

原创文件搜索器

(*//>[主要功能]1、特征码搜索特征码由十六进制字符串组成，"%%"表示任意一个字符2、支持Pascal字符串表达式[其他说明]1、免费软件自由使用2、感谢Kingron给予技术上的支持3、>姊妹工具明天就是国庆在此祝愿祖国繁荣富强欢迎光临我们的论坛http://www.soulan.com/kingron2004-09-30 Zs

2004-09-30 22:39:00 1558 2

原创内存搜索器

(*//>[主要功能]1、特征码搜索特征码由十六进制字符串组成，"%%"表示任意一个字符2、支持Pascal字符串表达式3、将内存数据保存为文件[其他说明]1、免费软件自由使用2、感谢Kingron给予技术上的支持明天就是国庆在此祝愿祖国繁荣富强欢迎光临我们的论坛http://www.soulan.com/kingron2004-09

2004-09-30 21:16:00 4128 6

原创 TStringGrid多选的复制与拷贝

uses Clipbrd;function StringGridSelectText(mStringGrid: TStringGrid): string;var I, J: Integer; S: string;begin Result := ; if not Assigned(mStringGrid) then Exit; for J := mS

2004-09-21 11:53:00 4153 4

跨进程访问VCL的一个用例（Delphi6、TurboDelphi测试通过）

大概的步骤是： 1、创建一个hook，以便跨进程访问内存空间； 2、自定义FindControl方法，按目标窗体所在线程组装参数； 3、获得TWinControl对象； 4、通过WM_COPYDATA消息返回查询内容。

2009-03-14

IE脚本辅助2.0

IE地址栏里可以用“javascript:xxxx”来运行脚本。 不过脚本是多行的，并且内容很多，在地址栏上输入，就不方便了。 并且一些页面本身就没有地址栏。 本工具就是为您提供在IE窗体中执行大段脚本的功能。 [编写脚本] 本工具没有提供脚本保存的功能，您可以使用用其他工具(如：记事本)编写脚本。 "Script"子目录是专门存放脚本文件。 其中文件扩展名“.js”对应JavaScript语言、“.vbs”对应VBScript语言，目前支持这两种脚本。 [选中IE窗体] 通过拖动“瞄准器”的图标可以选中目标IE窗体。参考“Spy++”。 [执行脚本] 选中IE窗体并且有脚本内容后点击“运行脚本”。 [升级功能+] 将脚本直接添加到IE收藏夹 支持脚本和目录的添加、修改、保存和删除

2008-04-26

IE脚本辅助

IE地址栏里可以用“javascript:xxxx”来运行脚本。不过脚本是多行的，并且内容很多，在地址栏上输入，就不方便了。并且一些页面本身就没有地址栏。本工具就是为您提供在IE窗体中执行大段脚本的功能。 [编写脚本] 本工具没有提供脚本保存的功能，您可以使用用其他工具(如：记事本)编写脚本。 "Script"子目录是专门存放脚本文件。其中文件扩展名“.js”对应JavaScript语言、“.vbs”对应VBScript语言，目前支持这两种脚本。[选中IE窗体] 通过拖动“瞄准器”的图标可以选中目标IE窗体。参考“Spy++”。[执行脚本] 选中IE窗体并且有脚本内容后点击“运行脚本”。

2008-03-10

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

跨进程访问VCL的一个用例（Delphi6、TurboDelphi测试通过）

IE脚本辅助2.0

IE脚本辅助

C#十六进制编辑器1.01

xp按钮

快捷输入器

Debug监视器

TreeDocument1.1

TreeDocument1.0

[C#源代码]俄罗斯方块1.0

使用正则表达式实现的语法分析引擎(C#源代码)

Delphi十六进制编辑器控件

内存分析器1.01

文件分析器1.01

空空如也