|
实现Net send命令 2003-05-28 |
implement net send?主要是要向局域网内的机器发送信息。function NetSend(dest, Source, Msg: string): Longint; overload; type TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar; buf: PWideChar; buflen: Car...[全部内容] |
|
SMTP安全认证的邮件发送程序 2003-05-28 |
c:ehlo hostnames:250-smtp.263.net 250-pipelining 250-size 10240000 250-etrn 250-auth login 250-8bitmime以上是与邮件服务器连接,即nmsmtp1->connect,以下是连接后的验证:c:auth logins:334VXNlcm5hbWU6(username:)c:b(你的用户名转换...[全部内容] |
|
Email 服务器的简单实现 2003-05-28 |
Email 服务器的简单实现 湖南艾邦信息技术有限公司 李岳梅 ---- 贵刊1999年7月26日《编程技巧》栏目刊登的《监视POP3信箱》一文介绍了直接调用WinSock函数来进行POP3网络通信从而监视有无新邮件的方法。但我们知道从Delphi 3 开始,它自带的控件中有基于Internet开发的控...[全部内容] |
|
把一个ICO转换为BMP 2003-05-28 |
(1)方法1var Icon : TIcon; Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico'); //Load an ICO from File Bit...[全部内容] |
|
bmp文件转成jpg文件 2003-05-28 |
可以如下,(其他格式也许也可,试一下)记得加入 use jpeg.var MyJpeg: TJpegImage; Image1: TImage;begin Image1:= TImage.Create(self); MyJpeg:= TJpegImage.Create; Image1.Picture.Bitmap.LoadFromFile('c:\windows\desktop\aa.BMP');&nb...[全部内容] |
|
壁纸随机更改 2003-05-28 |
{******************************************************************************* 作者:Kingron 时间:2001.1.11 功能:用于随机的更换壁纸,能适应不同的分辨率。 联系方法:Kingron@163.net。 附注:Source.RES的建立...[全部内容] |
|
从注册表里得到硬盘的转速 2003-04-07 |
size : 522uploaded_on : Mon Jul 12 00:00:00 1999modified_on : Wed Dec 8 14:02:51 1999title : Detect drive sp...[全部内容] |
|
从注册表里得到屏保密码 2003-04-07 |
size : 1803uploaded_on : Fri Aug 13 00:00:00 1999modified_on : Wed Dec 8 14:02:52 1999title : Screensaver pa...[全部内容] |
|
创建桌面链接 2003-04-07 |
size : 1409uploaded_on : Wed Oct 7 00:00:00 1998modified_on : Wed Dec 8 14:03:13 1999title : Desktop li...[全部内容] |
|
从注册表里得到硬盘的转速 2003-04-07 |
size : 522uploaded_on : Mon Jul 12 00:00:00 1999modified_on : Wed Dec 8 14:02:51 1999title : Detect drive sp...[全部内容] |