摘要： delphi获取目录下所有文件名 procedure SearchFile(Path:String);//注意,path后面要有'\';var SearchRec:TSearchRec; Found:Integer;begin Found:=FindFirst(path+'*.*',faAnyFil 阅读全文

摘要： 1.MouseMove事件中加入： 2.MouseDown事件中加入： 3.MouseDown事件中加入： 阅读全文

摘要： Win10本身是一个兼容性较好的操作系统，目前有很多人在咨询如何在Windows 10 上安装 SQL Server 2000数据库，都没有成功过。主要是卡在了安装过程中的mdac2.6 安装上，一直停这儿不动。我们根据自己的实践，成功在Window 安装上了 SQL Server 2000数据库标... 阅读全文

摘要： 今天重新做了系统，但是不知道什么原因EhLib安装出问题，花了很多时间，最后完美解决，在此做个总结按安装提示先运行安装目录下的\Installer里的EhLibInstaller.exe文件安装好后进入delphi （win7系统）报”程序无法定位于.....错误“解决方法：把Installer里的... 阅读全文

摘要： 原理：在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在。注意：FindWindow()函数带两个参数(类名和标题的窗口)其中的一个参数可以忽略，但最好将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。缺点：如果是在Delph... 阅读全文

摘要： 过Delphi实现打开程序后访问指定网站代码如下：1、调用系统API（非知名网站杀毒软件报木马）uses ShellApi, ... ... ;ShellExeCute(Handle,nil,'http:\\charmhouse.taobao.com',nil,nil,SW_Normal);2、调用IE法（这个杀毒软件好像不报）uses Comobj, ... ... ;{...}var Form1: TForm1; IEApp: Variant;实现代码begin IEApp := CreateOLEObject('InternetExplorer.Applicati 阅读全文

摘要： Delphi 设置文件属性uses FileCtrl;procedure TForm1.BitBtn1Click(Sender: TObject);begin with OpenDialog1 do if Execute then if FileSetAttr(filename, faArchive)=0 then Caption:='attribute was changed' else Caption:='attribute was not changed';end;请在interface下的uses中引用... 阅读全文

摘要： 1、 总台收银员：交接备用金、交接有无押金、交接客人的特殊情况。所有交接情况详细记录在交接笔记上，不允许有涂改，双方确认签字。 如果出现责问题以交接 笔记区分责任。2、 副收：在交班前先和主收交接当日所结帐务，钱款和票据统一向财务人员上缴。交接时两班副收清点毛巾，做交接笔记。3、 各楼层输入人员：将闭市前后的单据区分开，清点相应的物品。交接笔记上也写明当班所传达的指示，和当班发生的特殊情况。4、 负责商品的吧台人员（包括生态园吧台、、游泳馆吧台、影视厅吧台），交接时清点货物、核对日报表结存。日报表一式两份， 接班吧员按日报表结存点货，核对无误时双方签字。两份各自保留，交班吧员将日报表上... 阅读全文

摘要： 员工流失总会给企业带来一定的影响。这种影响既有积极的一面，更有其消极的一面，频繁的员工流动将会给企业带来许多不利的影响：第一、员工的流失会给企业带来一定的成本损失。企业从招聘到培训员工所付出的人力资本投资将随着员工的跳槽而流出本企业并注入到其他企业中；企业为维护正常的经营活动，在原来的员工流失后，需要重新找选合适的人选来顶替暂时空缺的职位，这时，企业又要为招收新员工而支付一定的更替成本。第二、员工的流失会影响企业的服务质量。一般来说，员工在决定离开而尚未离开的那一段时间里，他们对待自己手头的工作不会像以往一样认真负责，有些员工甚至由于对企业的不满，出于对企业的报复心理而故意将事情做砸。若员工在 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure MyMsg(var msg: TWMKeyDown); message WM_KEYDOWN; end;var Form1: TForm1;implementation{$R *.dfm}procedure T... 阅读全文