procedure Tfrm_InstrumentControl.aa;var CurLength: Word; vTimeLength: Word;begin Screen.Cursor := crHourGlass; try vTimeLength := StrToIntDef(num_GrossAnalyzeTime.Text, 0) * 60; CurLength := 0; while CurLength < vTimeLength do begin if IsCanExcute(10…

procedure KillSelf;begin  Sleep(1000);  if not TerminateProcess(GetCurrentProcessId, 0) then  WinExec(PChar('TaskKill /F /PID ' + inttostr(GetCurrentProcessId)), SW_SHOWMINIMIZED); end; 无论是否有线程在运行都一样杀 http://blog.csdn.net/y281252548/article/details/5…

Delphi XE2 三个新功能介绍举例_西西软件资讯  http://www.cr173.com/html/13179_1.html delphi 2007新功能简介-davidxueer-ChinaUnix博客  http://blog.chinaunix.net/uid-217463-id-2689877.html [转]Delphi XE6新增特性及功能_红鱼儿_新浪博客  http://blog.sina.com.cn/s/blog_44fa172f0101rz6n.html Delp…

Delphi自带的许多控件都有停靠功能,而且操作非常简单,大可不必选用第三方控件.        基本上,要进行Dock操作至少需要两个组件,一个人被附着的Dock Site组件,另一个人附在Dock Site上的组件,Delphi所提供的可视化组件只有继承自TWinContrl的VCL组件才具有Dock Site    功能,而只要是继承自TControl的VCL组件都具有附在Dock Site组件上的功能.如果你希望某个组件具有DockSite(停靠点)的功能,只要把属性DocSite设成T…

private static string connectionString = RBAC.Dal.DataRootBase.ConnectionString; private SqlConnection mConnection = new SqlConnection(connectionString); #region /// <summary> /// 当点击执行查询时发生(异步操作) /// 执行数据库waitfor delay延时存储过程 /// 或者waitfor time定时存储过…

具体内容见PDF Delphi XE2有什么新功能Delphi XE2提供(offers)了令人兴奋(exciting)的新功能,让您能够建立高度可视化的,在Windows,Mac和iOS上的业务应用.新的Windows 64位支持,整个FireMonkey,新的VCL样式,实时数据绑定,扩展的数据库连接,和更多.构建64位Windows应用程序现在,你可以用Delphi创建64位Windows应用程序充分利用了最新的硬件,访问更多的内存,更高的性能.所有Windows技术支持64位FireMo…

在UtiMnid组件下,利用auAutoUpgrader实现自动升级(已经测试通过) 第一步:下载AutoUpgrader.Pro.v4.6.4. 第二步:打开AutoUpgrader.Pro.v4.6.4下面的Delphi7目录,双击AutoUpgraderProD7.package文件安装,点install,安装.完成后,在工具面板上增加了一个UtiMnid组件.然后将Delphi7目录下面的全部文件都复制到delphi7的安装目录下面的bin目录中. 第一次发布程序时要做的事. 1.在已开…

c++builder/delphi中透明panel及透明窗口的实现方法_delphi教程 可能大多数程序员会问:透明窗口,特别是透明Panel有什么应用价值呢?可别小看它们哦,下面我就来讲讲他们的巨大作用. (1)透明窗口可以用于软件界面特效.大家可以看到很多软件的窗口出现或退出的时候是渐进或渐出的,而并非象WinArray8那样直接弹出窗口.这就是Win2000下所提供的功能.实现方法很简单: this->AlphaBlend=true; this->AlphaBlendValue=100;…

Delphi是市场上最好的RAD工具,但是现在C++占据着主导地位,有时针对一个问题很难找到Delphi或Pascal的解决方案.可是却可能找到了一个相关的C++类.本文描述几种在Delphi代码中使用C++类的方法. Delphi is one of the greatest RAD tools on the market, but it in this currently C++-dominated world, it can sometimes be hard to find a Delp…

原文NSIS:延时启动软件的几个方法及探索 有时候,我们想要某软件开机启动,但又不要拖慢开机速度,那么,延时启动技术就显得比较重要了.轻狂在这方面曾经研究过,也实现了自己想要的功能,看看我是怎么做的吧! 延时启动解决方案一:批处理方式 1.用批处理写好延时启动代码,把这个批处理命名为“延时启动轻狂志.bat”并在安装应用软件时释放到安装目录下. 01 @echo off 02   03 if "%1" == "h" goto begin 04 mshta vbscr…