不停的往Memo中输出文本信息，满1000行就clear运行大概一分多钟就会出错，捕捉到的出错信息如下：Outof system resourcesTScrollingStyleHook.TScrollWindow:句柄无效TScrollingStyleHook.TScrollWindow:拒绝访问 ...
Delphi 判断字符串是否是数字、大小字母、小写字母、纯字母组成 //判断字符串是否是数字 ，返回布尔值 function IsNumberic(Vaule:String):Boolean; var i:integer; begin result:=true; //设置返回值为 是（真） Vaul ...
临界区对象TCriticalSection(Delphi) 与 TRtlCriticalSection 的区别 TRtlCriticalSection 是一个结构体，在windows单元中定义；是InitializeCriticalSection，EnterCriticalSection，Leave ...
Controls Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize ...
Delphi 语法基础[1] 循环语句：While、Repeat、For 1、While：执行While循环体时 ，先执行循环条件，判断若为真，则执行循环体，否则，跳出循环 While(循环条件) do //循环体； 2、Repeat //“直到型循环”: Repeat //循环体； Until（循 ...
【问题原因】 该问题是由于微软从 Windows 8 开始，GetKeyboadLayouts 函数不再有效，而 VCL 中仍然是通过该方法获取输入法列表造成的。希望下个版本的 Delphi/C++ Builder 能够解决。 【解决办法】 如果是 Win8+，则自己从注册表读，如果是Win 7 等 ...
Delphi盒子 www.2ccc.com 2Pascal-新时代的Pascal http://www.2pascal.com WeDelphi http://www.WeDelphi.com 新大富翁论坛 http://www.dfwlt.com/forum.php 万一的博客：http://ww ...
function selectdir: string; //如果取消取返回为空，否则返回选中的路径 var Info: TBrowseInfo; IDList: pItemIDList; Buffer: PChar; begin result := ''; Buffer := StrAlloc(MA ...
{*******************************************************} { } { Delphi公用函数单元 } { } { 版权所有 (C) 2008 } { } {******************************************** ...
在windows系统中，可以通过Regsvr32来实现注册ocx或者dl， 编程时，调用Regsvr32来注册，却不能正常执行。尤其是在Win7系统中，需要管理员身份才能运行。 使用下面的代码则能正常注册。 //注册 function RegisterDllServer(FileName: stri ...
