delphi工作经验
lek608
冰冻三尺非一日之寒;人无远虑必有近忧;强身健体,自求多福
展开
-
定时自动启动外部应用软件并限时关闭此软件程序
今天由于要配合同事使用DCS软件开发一套工业控制软件,而DCS软件需要勾买,否则每次只能用两个小时,又要重启一次方可使用,所以就想到用delphi来解决这个问题,这样我们的那个工业控制软件就可以拿去进行实时监控了,设想的方案是这样的:通过用DELPHI来编写一个软件,通过此软件来启动DCS软件,然后每隔两个小时就自动关闭DCS软件又重启DCS软件,这样就可以正常使用了,一想觉得简单,所以原创 2008-12-05 10:57:00 · 3642 阅读 · 0 评论 -
获取计算机用户名
procedure TForm1.Button1Click(Sender: TObject);var users:pchar; i:cardinal;begin i:=255; getmem(users,255); //分配内存 getusername(users,i);//获取用户名 edit1.Text:=users;//显示end;原创 2008-12-06 10:26:00 · 791 阅读 · 0 评论 -
在客户端隐藏自己的应用程序窗口
今天在做网络监控客户端程序的时候,想在客户端不显示自己的应用程序窗口,要不然谁愿意让你监控,是不是?人家一看到的话肯定关闭了,所以我想把我的应用程序隐藏起来,不那么容易被发现,这样就可以神不知鬼不觉的进行监控了,首先要解决的就是窗口的隐藏,今天写这篇文章就是要说这个内容,当然,我不是怎么高手,只是在做的过程中遇到了一些也许被很多人难以发觉的问题而导至久久不能完成任务,下面我们来谈谈吧!原创 2008-12-10 17:00:00 · 745 阅读 · 0 评论 -
有关做串口数据采集编程常碰到的运算
这段时间一直在做一些设备的数据采集,不同的设备采用的传输协议都不相同,但大同小议,基本上都是在一些数据类型和编码格式的不同间进行转换,所以在关这方面的类型转换对于开发串口数据采集的工作者来说是非常重要的,因此本人贴上自己所做的东西,希望对大家有参考价值://十六进制转十进制; edit1.Text:=inttostr($ff);//十进制转ASII字符 edit1.tex原创 2009-12-10 20:11:00 · 837 阅读 · 0 评论 -
从数据记录表把数据记录由行转入固定表中的固定列的SQL语句
<br />以下程序是把原先保存各类数据不同时段的值的一个数据记录表,从中按指定的时段取出他们的值放到以它们来命名为字段的新表中。<br />比如:数据记录表A<br />序号 数据编号 数据值 班别 日期<br /> 1 1001 20.5 甲班 2010-3-20<br /> 2 1002 10.5 甲班 2010-3-20<br /> 3 1001 10.5 甲班 2010-3-20<br /> 4 1002 10.5 甲班 2010-3-20<br /> 5 1003 10.5 甲班 2010-3-原创 2010-11-02 07:59:00 · 752 阅读 · 0 评论 -
有关edit透明的探导
近段时间在网上经常看到如何把edit的做成像label控件一样的透明效果,有些提出把它的Transparent设为真就可以了,可是我找了半天也不见这个属性,除非自己定义一个组件,可是自定义组件相对来说比较麻烦,在此我试了一下,发现可以通过属性直接设置便可,方法如下:edit属性设置如下:Borderstyle:=bsNone;Ctrl3D:=False;ParentCol原创 2011-06-20 15:23:00 · 1096 阅读 · 1 评论