2008年9月19日
摘要: 今天发现了一个网站,上面有很多delphi实用的资料。收藏。http://www.96pc.com/bc/Delphi/ 阅读全文
posted @ 2008-09-19 09:23 yxbsmx 阅读(258) 评论(0) 推荐(0) 编辑
  2008年9月18日
摘要: TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来:1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex 先看第一个:CommaText。怎么用呢?用代码说话:const constr :String =... 阅读全文
posted @ 2008-09-18 15:55 yxbsmx 阅读(176) 评论(0) 推荐(0) 编辑
  2008年9月17日
摘要: convert c:/FS:NTFS 阅读全文
posted @ 2008-09-17 16:39 yxbsmx 阅读(1052) 评论(2) 推荐(0) 编辑
  2008年9月7日
摘要: Delphi制作DLL Windows 的执行文件可以划分为两种形式程序和动态连接库 (DLLs)。一般程序运行是用.EXE文件,但应用程序有时也可以调用存储在DLL的函数。 当我们调用Windows 中的API 函数的时候,实际上就是调用 存储在DLL 中的函数。 在如下几种情况下,调用DLL 是合理的: 1) 不同的程序使用相同的DLL ,这样只需要将DLL 在内存中... 阅读全文
posted @ 2008-09-07 10:56 yxbsmx 阅读(202) 评论(0) 推荐(0) 编辑
  2008年9月6日
摘要: 最近因公司群发邮件程式需要给注册一段时间没有激活的用户发激活邮件 邮件中有注册密码 需要还原发给用户 但由于密码加密是用C# 中的TripleDES完成 手头上又没有现成Delphi的实现 时间紧急 现翻译是来不及了 于是经过查资料反复实施 终于成功实现在Delphi中调用 C# 封装的DLL中的方法(Function)和过程(Procedure)现把实施步骤写下 以供有需要的XDJM分... 阅读全文
posted @ 2008-09-06 15:18 yxbsmx 阅读(372) 评论(0) 推荐(0) 编辑
  2008年8月30日
摘要: public partial class Form1 : Form { public Form1() { InitializeComponent(); Bitmap img=new Bitma... 阅读全文
posted @ 2008-08-30 22:02 yxbsmx 阅读(471) 评论(0) 推荐(0) 编辑
摘要: private Color GetPointColor(Point ColorPoint)//获取点颜色 { Color PointColor; // 创建显示器的DC IntPtr hdlDisplay = CreateDC("DISPLAY", null, null, IntPtr.Zero); ... 阅读全文
posted @ 2008-08-30 22:01 yxbsmx 阅读(413) 评论(0) 推荐(0) 编辑
摘要: using System.Runtime.InteropServices; //注册热键的api [DllImport("user32")] public static extern bool RegisterHotKey(IntPtr hWnd,int id,uint control,Keys vk ); //解除注册热键的api [DllImport("user32")] publi... 阅读全文
posted @ 2008-08-30 18:12 yxbsmx 阅读(167) 评论(0) 推荐(0) 编辑
摘要: private void timer1_Tick(object sender, EventArgs e) { timer1.Enabled = true; timer1.Start(); CurrPoint = new Point(Cursor.Position.X, Cursor.Position.Y... 阅读全文
posted @ 2008-08-30 16:09 yxbsmx 阅读(894) 评论(0) 推荐(0) 编辑
摘要: 先在程序中加入如下的声明后,就能引用mouse_event函数: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) 其中各个参数的... 阅读全文
posted @ 2008-08-30 16:08 yxbsmx 阅读(499) 评论(0) 推荐(0) 编辑