摘要: 无论是用VC还是用Delphi,启动外部程序,调用的都是相同的系统中的API函数,如下Delphi代码所示://登录按钮 procedure TForm1.Label_LoginClick(Sender: TObject); begin RunOtherApp('C:\1.exe'); //启动1.exe end; //Delphi启动其它程序函数 //参数appPath为要打开的程序的路径 procedure TForm1.RunOtherApp(appPath:String); begin //使用WinExec也可以打开程序,这里不用 //WinExec(Pchar(ap 阅读全文
posted @ 2012-10-12 21:44 氺〤魚Oo。 阅读(335) 评论(0) 推荐(0) 编辑
摘要: 最近我用Delphi写了个程序,需要将用户信息写入文件,因此在网上查了下Delphi有关文本文件的操作,经整理后,我将其封装成了一个函数,以方便以后的使用,访函数代码如下://将帐号信息写入文本文件函数 procedure TForm1.WriteUserToText(user:String; pass:String); var txt:TextFile; begin //先判断一下文件是否存在, 不存在时就创建它 if not FileExists('C:\p.txt') then begin Assignfile(txt,'c:\p.txt'); //指定文 阅读全文
posted @ 2012-10-12 20:42 氺〤魚Oo。 阅读(210) 评论(0) 推荐(0) 编辑
摘要: 本工具网络下载地址:http://download.csdn.net/download/friendan/4637954本工具完整Delphi7源码:http://download.csdn.net/download/friendan/4637961//程序截图如下:写此程序的目的: 很多时候,我需要暂时离开电脑,不想关机,又想延长电脑屏幕的寿命,所以我想到了屏幕保护。众所周知,在系统中设置了屏幕保护后,需要在指定的一段时间内屏幕保护程序才能运行,而我的需求却是随时都可以启动屏幕保护程序,因此有了写这款小程序的想法!...程序的实现原理: 原理很简单啦,其实就是给系统发送一个广播消息,让系统启 阅读全文
posted @ 2012-10-12 10:07 氺〤魚Oo。 阅读(727) 评论(0) 推荐(0) 编辑
摘要: 题目:查询Northwind数据库中orders表的ShipCountry列以B或C或D或F开始且第三个字符为"a"的OrderID、CustomerID和ShipCountry的信息。SQL查询代码:USE NorthwindGOSELECT ShipCountry,OrderID,CustomerIDFROM ordersWHERE ShipCountry LIKE '[BCDF]_a%'//效果截图: 阅读全文
posted @ 2012-10-12 08:57 氺〤魚Oo。 阅读(329) 评论(0) 推荐(0) 编辑
摘要: //表结构和数据截图如下:题目如下:1)查询成绩在60~80之间的记录。SELECT * FROM SC WHERE GRADE BETWEEN 60 AND 802)查询成绩为85、86或88分的记录。SELECT * FROM SC WHERE GRADE IN (85,86,88) 阅读全文
posted @ 2012-10-12 08:29 氺〤魚Oo。 阅读(1448) 评论(0) 推荐(0) 编辑