上一页 1 ··· 30 31 32 33 34 35 36 37 38 ··· 60 下一页
2009年4月30日
如何实现用Delphi访问Outlook Express的收发邮件箱中的邮件？
摘要： 如何实现用delphi访问outlook express的收发邮件箱中的邮件？ unit MapiControl; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type { Introducing a new Type of Event to get the Errorcode } ... 阅读全文
posted @ 2009-04-30 19:00 小宇飞刀 阅读(261) 评论(0) 推荐(0) 编辑
如何实现用Delphi访问Outlook Express的收发邮件箱中的邮件？
摘要： 如何实现用delphi访问outlook express的收发邮件箱中的邮件？ unit MapiControl; interface uses Windows, Messages, SysUti... 阅读全文
posted @ 2009-04-30 19:00 小宇飞刀 阅读(150) 评论(0) 推荐(0) 编辑
2009年4月29日
远程开机演示程序
摘要： 这是一个局域网远程开机的演示程序!演示源程序下载： 点击这里下载文件: RemotePowerON.rar 阅读全文
posted @ 2009-04-29 22:04 小宇飞刀 阅读(151) 评论(0) 推荐(0) 编辑
通过IP或机器名获取局域网MAC地址
摘要： 通过IP获取局域网MAC地址uses winsock;function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : Dword; StdCall;External 'Iphlpapi.dll' Name 'SendARP';function GetMACByIP(const Ip:string):string;varMyIp:ulong;MyMac:array[0..5] of byte;MyMacLength:ulong;ErrCode:integer;b 阅读全文
posted @ 2009-04-29 22:02 小宇飞刀 阅读(216) 评论(0) 推荐(0) 编辑
通过IP或机器名获取局域网MAC地址
摘要： 通过IP获取局域网MAC地址uses winsock;function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : Dword; StdCall; Exte... 阅读全文
posted @ 2009-04-29 22:02 小宇飞刀 阅读(221) 评论(0) 推荐(0) 编辑
获取本机MAC地址
摘要： 获取本机MAC地址方法一：function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID; begin Result := ''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <>VER_PLATFORM_WIN32_NT then @Func := GetProcAddr 阅读全文
posted @ 2009-04-29 22:01 小宇飞刀 阅读(153) 评论(0) 推荐(0) 编辑
获取本机MAC地址
摘要： 获取本机MAC地址方法一：function MacAddress: string; var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;... 阅读全文
posted @ 2009-04-29 22:01 小宇飞刀 阅读(144) 评论(0) 推荐(0) 编辑
我疯了！
摘要： 今天，2008-03-27，我疯了，因为，自2008-2-14以后的BLOG日志都没有了！ 我真的疯了，这些日志是我这些天以来用心血写的！ 我更疯了，这些日志竟是让我自已给弄没的！ 我肯定疯了，否则的话，我怎么会吃饱了没事干自已把自已的BLOG数据库给清空呢？ …… 看来，我疯了这件事是毫无疑问的了，因为，如果自已当时不是疯了的话那现在的自已肯定更疯了而且会一直疯下去，所以，为了不至于让自已一直疯下去只好让自已疯一时了！ 阅读全文
posted @ 2009-04-29 22:00 小宇飞刀 阅读(95) 评论(0) 推荐(0) 编辑
远程开机再配合远程控制
摘要： 远程开机再配合远程控制procedure TForm1.Button2Click(Sender: TObject);varvBuf:array[0..101] of char;i,j:integer;begin//包的格式很简单，在以太网包的任何位置上，//以6个FF为先导，后面跟相应MAC地址重复16次即可：for i:=0 to 5 do vBuf[i]:=char($FF);for i:=0 to 15 dobeginj:=6+i*6;vBuf[j]:=Char($00);vBuf[j+1]:=Char($13);vBuf[j+2]:=Char($D4);vBuf[j+3]:=Char( 阅读全文
posted @ 2009-04-29 21:59 小宇飞刀 阅读(132) 评论(0) 推荐(0) 编辑
远程开机再配合远程控制
摘要： 远程开机再配合远程控制procedure TForm1.Button2Click(Sender: TObject);var vBuf:array[0..101] of char; i,j:integer;begin //包的格式很简单，在以太网包的任何位置上，... 阅读全文
posted @ 2009-04-29 21:59 小宇飞刀 阅读(229) 评论(0) 推荐(0) 编辑
上一页 1 ··· 30 31 32 33 34 35 36 37 38 ··· 60 下一页