Delphi - 随笔分类(第10页) - 小宇飞刀

摘要：有两种情况，一种是本机直接接入互联网，比如通过拨号或者ADSL；另一种是局域网通过一个网关或者路由接入互联网；尤其是第二种情况，如何在局域网内的一台机器上获得当前网关所取得的互联网IP地址呢？unit Functions;interfaceuses Windows... 阅读全文

posted @ 2009-04-27 19:53 小宇飞刀阅读(288) 评论(0) 推荐(0)

Delphi 小知识汇编

摘要：一些delphi开发的小技巧2008-04-22 21:16这是我从网上收集到的一些delphi开发的小技巧，现在与大家一起分享◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('/... 阅读全文

posted @ 2009-04-27 19:51 小宇飞刀阅读(141) 评论(0) 推荐(0)

Timeout MessageBox

摘要：Here's how to call a Message Box with a timeout, the message box closes itself after the timeout period was reached.The trick is to c... 阅读全文

posted @ 2009-04-27 19:48 小宇飞刀阅读(139) 评论(0) 推荐(0)

摘要：Delphi中的钩子函数--HOOK，即系统挂钩捕捉键盘操作实例在WINDOWS系统下，应用程序常常要截获其他程序的消息，并加以处理（例如跟踪键盘或鼠标的按键状况等）。现在，我们假设在前台进行正常操作，在后台利用HOOK程序为系统安装一个键盘挂钩，当有... 阅读全文

posted @ 2009-04-27 19:31 小宇飞刀阅读(270) 评论(0) 推荐(0)

摘要：本例子为在Form1的Panel中显示Form2窗体，请注意例子中的reintroduce关键字//Form2 子窗体uses unit2;procedure TForm1.FormCreate(Sender: TObject);begin form2 := TFo... 阅读全文

posted @ 2009-04-27 19:27 小宇飞刀阅读(224) 评论(0) 推荐(0)

摘要：Windows通知栏图标高级编程概述任务栏（Taskbar）是微软公司在Windows 95中引入的一种特殊的桌面工具条，它为用户快速访问计算机资源提供了极大的方便，而状态栏（以下称通知栏）无疑是任务栏上较为特殊的一个窗口。编程人员可以调用API函数Shell_No... 阅读全文

posted @ 2009-04-27 19:14 小宇飞刀阅读(318) 评论(0) 推荐(0)

摘要：Delphi 2007企业版安装指南------------------转自 http://blog.suolei.com/read.php/159.htm?page=1这些天相信大家都在忙着下载Delphi 2007吧，我也在第一时间从BT上下载了网上流出的专业版，... 阅读全文

posted @ 2009-04-27 19:09 小宇飞刀阅读(225) 评论(0) 推荐(0)

摘要：//调用下面两个函数就可以了procedure RunFuckCAD; //屏蔽Ctrl+Alt+Delprocedure StopFuckCAD; //取消屏蔽Ctrl+Alt+Del点击下载源文件主要代码为：unit Fuck_CAD_Unit;interf... 阅读全文

posted @ 2009-04-27 18:24 小宇飞刀阅读(227) 评论(0) 推荐(0)

摘要：//调用下面两个函数就可以了procedure RunFuckCAD; //屏蔽Ctrl+Alt+Delprocedure StopFuckCAD; //取消屏蔽Ctrl+Alt+Del点击下载源文件主要代码为：view plaincopy to clipbo... 阅读全文

posted @ 2009-04-26 16:58 小宇飞刀阅读(159) 评论(0) 推荐(0)

摘要：我在程序编写中，由于一机房管理系统的需要，必须屏蔽Ctrl+Alt+Del键。如果不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下代码：var temp:integer; begin ... 阅读全文

posted @ 2009-04-25 18:24 小宇飞刀阅读(382) 评论(0) 推荐(0)

摘要：{================================================================控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWOR... 阅读全文

posted @ 2009-04-25 18:22 小宇飞刀阅读(184) 评论(0) 推荐(0)

摘要：获取本月第一天和最后一天的最简单的写法// FirstDay,LastDay:TDateTime; .... FirstDay := StrToDate(FormatDateTime('yyyy-MM-01', Now)) LastDay := In... 阅读全文

posted @ 2009-04-25 18:21 小宇飞刀阅读(119) 评论(0) 推荐(0)

摘要：问题：如何捕获ClientDataSet.ApplyUpdates的错误，不用ReconcileError呢？var cdsEmp:TClientDataSet; //保存 procedure TfrmEmp.btnSave(Sender: TObject... 阅读全文

posted @ 2009-04-25 18:19 小宇飞刀阅读(140) 评论(0) 推荐(0)

小宇飞刀(xieyunc)