[codes=delphi] //Delphi通过进程名获取进程PID函数
uses
TLhelp32; //引用

Function GetPID(_GetPID:String):String;
var
     h:thandle;
     f:boolean;
     lppe:tp

以下命令可以直接在Windows的运行窗口直接执行，在Delphi中你要这样使用：
winexec(Pchar('ABCD'),sw_Show);
其中"ABCD"代表以下命令之一：
"rundll32 shell32,Control_RunDLL" - 运行控制面板
"rundll32 shell32,OpenAs_RunDLL" - 打开"打开方式"窗口
&

//获得CPU类型
function GetCPUVendor : TVendor; assembler; register;
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI,EAX {@Result (TVendor)}
MOV EAX,0
DW $A20F {CPUID Command}
MOV EAX,EBX
XCHG EBX,ECX

TWebBrowser的常见属性和方法
GoBack：方法，后退到上一个页面。
GoForward：方法，前进到下一个页面。
GoHome：方法，调用默认的主页页面，该页面在IE的选项中设定。
GoSearch：方法，调用默认的搜索页面，该页面在IE的选项中设定。
Refresh：方法，刷新当前页面。
Stop：方法，停止调用或打开当前页面。

LocationName：属性(WideString)，当前位置

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Real;
begin
  i := StrToDate('2008-1-1') - StrToDate('2007-1-1');
  ShowMessage(FloatToStr(i));  //返回的结果是365天

&nbs

函数功能Now返回当前日期及时间Date返回当前日期Time返回当前时间DateTimeToStr按缺省格式将日期和时间值转换为字符串；特定格式转换可用 FormatDateTime函数DateTimeToString按缺省格式将日期和时间值拷贝到字符串缓冲区DateToStr将TDateTime值的日期部分转为字符串TimeToStr将TDateTime值的时间部分转为字符串FormatDateTime按特定格式将日期和时间值转换为字符串StrToDateTime将带有日期和时间信息的字

1. API之网络函数

WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetC

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,tlhelp32;

type
  TForm1 = class(TForm)
&