myamanda

摘要： Outlook 2000不仅是一个功能强大的电子邮件软件,而且还是一个自动化服务器(Automation servers)。第三方的软件开发人员根据需要可以对Outlook进行定制和扩充,同时开发者还可以通过编写Outlook自动化服务器的客户方程序来有效利用它的电子邮件功能。本文将介绍在Delphi程序中如何利用Outlook自动化服务器的强大的电子邮件功能,调用Outlook来发送email... 阅读全文

摘要： ---- 我们知道从Delphi 3 开始，它自带的控件中有基于Internet开发的控件。如果我们充分利用这些控件开发Internet程序则可以简化编程工作，提高效率。鉴于目前POP3客户端的软件的种类繁多，（如Outlook Express,Foxmail 以及Web 方式下的各免费邮局）,而服务器端（除Unix Email系统）很少公开原代码,下面我就向大家着重介绍一下利用 Delph... 阅读全文

摘要： ---- 在网络管理中，有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然，市面上有很多软件可以实现该功能，有些甚至可以进行远程控制，但在使用上 缺乏灵活性，如无法指定远程计算机屏幕区域的大小和位置，进而无法在一屏上同时监视多个屏幕。其实，可以用Delphi自行编制一个灵活的远程屏幕抓取工 具，简述如下。 ---- 一、软硬件要求。 ---- Windows95/98对等网，用来监视的... 阅读全文

摘要： 在进行网络设置时，我们常常碰到需要填写IP地址的情况，为此Windows引入了一个专门用来接受IP地址输入的控件（如图所示）。Windows IP地址编辑控件（IP Address edit control）是随着微软的Internet Explorer 4.0的推出而引入Windows操作系统的（Windows 98 和Windows 2000中都已经包含了此控件）。但是令人遗憾的是在In... 阅读全文

摘要： 例如，把 DNS Server的地址添加为192.0.0.1和192.1.1.0，可调用：SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;// 各地址之间用一个空格隔开1. SetTCPIPDNSAddresses 定义如下：procedure SetTCPIPDNSAddresses( sIPs : string );begin//// if u... 阅读全文

摘要： 本文将向大家介绍怎样编写自己的信箱监视程序，程序将直接调用WinSock函数来进行网络通信。除了具备WinSock 编程知识之外，还必须了解POP3协议。下面是对POP3的一个粗略的介绍，读者可以参看RFC1225更为详细地了解该协议。一、关于POP3协议　　POP3服务器程序通常在TCP端口110提供服务。当客户想要使用服务时，它便与服务器建立一个TCP连接。一旦连接建立，POP3服务器就向客... 阅读全文

摘要： 想要读取一个文件的属性，就要用FileGetAttr函数调用文件名，即将文件属性返回到一指定文件。例如，添加一个Tbutton和Tlabel组件到窗体并添加如下代码：var attr:Integer; s:string; begin attr:=FileGetAttr('c:\Autoexec.bat'); if(attr and faHidden)<>0 then s:='Hi... 阅读全文

摘要： 添加一个Tbutton和一个Tmemo组件到窗体并写如下代码到按钮的OnClick事件：with Memo1.Lines do begin Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061)))); Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091)))); Add('Ma... 阅读全文

摘要： usesWindows, SysUtils; ... // 这个函数返回的显示刷新率是以Hz为单位的 function GetDisplayFrequency: Integer; varDeviceMode: TDeviceMode; beginEnumDisplaySettings(nil, Cardinal(-1), DeviceMode);Result := DeviceMode.dm... 阅读全文

摘要： type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TForm1; i... 阅读全文