标题:
delphi的编程实例
[打印本页]
作者:
kkting
时间:
2005-6-1 10:46
标题:
delphi的编程实例
[这个贴子最后由kkting在 2005/06/01 10:56am 第 1 次编辑]
我写了几个delphi的小程序，原本想做成一系列教程，不过不知道有没有足够的时间（还有10几天就要毕业答辩了），就先发出来了，希望斑竹给置顶，我有时间就会继续补充的！
希望大家都可以学点东西。。。。。。。。。
这个是delphi实现的PING操作。
作者:
kkting
时间:
2005-6-1 10:54
标题:
delphi的编程实例
这个是 获取本地计算机的名称和IP 的实例
作者:
kkting
时间:
2005-6-1 11:04
标题:
delphi的编程实例
这个也是获取本地ip的，比上面的哪个更简单。。。。。。。。
作者:
kkting
时间:
2005-6-1 11:10
标题:
delphi的编程实例
用Delphi实现超级链接
在许多程序的“关于”对话框中，我们常可以看到“超级链接”式的标签，只须轻轻一点，就能立即启动电子邮件程序给作者写信,或者启动浏览器观看某主页，或者远程登录，或者自动链入新闻组……这些功能在今天——网络已经深入到生活中——来讲，是完全必要的！但是，这样的程序如何实现呢？如何在DELPHI中实现呢？利用控件还是其他的方法？如果你根本找不到实现这些功能的Delphi控件的话，又无法在帮助文件中找到相关主题，那怎么办呢？真是急死人了！别着急，慢慢来，有办法的！
其实，这样的程序设计起来是非常简单的，你别看“超级链接”神秘兮兮，其实用一条函数就能完成，那就是ShellAPI单元中的ShellExecute。不要误以为它只能执行外部的exe文件，其实它可管用了。它的参数为
hWnd:Integer;
Operation:PChar;:PChar;
Parameters:PChar;
Directory:PChar;
ShowCmd:Integer
依次表示父窗口的句柄（handle）、操作类型（缺省时为open）、文件名、启动参数、缺省目录、窗口显示方式。在制作超级链接时，第2、4、5项参数都不需填。窗口显示方式一般填SW_ SHOWNOACTIVATE或者SW_ SHOWNORMAL。其中最关键的就是文件名一项了。
当它以mailto：开头时，启动的是邮件程序；以“http：//”、“ftp：//”或“gopher：//”开头，启动网络浏览程序；以“news：”开头，启动新闻讨论程序；以“telnet：”开头，启动telnetexe。
举例来说，若要调用程序给某人发e－mail，可以这样写：ShellExecute(handle,nil,pchar(′mailto:someone@somewhere.com′),nil,nil,SW_SHOWNORMAL);
那么，既然发送电子邮件是这样的简单，其他的超级连接还会难吗？当然不会！试一试吧！
下面是 实例
作者:
x86
时间:
2005-6-1 12:21
标题:
delphi的编程实例
恩都写得不错,加油!!!!!
希望以后能见到你的教程...
作者:
飞鸟设计
时间:
2005-6-2 01:26
标题:
delphi的编程实例
好作品，支持原创！希望以后还会看到你的更多的作品。：）
作者:
kkting
时间:
2005-6-2 09:43
标题:
delphi的编程实例
[这个贴子最后由kkting在 2005/06/02 09:52am 第 2 次编辑]
前面几天都是写的一些关于网络的小程序，今天开始写些关于操作系统的东西吧
顺便提一下，偶还有几十天就要正式工作了，然后就要用c了，估计再不会用delphi了，我写些这个，也算是对我大学几年来最喜欢的delphi的一种总结吧，纪念一下吧，大家也可以学点东西。。。。。。
下面这个程序是 获取内存使用信息 的！
所有的代码都在WIN2K+DELPHI 7 测试通过
作者:
kkting
时间:
2005-6-3 09:27
标题:
delphi的编程实例
这个是一个简单计算机本的编写实例！
作者:
kkting
时间:
2005-6-3 09:31
标题:
delphi的编程实例
明小子有个关于制作这个的动画，原想传上来，可是太大了，自己去找着看看吧！
作者:
kkting
时间:
2005-6-3 09:53
标题:
delphi的编程实例
这个是 捕捉窗口的 实例
明小子那也有动画视频
作者:
kkting
时间:
2005-6-3 10:09
标题:
delphi的编程实例
一个简单的加减法计算器
欢迎光临 黑色海岸线论坛 (http://bbs.thysea.com/)
Powered by Discuz! 7.2
