（本系列文章由柠檬的(lc_mtt)原创，转载请注明出处，谢谢～）

接上一节：(C#)Windows Shell 外壳编程系列8 - 同后缀名不同图标？

QueryInfo扩展
活动桌面引入一项新特性，当你在某些特定对象上旋停鼠标时，工具提示将显示它们的描述。我们可以使用 QueryInfo 扩展为Shell中的其它对象提供自定义的工具提示。如下图：


事实上，这个功能实现比前两个 Shell 扩展更简单，它仅仅是实现 IQueryInfo 接口：

IQueryInfo 接口定义
[ComImport(), ComVisible(true), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), GuidAttribute("00021500-0000-0000-c000-000000000046")]
public interface IQueryInfo
{
    [PreserveSig]
    uint GetInfoTip(uint dwFlags, out IntPtr pszInfoTip);

    [PreserveSig]
    uint GetInfoFlags(out uint dwFlags);
} 

IQueryInfo 接口只包含两个函数,其中 GetInfoFlags 目前还不被支持并且必须返回 0。

GetInfoTip() 让我们返回工具提示文本 字符串。其参数：

dwFlags 当前并不被使用。

pszInfoTip 是个Unicode 字符串指针变量的指针，我们要将其赋值为我们所分配的字符串缓冲区的指针。

还记得之前使用 IPersistFile 接口获取单个文件路径保存在 szFileName 变量中吗？现在也可以使用：

GetInfoTip
public uint GetInfoTip(uint dwFlags, out IntPtr pszInfoTip)
{
    StreamReader sr = new StreamReader(szFileName, Encoding.GetEncoding("gb2312"));
    string text = sr.ReadToEnd();
    sr.Close();

    if (text.Length > 256)
    {
        text = text.Substring(0, 256) + "";
    }

    string tip = "------------- 内容预览 -------------\r\n\r\n" + text;


    pszInfoTip = Marshal.StringToCoTaskMemUni(tip);

    return S_OK;
} 

代码：http://files.cnblogs.com/lemony/MyContextMenu.rar

这一章似乎过于简单。下一章将简述如何使用 IShellPropSheetExt 接口为文件/文件夹增加属性页，如下：

评论: 5　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

（本系列文章由柠檬的(lc_mtt)原创，转载请注明出处，谢谢～）

接上一节：(C#)Windows Shell 外壳编程系列7 - ContextMenu 注册文件右键菜单

关于注册

动态库必须注册才能使用。除了使用 regasm 来注册 DLL 以外，还应该在代码中增加 RegisterServer 和 UnregisterServer 方法，以指导 DLL 注册时，在 Windows 注册表中增加什么键。关于具体键以下做简单说明：

1) 注册 DLL 的 Shell Extensions。具体位置是 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved，增加以 GUID 为名称的键，值则是动态库说明。（此位置里面全是 Shell 扩展的动态库注册，许多相关软件就是从里面获取信息，例如 ShexView。

2) 关联文件。Shell 扩展一般是针对文件或者文件夹的，因此必须关联。许多人都熟知“HKEY_CLASSES_ROOT\*”的作用，就是用来关联所有文件。而文件夹则是“HKEY_CLASSES_ROOT\Folder”。然而如果具体到某种文件类型。可能会稍微复杂一点。我们可以从代码中看到一些启示：

RegTXT
private static void RegTXT()
{
    RegistryKey root;
    RegistryKey rk;

    root = Registry.ClassesRoot;
    rk = root.OpenSubKey(".txt");
    string txtclass = (string)rk.GetValue("");
    if (string.IsNullOrEmpty(txtclass))
    {
        txtclass = "TXT";
        rk.SetValue("", txtclass);

    }
    rk.Close();

    rk = root.CreateSubKey(txtclass + "\\shellex\\ContextMenuHandlers\\" + KEYNAME);
    rk.SetValue("", GUID);
    rk.Close();

    rk = root.CreateSubKey(txtclass + "\\shellex\\IconHandler");
    rk.SetValue("", GUID);
    rk.Close();

    rk = root.CreateSubKey(txtclass + "\\shellex\\{00021500-0000-0000-C000-000000000046}");
    rk.SetValue("", GUID);
    rk.Close();
}

对于关联 .TXT，首先应该找寻“HKEY_CLASSES_ROOT\.txt”，但事情远远没那么简单，因为相当多的文本编辑工具，都会把改键重定向，例如EMEditor会把改键的默认值改为“emeditor.txt”。被重定向后，我们为了不破坏原有关联，应该到新的地方去注册（如果没有，我们就修改重定向至 TXT)。

无论是 *、文件夹还是具体文件类型，都会有 ShellEx 的键，为 Shell 扩展专用。具体不同的扩展，应该注册不同的键。例如 ContextMenuHandlers、IconHandler、或者{00021500-0000-0000-C000-000000000046}（其实这就是QueryInfo）。注册的方法很简单，把默认值改为 GUID 即可。

相同文件类型不同图标？

如果是以前，我会对这句话十分吃惊。但现在这种现象比比皆是。除了我们的例子外，.NET 程序员最熟悉的莫过于 Sln 解决方案文件了。不同版本的 Sln 图标不同，上面有个小版本号提示。

不过后来我了解到，原来不同 Exe 显示不同的图标，也是这种原理，我晕。。。

扩展接口
图标扩展处理器实现两个接口 IPersistFile 和 IExtractIcon. 
记得 IShellExtInit 接口用于一次有多个选择文件时的处理，而 IPersistFile 则用于初始化只涉及一个选择文件时的处理。

IPersistFile 原型
[ComImport(), ComVisible(true), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), GuidAttribute("0000010b-0000-0000-C000-000000000046")]
public interface IPersistFile
{
    [PreserveSig]
    uint GetClassID(out Guid pClassID);

    [PreserveSig]
    uint IsDirty();

    [PreserveSig]
    uint Load([In, MarshalAs(UnmanagedType.LPWStr)] string pszFileName, [In] uint dwMode);

    [PreserveSig]
    uint Save([In, MarshalAs(UnmanagedType.LPWStr)] string pszFileName, [In] bool fRemember);

    [PreserveSig]
    uint SaveCompleted([In, MarshalAs(UnmanagedType.LPWStr)] string pszFileName);

    [PreserveSig]
    uint GetCurFile([MarshalAs(UnmanagedType.LPWStr)] out string ppszFileName);
}

对于这个接口，我们只需要用到 Load 方法

Load
public uint Load(string pszFileName, uint dwMode)
{
    szFileName = pszFileName;

    return S_OK;
}

szFileName 是全局变量，用来记住当前操作的文件路径。

IExtractIcon 接口图标扩展处理器实现 IExtractIcon 接口，当浏览器需要为文件显示一个图标时将调用该接口。
因为我们的扩展用于文本文件，浏览器将在每次显示文本文件对象时调用 IExtractIcon 的方法。

IExtractIcon 有两个方法，它们的作用是告诉浏览器所使用的图标。记住：浏览器为显示的每一个文件都将创建一个COM 对象。
这就是说每一个文件都将有一个COM C++类对象对应. 因此在你的扩展中应该避免费时的操作以防止浏览界面反应迟滞。

IExtractIcon 原型
[ComVisible(true), ComImport, Guid("000214eb-0000-0000-c000-000000000046"), InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IExtractIcon
{
    [PreserveSig]
    int GetIconLocation([In] ExtractIconOptions uFlags, 
        [In] IntPtr szIconFile, 
        [In] uint cchMax,
        [Out] out int piIndex, 
        [Out] out ExtractIconFlags pwFlags);

    [PreserveSig]
    int Extract([In, MarshalAs(UnmanagedType.LPWStr)] string pszFile, 
        uint nIconIndex, 
        [Out, MarshalAs(UnmanagedType.CustomMarshaler, MarshalTypeRef=typeof(IconMarshaler))] out Icon phiconLarge, 
        [Out, MarshalAs(UnmanagedType.CustomMarshaler, MarshalTypeRef=typeof(IconMarshaler))] out Icon phiconSmall, 
        [In] uint nIconSize);
} 

和许多教程上面说的一样，有两种方法可将图标返回给浏览器。但我在尝试第一种方式的时候，未能成功，十分奇怪。不过我还是应该把这种方法简单说明。

第一种是 GetIconLocation() 可以返回文件名/索引对以指出包含图标的文件,和图标在该文件中索引位置（以0为基）。Extract() 只需返回 S_FALSE 给浏览器让它自己来解析图标。该方法的特别之处在于浏览器在 GetIconLocation() 返回之后不一定会调用 Extract().。浏览器会保持一个图标缓存以存储最近使用的图标。
如果 GetIconLocation() 返回最近已使用的文件名/索引对，而且图标仍然在缓存中，浏览器就可以直接使用缓存中的图标而不会去调用Extract()。

第二种方法是从GetIconLocation() 中返回不要查看缓冲的标志，这样会使浏览器去调用Extract()，Extract() 则负责加载图标资源并将其句柄返回给浏览器。

这里具体介绍第二种方法。在这方法中，GetIconLocation() 作用仅仅是设置一些标志位，以及获取文件大小。

GetIconLocation
int IExtractIcon.GetIconLocation(ExtractIconOptions uFlags, IntPtr szIconFile, uint cchMax, out int piIndex, out ExtractIconFlags pwFlags)
{
    piIndex = -1;

    try
    {
        FileInfo f = new FileInfo(szFileName);
        lngFileSize = f.Length;
        pwFlags = ExtractIconFlags.DontCache | ExtractIconFlags.NotFilename;

        return S_OK;
    }
    catch { }

    pwFlags = ExtractIconFlags.None;
    return S_FALSE;
}

其参数为: uFlags 改变扩展行为的标志。
ExtractIconFlags.DONTCACHE 告诉浏览器不要检查图标缓冲而去使用最近的 szIconFile/piIndex 对。其结果是IExtractIcon::Extract() 将被调用.。
ExtractIconFlags.NOTFILENAME 根据 MSDN，该标志告诉浏览器当GetIconLocation()返回时忽略 szIconFile/piIndex 的内容。
szIconFile 是由shell 提供的一个缓冲要求我们填入包含所使用的图标的文件名.
cchMax 是该缓冲区的大小。
piIndex int 的指针，要求我们添入图标在文件中的索引。
pwFlags UINT 的指针，要求我们返回影响浏览器行为的标志。

使用第二种方法，我们并不需要填写 piIndex 和 szIconFile，而 IExtractIcon.Extract() 总被调用,并负责加载图标并返回两个图标句柄 HICON 给浏览器 – 一个是大图标, 一个是小图标。该方法的好处是你不必考虑你的图标资源在文件中的顺序位置。其缺陷在于它忽略了浏览器的图标缓冲,这会使显示速度减慢，特别是在有浏览有无数个文件的目录时。

IExtractIcon.Extract
int IExtractIcon.Extract(string pszFile, uint nIconIndex, out Icon phiconLarge, out Icon phiconSmall, uint nIconSize)
{
    phiconLarge = null;
    phiconSmall = null;

    try
    {
        if (lngFileSize > 16 * 1024)
        {
            phiconLarge = Resource1._2;
            phiconSmall = new Icon(Resource1._2, new Size(16, 16));
        }
        else if (lngFileSize > 0)
        {
            phiconLarge = Resource1._1;
            phiconSmall = new Icon(Resource1._1, new Size(16, 16));
        }
        else
        {
            phiconLarge = Resource1._0;
            phiconSmall = new Icon(Resource1._0, new Size(16, 16));
        }

        return S_OK;
    }
    catch { }

    return S_FALSE;
}

其参数为:

pszFile/nIconIndex 文件名和索引指定图标位置。其值与从 GetIconLocation() 返回的一样。
phiconSmall HICON 的指针，由 Extract() 返回指向大图标和小图标的句柄数组。
nIconSize 指定要求的图标大小。高字为小图标的长度 (长宽一致)，低字为大图标的长度。在一般情况下, 其值为0x00100020 (高字16, 低字 32) 表示小图标应该是 16x16，大图标为 32x32。在我们的扩展中, 我们并没有在 GetIconLocation() 里填写 pszFile 和 nIconIndex 所以在这忽略，我们只加载图标并返回给浏览器。

从代码可以看到，根据文件大小的不同，加载了相应的图标资源返回给浏览器。效果如下：

代码：http://files.cnblogs.com/lemony/MyContextMenu.rar

关于代码：代码里面还包括了提示扩展的代码，如果有兴趣，可自行阅读。

题外话：还有相当多的关于 Shell 扩展的内容无法一一说明，如果有机会，以后会尽量补上。或大家查阅网上的“Windows Shell扩展编程完全指南”（虽然是VC版的，但内容相当丰富）

评论: 16　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

（本系列文章由柠檬的(lc_mtt)原创，转载请注明出处，谢谢～）

接上一节：(C#)Windows Shell 外壳编程系列6 - 执行

从本节起，我所要讲述的是对 Windows 系统的“Shell 扩展”。“Shell 扩展”从字面上分两个部分：Shell 与 Extension。Shell 指 Windows Explorer，而Extension 则指由你编写的当某一预先约定好的事件（如在以. doc 为后缀的文件图标上单击右键）发生时由 Explorer 调用执行的代码。因此一个“Shell 扩展”就是一个为 Explorer 添加功能的 COM 对象。 

“Shell 扩展”有很多种类型，每种类型都在各自不同的事件发生时被调用运行，但也有一些扩展的类型和调用情形是非常相似的。
 

类型	何时被调用	应该作些什么
Context menu 扩展处理器	用户右键单击文件或文件夹对象时， 或在一个文件夹窗口中的背景处单击右键时（要求shell版本为4.71+）	添加菜单项到上下文菜单中
Property sheet 扩展处理器	要显示一个文件对象的属性框时	添加定制属性页到属性表中
Drag and drop 扩展处理器	用户用右键拖放文件对象到文件夹窗口或桌面时	添加菜单项到上下文菜单中
Drop 扩展处理器	用户拖动Shell对象并将它放到一个文件对象上时	任何想要的操作
QueryInfo扩展处理器 (需要shell版本 4.71+)	用户将鼠标盘旋于文件或其他Shell对象的图标上时	返回一个浏览器用于显示在提示框中的字符串

现在你可能想知道“Shell 扩展”到底是什么样的，不过我还是乐意把我后面所实现的技术效果直接展示出来。以下三副图片分别代表了三种“Shell 扩展”：

（1）实现类似 WinRAR 的右键菜单

（2）根据文本大小，显示不同的 TXT 文件图标

（3）当鼠标移动到 TXT 文件图标上的时候，显示内容预览。

好，废话不多说了，赶紧进入今天要讲述的内容： ContextMenu 注册文件右键菜单。

对于 WinRAR 所实现的效果，其实叫做上下文菜单。例如我们把扩展关联到 .TXT 文件，当用户右键单击文本文件对象时扩展就会被调用，然后向系统菜单增加菜单项，并响应相应的命令。由此可见，基本上每种 Shell 扩展，都需要做一些几乎一样的事情。

IShellExtInit原型
[ComImport(), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), GuidAttribute("000214e8-0000-0000-c000-000000000046")]
public interface IShellExtInit
{
    [PreserveSig()]
    int Initialize(IntPtr pidlFolder, IntPtr lpdobj, uint hKeyProgID);
}

Explorer 使用该方法传递给我们各种各样的信息.
pidlFolder 是用户所选择操作的文件所在的文件夹的 PIDL 变量. (一个 PIDL [指向ID 列表的指针] 是一个数据结构，它唯一地标识了在Shell命名空间的任何对象, 一个Shell命名空间中的对象可以是也可以不是真实的文件系统中的对象。)
lpdobj 是一个 IDataObject 接口指针，通过它我们可以获取用户所选择操作的文件名。
hKeyProgID 是一个HKEY 注册表键变量，可以用它获取我们的DLL的注册数据。

因此我们可以在这个方法中，获取到被右击选择的一个或多个文件/文件夹名。

IShellExtInit.Initialize
protected ShellLib.IDataObject m_dataObject = null;
uint m_hDrop = 0;

int IShellExtInit.Initialize(IntPtr pidlFolder, IntPtr lpdobj, uint hKeyProgID)
{
    try
    {
        m_dataObject = null;
        if (lpdobj != (IntPtr)0)
        {
            m_dataObject = (ShellLib.IDataObject)Marshal.GetObjectForIUnknown(lpdobj);
            FORMATETC fmt = new FORMATETC();
            fmt.cfFormat = CLIPFORMAT.CF_HDROP;
            fmt.ptd = 0;
            fmt.dwAspect = DVASPECT.DVASPECT_CONTENT;
            fmt.lindex = -1;
            fmt.tymed = TYMED.TYMED_HGLOBAL;
            STGMEDIUM medium = new STGMEDIUM();
            m_dataObject.GetData(ref fmt, ref medium);
            m_hDrop = medium.hGlobal;
        }
    }
    catch (Exception)
    {
    }
    return S_OK;
}

IDataObject 是一个接口，包含了一些获取文件名的方法，后面可以用到。

与上下文菜单交互的接口

一旦 Explorer 初始化了扩展,它就会接着调用 IContextMenu 的方法让我们添加菜单项, 提供状态栏上的提示, 并响应执行用户的选择。IContextMenu 接口定义了以下几个方法：

IContextMenu原型
[ComImport(), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), GuidAttribute("000214e4-0000-0000-c000-000000000046")]
public interface IContextMenu
{
    [PreserveSig()]
    int QueryContextMenu(HMenu hmenu, uint iMenu, uint idCmdFirst, uint idCmdLast, CMF uFlags);
    [PreserveSig()]
    void InvokeCommand(IntPtr pici);
    [PreserveSig()]
    void GetCommandString(uint idcmd, GCS uflags, uint reserved, IntPtr commandstring, int cchMax);
}

第一个是 QueryContextMenu(), 它让我们可以修改上下文菜单。其参数：

hmenu 上下文菜单句柄。
uMenuIndex 是我们应该添加菜单项的起始位置。
uidFirstCmd 和 uidLastCmd 是我们可以使用的菜单命令ID值的范围。
uFlags 标识了Explorer 调用 QueryContextMenu() 的原因。

我们调用该方法，为上下文菜单增加几个菜单项：

IContextMenu.QueryContextMenu
int IContextMenu.QueryContextMenu(HMenu hMenu, uint iMenu, uint idCmdFirst, uint idCmdLast, CMF uFlags)
{
    int id = 0;
    if ((uFlags & (CMF.CMF_VERBSONLY | CMF.CMF_DEFAULTONLY | CMF.CMF_NOVERBS)) == 0 ||
        (uFlags & CMF.CMF_EXPLORE) != 0)
    {
        //创建子菜单
        HMenu submenu = ShellLib.Helpers.CreatePopupMenu();
        Helpers.AppendMenu(submenu, MFMENU.MF_STRING, new IntPtr(idCmdFirst + id++), "复制路径(&C)");
        Helpers.AppendMenu(submenu, MFMENU.MF_STRING, new IntPtr(idCmdFirst + id++), "复制文本内容(&T)");
        Helpers.AppendMenu(submenu, MFMENU.MF_STRING, new IntPtr(idCmdFirst + id++), "柠檬的博客(&L)");

        //将子菜单插入到上下文菜单中
        Helpers.InsertMenu(hMenu, 1, MFMENU.MF_BYPOSITION | MFMENU.MF_POPUP, submenu.handle, "MyContextMenu(&Y)");

        //为菜单增加图标
        Bitmap bpCopy = Resource1.copy;
        Helpers.SetMenuItemBitmaps(submenu, 0, MFMENU.MF_BYPOSITION, bpCopy.GetHbitmap(), bpCopy.GetHbitmap());
        Helpers.SetMenuItemBitmaps(submenu, 1, MFMENU.MF_BYPOSITION, bpCopy.GetHbitmap(), bpCopy.GetHbitmap());
        Bitmap bpHome = Resource1.home;
        Helpers.SetMenuItemBitmaps(submenu, 2, MFMENU.MF_BYPOSITION, bpHome.GetHbitmap(), bpHome.GetHbitmap());
    }
    return id;
}

在状态栏上显示提示帮助

下一个要被调用的IContextMenu 方法是 GetCommandString().。如果用户是在浏览器窗口中右击文本文件，或选中一个文本文件后单击文件菜单时,状态栏会显示提示帮助。我们的 GetCommandString() 函数将返回一个帮助字符串供浏览器显示。

IContextMenu.GetCommandString
void IContextMenu.GetCommandString(uint idcmd, GCS uflags, uint reserved, IntPtr commandstring, int cchMax)
{
    string tip = "";

    switch (uflags)
    {
        case GCS.VERB:
            break;
        case GCS.HELPTEXTW:
            switch (idcmd)
            {
                case 0:
                    tip = "把选中的文件/文件夹的全路径复制到剪切板";
                    break;
                case 1:
                    tip = "把选中的 TXT 文本内容复制到剪切板";
                    break;
                case 2:
                    tip = "访问柠檬的博客 http://lemony.cnblogs.com";
                    break;
                default:
                    break;
            }
            if (!string.IsNullOrEmpty(tip))
            {
                byte[] data = new byte[cchMax * 2];
                Encoding.Unicode.GetBytes(tip, 0, tip.Length, data, 0);
                Marshal.Copy(data, 0, commandstring, data.Length);
            }
            break;
    }
}

执行用户的选择

IContextMenu 接口的最后一个方法是 InvokeCommand()。当用户点击我们添加的菜单项时该方法将被调用。其参数：

CMINVOKECOMMANDINFO 结构带有大量的信息, 但我们只关心 lpVerb 和 hwnd 这两个成员。
lpVerb参数有两个作用 – 它或是可被激发的verb(动作)名, 或是被点击的菜单项的索引值。

hwnd 是用户激活我们的菜单扩展时所在的浏览器窗口的句柄。

我们可以根据被点击的菜单项索引，来执行相应的操作。

IContextMenu.InvokeCommand
void IContextMenu.InvokeCommand(IntPtr pici)
{
    INVOKECOMMANDINFO ici = (INVOKECOMMANDINFO)Marshal.PtrToStructure(pici, typeof(ShellLib.INVOKECOMMANDINFO));
    StringBuilder sb = new StringBuilder(1024);
    StringBuilder sbAll = new StringBuilder();
    uint nselected;

    switch (ici.verb)
    {
        case 0:
            //复制文件名
            nselected = Helpers.DragQueryFile(m_hDrop, 0xffffffff, null, 0);
            for (uint i = 0; i < nselected; i++)
            {
                ShellLib.Helpers.DragQueryFile(m_hDrop, i, sb, sb.Capacity + 1);
                sbAll.Append(sb.ToString() + "\n");
            }
            Clipboard.Clear();
            Clipboard.SetDataObject(sbAll.ToString(), true);
            break;
        case 1:
            //复制文件内容
            nselected = Helpers.DragQueryFile(m_hDrop, 0xffffffff, null, 0);
            for (uint i = 0; i < nselected; i++)
            {
                ShellLib.Helpers.DragQueryFile(m_hDrop, i, sb, sb.Capacity + 1);
                StreamReader sr = new StreamReader(sb.ToString(), Encoding.GetEncoding("gb2312"));
                sbAll.Append(sr.ReadToEnd());
                sr.Close();
            }
            Clipboard.Clear();
            Clipboard.SetDataObject(sbAll.ToString(), true);
            break;
        case 2:
            //调用浏览器，打开网页
            Process proc = new Process();
            proc.StartInfo.FileName = "IExplore.exe";
            proc.StartInfo.Arguments = "http://lemony.cnblogs.com";
            proc.Start();
            break;
        default:
            break;
    }
}

注册Shell扩展
现在我们已经实现了所有需要的COM接口. 可是我们怎样才能让浏览器使用我们的扩展呢？首先，我们要注册动态库。但仅仅这样是不够的，为了告诉浏览器使用我们的扩展, 我们需要在文本文件类型的注册表键下注册扩展。

(请原谅我未能抽出时间对注册扩展做详细的说明（如果以后有机会会补上），大家可以自行研究)

注册扩展
[System.Runtime.InteropServices.ComRegisterFunctionAttribute()]
static void RegisterServer(String str1)
{
    try
    {
        //注册 DLL
        RegistryKey root;
        RegistryKey rk;
        root = Registry.LocalMachine;
        rk = root.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Shell Extensions\\Approved", true);
        rk.SetValue(GUID, KEYNAME);
        rk.Close();
        root.Close();

        //注册文件
        RegTXT();
    }
    catch{
    }
}

[System.Runtime.InteropServices.ComUnregisterFunctionAttribute()]
static void UnregisterServer(String str1)
{
    try
    {
        //注销动态库
        RegistryKey root;
        RegistryKey rk;
        root = Registry.LocalMachine;
        rk = root.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Shell Extensions\\Approved", true);
        rk.DeleteValue(GUID);
        rk.Close();
        root.Close();

        //注销文件
        UnRegTXT();
    }
    catch
    {
    }
}

private static void RegTXT()
{
    RegistryKey root;
    RegistryKey rk;

    root = Registry.ClassesRoot;
    rk = root.OpenSubKey(".txt");
    string txtclass = (string)rk.GetValue("");
    if (string.IsNullOrEmpty(txtclass))
    {
        txtclass = "TXT";
        rk.SetValue("", txtclass);

    }
    rk.Close();

    rk = root.CreateSubKey(txtclass + "\\shellex\\ContextMenuHandlers\\" + KEYNAME);
    rk.SetValue("", GUID);
    rk.Close();

    rk = root.CreateSubKey(txtclass + "\\shellex\\IconHandler");
    rk.SetValue("", GUID);
    rk.Close();

    rk = root.CreateSubKey(txtclass + "\\shellex\\{00021500-0000-0000-C000-000000000046}");
    rk.SetValue("", GUID);
    rk.Close();
}

private static void UnRegTXT()
{
    RegistryKey root;
    RegistryKey rk;

    root = Registry.ClassesRoot;
    rk = root.OpenSubKey(".txt");
    rk.Close();
    string txtclass = (string)rk.GetValue("");
    if (!string.IsNullOrEmpty(txtclass))
    {
        root.DeleteSubKey(txtclass + "\\shellex\\ContextMenuHandlers\\" + KEYNAME);
        root.DeleteSubKey(txtclass + "\\shellex\\IconHandler");
        root.DeleteSubKey(txtclass + "\\shellex\\{00021500-0000-0000-C000-000000000046}");
    }
}

注册动态库

.NET 开发的动态库有些特别，需要在 .NET SDK 中注册

regasm MyContextMenu.dll /CodeBase
反注册则是：regasm /unregister MyContextMenu.dll /CodeBase

代码：http://files.cnblogs.com/lemony/MyContextMenu.rar

关于代码：代码里面还包括了图标扩展和提示扩展的代码，如果有兴趣，可自行阅读。

题外话：还有相当多的关于 Shell 扩展的内容无法一一说明，如果有机会，以后会尽量补上。或大家查阅网上的“Windows Shell扩展编程完全指南”（虽然是VC版的，但内容相当丰富）

评论: 8　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

 (好久没写过技术文章了，之前遭受了严重的打击，曾经沮丧不已；现已慢慢恢复过来^_^，因此不能荒废了自己的技术。)

没有不出错的软件

       从不出错的软件从某种程度上讲是不可能的！

    和普通人的观念相反，创造可信赖的，健壮的软件并不是一件不可能的事情。大部分的商业软件，在长时间可以无重大故障的工作，但它们并非没有任何的错误，只是拥有低出错率，你可以迅速理解出错原因然后快速搞定它，并且，它不会因为外部错误而毁坏数据。软件中有错误是可以原谅的，甚至是可以预料到的；不可原谅的是您无法解决一个复发的错误，仅仅是因为您没用足够的信息。

       另外，如果希望成功避免发生错误，就必须要求开发人员正确对待错误。

做好最坏的打算

    所有代码的书写，你应该认为，它是会发生错误的。如果太过于相信自己，往往会导致错误没有被处理，因此也就无法或者非常困难得去获得错误的详细信息。

不要相信外部数据

外部数据是不可相信的。不管这些数据是来自寄存器、数据库、硬盘、socket、文件或者是键盘，它们都必须被检查，只有这样你才可以去使用它们。

唯一可信赖的外部设施是：显示器、鼠标和键盘。

不要理所当然

       举个例子，你打开一个TXT文件并修改后，希望原地保存，因此往往理所当然地认为，能打开即能保存。然而，该文件可能是只读的，又或者所在驱动器只读，甚至磁盘空间不够。如果你理所当然，那程序也就理所当然地出错了。

合理使用.NET异常处理机制

       当你摆正观念以后，就可以使用.NET完善的异常处理机制，来抒写安全的代码。事实上，并非掌握了try{}catch{}语法后，就能抒写安全的代码。其中非常多需要注意的事项。什么时候try？怎么try？怎么catch，都是可以商酌的。我这里介绍的仅仅是比较好的方法。

不要抛出new Exception()

Exception是一个非常大的类，如果没有side-effect(副作用），很难去捕获。引用你自己的异常类，但是使它继承自AppliationException。通过这种方法，你可以设计一个专门的异常捕获程序去捕获框架抛出的异常，同时设计另一个异常捕获程序来处理自己抛出的异常。

每个线程要有单独的catch (Exception ex)语句

在你的应用程序中，普通的异常处理应该被集中解决。每个线程需要一个单独的try/catch模块，否则，你将会丢失异常导致非常难处理的问题的出现。当一个应用程序启动若干线程去做一些后台处理时，通常你需要创建一个用来存储处理结果的类。不要忘记添加用来存储可能发生的异常的区域，否则在主线程中你将无法与之通信。

要记录Exception的全部信息

在捕获错误以后，应该记录的是Exception.ToString()，而不仅是Exception.Message。Exception.ToString()将会给你一个堆栈跟踪内部的异常和信息。通常，这个信息是及其珍贵的，如果你仅记录Exception.Message，你将会仅仅获得一些没用的信息。

要有清理代码

不要忽略的一件事是try/finally 模块如何使你的代码变得更加可读与健壮，这是处理代码的巨大作用所在。

举个例子，假设你需要从一个临时文件中阅读一些临时信息，然后以字符串的形式返回它。不管发生什么，你都必须删除这一文件。这样的返回处理功能需要try/finally模块来完成。

try

{

    string fileContents;

    using (StreamReader sr = new StreamReader(FileName))

    {

        fileContents = sr.ReadToEnd();

    }

    File.Delete(FileName);

    return fileContents;

}

catch (Exception ex)

{

    //错误处理

}

finally

{

    File.Delete(FileName);

}

经常使用using

仅仅在一个对象上调用Dispose()函数是远远不够的。关键字using将会阻止资源泄漏即使在有异常出现的地方。从上面的例子我们也可以看到这个好处。

当再次抛出异常时不要清空堆栈追踪

堆栈追踪是一个异常携带的最有用的信息之一。经常，我们需要在catch模块中，放入一些异常处理代码（如，回滚一个事务）然后再抛出异常。但很多人会犯下以下的错误：

        try

        {

            // 一些代码

        }

        catch (Exception ex)

        {

            // 写日志

            throw ex;

    }

为什么这个是错误的呢？因为，当你检查堆栈跟踪时，异常将会运行到“throw ex”这一行，隐藏了真实的出错位置。你可以试一下。

        try

        {

            //…

        }

        catch (Exception ex)

        {

            //…

            throw;

    }

观察以上代码什么改变了呢？取代了这个将会抛出新异常同时清空堆栈追踪的“throw ex；”语句，我们使用了简单的“throw；”语句。如果你没有指定这个异常，throw 声明将会仅仅再次抛出catch声明捕获的异常。这将会保证你的堆栈追踪完整无缺，但是依然允许你在catch模块中放入代码。

全局错误捕获

   尽管你已经在极大部分的代码里面加入try{}catch{}错误捕获语句，但依然无法肯定你的代码不会有未捕获的错误。允许未捕获错误的发生，会直接让程序非法操作，并且无法获取该错误的详细信息。

   全局错误Application.ThreadException的捕获能帮你解决这个问题。首先，我们先建立一个用户错误处理类：

    /// <summary>

    /// 用户错误处理类

    /// </summary>

    public static class UserException

    {

        /// <summary>

        /// 全局未捕获错误处理函数

        /// </summary>

        public static void ThreadException(object sender,

           System.Threading.ThreadExceptionEventArgs e)

        {

            Exception ex = e.Exception;

       //写日志

            Application.Exit();

        }

        /// <summary>

        /// 全局错误处理函数

        /// </summary>

        public static void DoException(Exception ex)

        {

        //写日志

        }

}

然后在应用程序Program类中，添加事件委托：

//委托错误处理事件

Application.ThreadException += new

System.Threading.ThreadExceptionEventHandler(

UserException.ThreadException);

事实上，错误捕获以后，应用程序应该关闭，而不应该继续运行。但是添加全局错误捕获以后，可以记录下未知错误的详细信息，甚至做更多的事情，例如：错误发送。

应用程序域级别的错误捕获

       事实上，Application.ThreadException不是万能的，最重要的一点，它不能捕获线程级的错误。

       这里介绍另外一种错误捕获AppDomain. UnhandledException方法，它是基于应用程序域（一种边界，它由公共语言运行库围绕同一应用程序范围内创建的对象建立。应用程序域有助于将在一个应用程序中创建的对象与在其他应用程序中创建的对象隔离，以使运行时行为可以预知。在一个单独的进程中可以存在多个应用程序域。）级别的。

       然而必须告诉你的是，这个方法并不建议用于捕获线程级的错误。理由有很多，其中一个是，此方法捕获错误后，程序必须退出，因此无法实现某些中断线程而主进程继续允许的需求。

       同样我们需要建立一个应用程序错误处理类：

    /// <summary>

    /// 应用程序错误处理类

    /// </summary>

    public static class AppException

    {

        /// <summary>

        /// 整个应用程序域中未捕获错误处理函数

        /// </summary>

        public static void DomainUnhandledException(object sender, UnhandledExceptionEventArgs args)

        {

            Exception ex = (Exception)args.ExceptionObject;

            //应用程序必须关闭，只能提前写写日志了

            Application.Exit();

            Environment.Exit(0);

        }

}

然后在应用程序Program类中，添加事件委托：

//委托错误处理事件

AppDomain.CurrentDomain.UnhandledException += new

    UnhandledExceptionEventHandler(

AppException.DomainUnhandledException);

必须记住的是，捕获应用程序域的错误以后，程序必须用语句关闭，否则程序依然会发生恐怖非法操作。

线程级的错误捕获

       你会发现，开了多线程的程序，发生错误的几率会大大增加。但是有时候，并不能因为某个线程发生了错误，而必须终止进程。另外，线程中try…catch以后，如果和主进程交互，都是个困难的问题。

不管出于怎样的考虑，都建议把每个线程中捕获的错误，放到一个专门的类中去处理。如果需要与主进程交互，这个类还应该有委托函数，把处理交给主进程。

    /// <summary>

    /// 线程错误处理类

    /// </summary>

    public class WorkerThreadException

    {

        public WorkerThreadException()

        {

        }

        public WorkerThreadException(Exception ex)

        {

            new WorkerThreadExceptionHandlerDelegate(

                    WorkerThreadExceptionHandler).BeginInvoke(

                        ex, null, null);

        }

        /// <summary>

        /// 工作线程错误捕获委托

        /// </summary>

        public delegate void WorkerThreadExceptionHandlerDelegate(

Exception ex);

        /// <summary>

        /// 工作线程错误捕获处理函数

        /// </summary>

        public void WorkerThreadExceptionHandler(Exception ex)

        {

            AppException.UnhandledException(

this,

new System.Threading.ThreadExceptionEventArgs(ex));

        }

}

       可以看到，该类把捕获到的错误，引发到Application.ThreadException中，统一处理。当然，你可以做更多的事情。下面，我们创建一个线程：

    private void button_Click(object sender, EventArgs e)

    {

        //使用独立线程引发错误

        Thread thread = new Thread(new ThreadStart(TestError));

        thread.Start();

    }

    private void TestError()

    {

        try

        {

           //除以零

            int i = 0;

            i = 4 / i;

        }

        catch (Exception ex)

        {

            new WorkerThreadException(ex);

        }

}

       可以看到，线程中catch到错误后，创建了WorkerThreadException类，由该类统一处理，而不是在线程中抒写重复的代码。无论从代码、还是交互角度来看，都建议这样做。

最后

       此文并没有介绍调试技巧，然而预防胜于补漏，合理利用.NET的异常处理机制，就能很好的捕获到错误及其信息，减少调试的时间。

       最后想说明的是，发生错误并不可怕；可怕的是，错误重复发生，而你却对它一无所知。

评论: 3　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

一些使用技巧

1.禁止右键

看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand "editMode"）的时候有很多弊端，比如不能显示选中的文本等。另有些方法也就不用一一列举了。
这儿我想提到的是关于MSHTML.HTMLDocument
引用Microsoft HTML OBject Library
Rem ＃窗体代码＃
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
         M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
       Set M_Dom = Webbrowser1.Document
End Sub
Rem 好了，右键菜单没有了

=========================================================================

2、控件调用和获得收藏夹里面
基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.
如果你不用dir也可以用vb的dir控件.
Private Type SHITEMID
     cb As Long
     abID As Byte
End Type
Public Type ITEMIDLIST
     mkid As SHITEMID
End Type
Public Function SpecialFolder(ByRef CSIDL As Long) As String
     'locate the favorites folder
     Dim R As Long
     Dim sPath As String
     Dim IDL As ITEMIDLIST
     Const NOERROR = 0
     Const MAX_LENGTH = 260
     R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)
     If R = NOERROR Then
         sPath = Space$(MAX_LENGTH)
         R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
         If R Then
             SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)
         End If
     End If
End Function
==============================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
3、全屏

是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 0) 隐藏tray,就是下边那个包含开始那一行. 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 9) 恢复. 够详细了吧.
然后在form1.windowstate = 2 就可以了.
================================================================================
4、选择网页上的内容。
Private Sub Command1_Click()
'请先选中一些内容
Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
MsgBox Clipboard.GetText
End Sub
==========================================================================
5、用IE来下载文件
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
  
    Dim sDownload As String
  
    sDownload = StrConv(Text1.Text, vbUnicode)
    Call DoFileDownload(sDownload)
  
End Sub
Private Sub Form_Load()
Text1.Text = "http://www.chat.ru/~softdaily/fo-ag162.zip"
Form1.Caption = "Audiograbber 1.62 Full"
Text2.Text = "http://www6.50megs.com/audiograbber/demos/cr-ag161.zip"
End Sub

=======================================================================
6、我要动态加载和删除WebBrowser控件应该怎么做？
Private Sub Command1_Click()
    Form1.Controls.Add "shell.explorer.2", "NewWeb", Form1
     With Form1!NewWeb
         .Visible = True
         .Width = 10000
         .Height = 10000
         .Left = 0
         .Top = 0
         .Navigate2 "www.csdn.net"
     End With
End Sub
Private Sub Command2_Click()
      Controls.Remove Form1!newweb
End Sub
Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1
     With Form1!newweb(newweb.Count)
         .Visible = True
         .Width = 1000
         .Height = 1000
         .Left = newweb(newweb.Count - 1).Left + newweb(newweb.Count - 1).Width
         .Top = 0
         '.Navigate2 "www.csdn.net"
     End With
为什么他说我
Form1.Controls.Add "shell.explorer.2", newweb(newweb.Count), Form1
这一行错误13 类型不匹配？
ps：我在form中已经有了一个newweb(0)控件

先为一个WebBrowser
Dim i As Integer
Private Sub AddWeb_Click()
     For i = 1 To 10
         Load NewWeb(i)
         NewWeb(i).Top = i * 100
         NewWeb(i).Left = i * 100
         NewWeb(i).Visible = True
     Next i
End Sub
Private Sub DelWeb_Click()
     For i = 1 To 10
         Unload NewWeb(i)
     Next i
End Sub
=======================================================

7、一个把页面保存为MHT(即MHTML)文件

将 pcwak(书剑狂生[MS MVP]) 大侠提供的资料贴出来，以供大家参考：
我终于找到一个把页面保存为MHT(即MHTML)文件的方法了!
首先，在工程中必须要引用一个库：
Library CDO
D:\WINNT\System32\cdosys.dll
Microsoft CDO for Windows 2000 Library
其次，需要Stream对应的接口的支持，如果你一时找不到就使用支持这个的较新的ADO就行了，如
Library ADODB
D:\Program Files\Common Files\system\ado\msado15.dll
Microsoft ActiveX Data Objects 2.5 Library
代码如下，十分简单(同时由于流的特点，显示在实际应用中没必要象本例中那样把文件保存到磁盘上就可直接转换为字符串或字节数组什么的处理的。
另，对于Microsoft CDO for Windows 2000 Library这个库，在WIN98中要怎么使用还没试过，感兴趣的朋友可以试试并跟帖，以丰富完善其内容：)
Private Sub Command1_Click()
' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim objStream As ADODB.Stream
With iMsg
.CreateMHTMLBody "http://www.163.com/";, , _
"domain\username", _
"password"
Set objStream = .GetStream
Call objStream.SaveToFile("f:\test.mht", adSaveCreateOverWrite)
End With
End Sub
2、

'首先加入对ADODB和CDO（Microsoft CDO for Windows 2000 Library，对应文件名为CDOSYS.dll）的引用
Private Sub Command1_Click()
     Dim message As New CDO.message
     Dim Outstream As ADODB.Stream
     On Error GoTo myerr1
     Call message.CreateMHTMLBody("http://www.csdn.net", CDO.CdoMHTMLFlags.cdoSuppressNone, "", "")
     Set Outstream = message.GetStream
     Call Outstream.SaveToFile("c:\test.mht", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
     MsgBox "完成"
   
     Exit Sub
myerr1:
     Set message = Nothing
     Set Outstream = Nothing
End Sub
=======================================================

8、在WebBrowser控件调用收藏夹和在收藏夹里添加收藏
Option Explicit
Private Sub Command1_Click()
     Dim ObjSUH As New ShellUIHelper
     ObjSUH.AddFavorite "http://www.csdn.net", "CSDN"
     Set ObjSUH = Nothing
End Sub
=========================================================

9、如何使网页不出现滚动条：
Private Sub mnuScroll1_Click()
'注意：必须在网页完全显示之后才可以运行
     WebBrowser1.Document.body.Scroll = "no" '不显示滚动条的办法
End Sub
Private Sub mnuScroll2_Click()
'注意：必须在网页完全显示之后才可以运行
     WebBrowser1.Document.body.Scroll = "Auto" '显示滚动条的办法
End Sub
==============================================================
10、如何获得网页中被选中部分的HTML：
Private Sub Command1_Click()
     Dim objSelection
     Dim objTxtRange
   
     Set objSelection = WebBrowser1.Document.selection
     If Not (objSelection Is Nothing) Then
         Set objTxtRange = objSelection.createRange
         If Not (objTxtRange Is Nothing) Then
             Debug.Print objTxtRange.htmlText
       
             Set objTxtRange = Nothing
         End If
         Set objSelection = Nothing
     End If
End Sub
Private Sub Form_Load()
     WebBrowser1.Navigate "http://www.applevb.com"
End Sub

评论: 2　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

评论: 0　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

评论: 12　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

评论: 1　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

评论: 0　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库

    最早的硬盘可算是1956年9月，IBM的一个工程小组向世界展示了第一台磁盘存储系统IBM 350 RAMAC（Random Access Method of Accounting and Control），它的磁头可以直接移动到盘片上的任何一块存储区域，从而成功地实现了随机存储，这套系统的总容量只有5MB，共使用了50个直径为24英寸的磁盘，这些盘片表面涂有一层磁性物质，它们被叠起来固定在一起，绕着同一个轴旋转。此款RAMAC在那时主要用于飞机预约、自动银行、医学诊断及太空领域内。普通用户是不可能用到得，当然当时的电脑也不多，还没有所谓的PC（Personal Computer）。

IBM 350 RAMAC

    由于RAMAC庞大的体积及低效的性能，使用或者制造都非常不便，因此在1968年IBM公司又提出了“温彻斯特/Winchester”技术，探讨对硬盘技术做重大改造的可能性。“温彻斯特”技术的精隋是：“密封、固定并高速旋转的镀磁盘片，磁头沿盘片径向移动，磁头悬浮在高速转动的盘片上方，而不与盘片直接接触”，这也是现代绝大多数硬盘的原型。在此项温氏技术提出后的5年，即1973年，IBM公司制造出了第一台采用“温彻期特”技术的硬盘，从此硬盘技术的发展有了正确的结构基础，现在大家所用的硬盘大多是此技术的延伸。

    我们可以看到图中左边的那个机轨，中间的一个圆柱体容器，就是我们现在硬盘盘片的雏形。

    他的磁头可以直接移动到盘片上的任何一块存储区域，从而成功地实现了随机存储，大家别看他个子比较大，以为容量就吓人，其实他不过才有5M的空间。

    一共使用了50个直径为24英寸的磁盘，这些盘片表面涂有一层磁性物质，并且堆叠在一起，通过一个传动轴承是他可以顺利的工作（真想看看那个时候的电机有多大。）盘片由一台电动机带动，只有一个磁头，磁头上下前后运动寻找要读写的磁道。盘片上每平方英寸的数据密度只有2000bit，数据处理能力为1.1KB/s。

   此款RAMAC在那时主要用于飞机预约、自动银行、医学诊断及太空领域内，推出之后便让人大为震惊，不光是因为他的技术理念，因为有了他才有了后来的温彻斯特，还有他的价格，当时推出的售价是35，000美元，平均每M要有7000美元的成本，想想现在我们真实太幸福了，每M连7分的成本都用不了。就是由此开始硬盘的发展之路。下面就让我们一起来回顾一下“太古”时期的硬盘吧。

    从硬盘电路板密集的电子元件（这是由于芯片的集成度不高而导致的）我们能看出，当时的制造工艺和现在相比简直就是一个地上一个天上。

    Tandon，一个在中国鲜为人知的硬盘品牌，由于它很早就被西部数据收购，因此其生产的硬盘对于80出生读者们，恐怕是难得一见了。

TM502 比砖头还要厚

    这款硬盘的型号为TM502，容量为10MB，盘片尺寸为5.25英寸。

    Seagate的中文名为希捷，是大家熟悉的硬盘生产商之一，同时也是推动硬盘技术更新的生产商之一。

    ST-412是希捷推出的第二块5.25英寸硬盘，容量为10MB。第一款是1980年6月推出的ST-506，容量只有5MB。而ST-412是1982年推出的。

    日本品牌的硬盘也许许多朋友都别熟悉，从名气上来说，日本硬盘在中国并不大，这也是日本硬盘近年来很少推出针对桌面市场的硬盘所导致的。事实上，日本硬盘也已经有很久的历史了。

 NEC D5124正面及反面

 NEC D5124侧面

    NEC退出桌面硬盘市场争夺已经很多年了，这款D5124也是上世纪80年代初的产品了，容量为10M，盘片尺寸为5.25英寸。

    Miniscribe成立于1980年，那一年5.25寸硬盘问世，Miniscribe由于掌握了5.25英寸硬盘的关键技术，因此在80年代有着不错的成绩。然而由于其对3.5寸硬盘技术的抵制，使其失去了以往的硬盘市场，因此在1990年4月宣布破产，并于1991年被当时的迈拓所收购。

 Miniscribe MS3212 正面及反面

 Miniscribe MS3212 容量为10 MB，盘片尺寸为10MB

 Microscience HH1050

    虽然Microscience的底细不明，但他这款硬盘的出生时间却有据可查。从该硬盘的图片中我们能发现该硬盘的出场日期为1990年。该硬盘的 型号为HH1050，容量为44MB，盘片尺寸为5.25英寸。

    在80年代末的微机中，下面这块Seagate ST225 20MB的5英寸硬盘使用率较高，电脑骨灰级的人物对这块硬盘应该似曾相识。

 Seagate ST225

    该硬盘转速为3600转/分，接口类型为ST412，单碟容量10MB，盘片数2张，4个磁头，记录密度（BPI）9827，磁道密度（TPI）588，道与道时间（ms）23，内部传输速率（Mb/s）5，盘片尺寸5.25英寸，生产日期为1988年。

 希捷ST2383E 338MB容量

    该硬盘转速为3600转/分，拥有了32kb缓存，容量为338MB。这样的容量在DOS时代可称得上“海量”了。

 Quantum Bigfoot 大脚硬盘（2GB）

    而这款容量为2G的Quantum Bigfoot 大脚硬盘，应该算得上是昆腾硬盘中的经典产品，同时也是昆腾征战市场主力军。该硬盘的拥有3600转/分的转速，5.25英寸的盘片。

 Tandon TM262， 容量20MB

    从下面这款NEC容量为42MB的D3142硬盘来看，NEC直到90年代初还未退出桌面硬盘市场，因为采用3.25盘片的硬盘到80年代末才出现的，而且容量也不高。

 NEC D3142 容量：42 MB

    在昆腾如日中天的上世纪90年代。Maxtor却在艰难度日，但是他却很好的把握住了3.25英寸硬盘的契机，终于在上世纪90年代末期将昆腾远远抛在了自己身后，造就了迈拓现在的辉煌。下面这款硬盘就是Maxtor 40MB容量的 8051A。

 Maxtor 8051A反面

 Maxtor 8051A电路板

    从图中的电路板中我们明显感到，3.25英寸硬盘电路板中的芯片集成度已经有了长足的进步。这款迈拓8051A事实上是被其收购的Miniscribe生产的，推算它的生产日期应该在1991年之后了。该硬盘具备40MB容量，32KB缓存，以及28ms平均存取时间。

    KALOK，又一个小编以前未曾听过的硬盘品牌，而现在市场上也早已没有KALOL这个品牌了，因此也难觅其相关资料。下面这KALOK硬盘型号为KL320，容量20MB。

 KALOK KL320 容量：20MB

    不过从仅有一点点资料中我们还是知道了它的容量为20MB，应该是较早一批3.25英寸硬盘了，产于1990年。

 KYOCERA KC-20A 容量：20MB

    由于暂时没有相关资料，因此得不到证实，但小编猜想他们之间肯定有不小的渊源。KYOCERA KC-20A 具备20MB容量，相信也是最早一批3.25寸硬盘之一。

    同时代的Seagate在3.25英寸硬盘领域，已经取得了非常好的成绩，只可惜其把重点只放在服务器等高端市场，在个人消费市场作为不大。下面这款硬盘就是Seagate 84MB容量的ST352A硬盘，在其发布之初，仍然算得上是“海量”硬盘。

 Seagate 3.25英寸硬盘：ST352A

    CONNER恐怕也是一个另大多数读者陌生的硬盘品牌，由于其很早就遭到了被收购的命运，因此其在国内并没有什么影响。

 CONNER  CP3184反面及电路板

CONNER  CP3184侧面

    从上图中我们已经能够感受到，采用3.25英寸的盘片之后，硬盘的厚度已经明显减小了。

 富士通M2614ET电路板及反面

 富士通M2614ET侧面

    而这款182MB的富士通M2614E0T在那个时候可是富士通硬盘在桌面市场的主力军。其拥有较小的体积和让人满意的速度。

 IBM 0663-H12 容量：1004 MB，采用SCIS接口

    唯一能够对其构成威胁的就是IBM自己。上图这个是IBM在硬盘存储容量刚刚突破1GB时的0663-H12 SCSI硬盘，主要应用在高端服务器上。

 NEC制造的14寸硬盘DKU800，3620转，2.7GB的容量

    象个发动机一样，和我们现在用的硬盘简直没法比，而且形状也相差太远，第一眼看它，肯定不会以为是硬盘了，更像一个鼓风机，而容量却只有2.7GB。

富士通制造的10.5寸硬盘，3600转，446MB的容量，81年的产品

NEC制造的8寸硬盘，3000转，400MB的容量，82年出品

 富士通的8寸硬盘，3600转，2.8GB的容量，92年出品

 日立的6.5寸硬盘，4200转，2.92GB的容量，93年出品

评论: 1　查看评论　发表评论

最新新闻：
· 奇虎新注资两家知名软件公司 投资项目达10笔(2010-02-10 15:14)
· 网友对Google的9大期待(2010-02-10 15:07)
· 分析称Google Buzz有十大特点：将改变搜索(2010-02-10 15:06)
· 2010年度技术奖获得者评选揭晓(2010-02-10 14:45)
· Google宣布三个产品来帮助广告商的收入最大(2010-02-10 14:42)

编辑推荐：.NET Reflector即将商业化

网站导航：博客园首页  个人主页  新闻  闪存  小组  博问  社区  知识库