摘要: InterLockedIncrement 举个例子:如果一个变量Long value =0; 首先说一下正常情况下的加减操作:value+=1; 1:系统从Value的空间取出值,并动态生成一个空间来存储取出来的值; 2:将取出来的值和1作加法,并且将和放回Value的空间覆盖掉原值。加法结束。 如果此时有两个Thread ,分别记作threadA,threadB。 1:threadA将Value从存储空间取出,为0; 2:threadB将Value从存储空间取出,为0; 3:threadA将取出来的值和1作加法,并且将和放回Value的空间覆盖掉原值。加法结束,Value=1... 阅读全文
posted @ 2012-10-08 13:50 时间的子民 阅读(195) 评论(0) 推荐(0)
摘要: MessageBeep()过程是Win32 API中最有用和最直观的例程之一。它使用很简单,只要传递一个预定义的常量,windows就会使PC机的喇叭响一下(如果有声卡,将演奏一个WAV文件)。Messagebeep过程经常用于调试程序。 如果想知道程序是否执行到了某个位置,但又不想劳驾调试器和断点,MessageBeep()是最合适的。因为它不需要句柄或其他windows资源,可以再代码的任何地方使用它,有人曾经说过:“MessageBeep()是那些不熟悉调试器的人设计的”。 如果觉得这个过程的名称和参数太长。也可以用SysUtils单元中的Beep()过程代替。Beep()过程实际上调. 阅读全文
posted @ 2012-09-26 17:13 时间的子民 阅读(447) 评论(0) 推荐(0)
摘要: 代码如下:unit Upassword;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; proce... 阅读全文
posted @ 2012-08-09 17:12 时间的子民 阅读(126) 评论(0) 推荐(0)
摘要: 在用delphi设计登录框的使用,发现当账号密码输入错误的时候,重定位到相应的编辑框是非常有用的技巧,这里需要使用控件的隐藏属性setfocus.例如:1 PassWordEd.SetFocus;//定位密码框 阅读全文
posted @ 2012-08-09 16:55 时间的子民 阅读(135) 评论(0) 推荐(0)