我想研究资源管理器EXPLORER(即当setlink(‘explorer','参数??')的DDE编程,但在网上一直找不到。找到的都时有关IE浏览器IEXPLORE的DDE资料。大家帮帮忙忙!!

解决方案 »

  1.   

    楼主说的函数是不是这个?
    ---------------------------------
    uses ShlObj, ActiveX, ComObj, Registry; ...........................
    Procedure SetLink(FolderNo: Integer; ACmdFile, Parameter, LinkName: string);
    const
     Folder: array[0..2] of string = ("Desktop", "Start Menu", "Programs");
    var
      MyObject : Iunknown;
     MySLink : IShellLink;
     MyPFile : IPersistFile;
     FileName : string;
     Directory : string;
     WFileName : WideString;
     MyReg : TRegIniFile;
    begin
      MyObject := CreateComObject(CLSID_ShellLink);
     MySLink := MyObject as IShellLink;
     MyPFile := MyObject as IPersistFile;
     FileName := ACmdFile;
     with MySLink do
      begin
        SetArguments(Pchar(Parameter));
      SetPath(Pchar(FileName));
      SetWorkingDirectory(Pchar(ExtractFilePath(FileName)));
     end;
      MyReg := TRegIniFile.Create(
     "Software\MicroSoft\Windows\CurrentVersion\Explorer");
     if ((FolderNo $#@60; 0) or (FolderNo $#@62; 2)) then
      FolderNo := 0;
     Directory := MyReg.ReadString("Shell Folders", Folder[FolderNo],"");
     //CreateDir(Directory);
     WFileName := Directory + "\" + LinkName + ".lnk";
     MyPFile.Save(PWChar(WFileName),False);
     MyReg.Free;
    end;例如:在桌面、开始菜单、程序菜单中添加计算器的快捷方式:
    SetLink(0, "c:\windows\calc.exe", "", "计算器");
    SetLink(1, "c:\windows\calc.exe", "", "计算器");
    SetLink(2, "c:\windows\calc.exe", "", "计算器");
      

  2.   

    你看看下面的
    http://www.enet.com.cn/eschool/inforcenter/A20040305291857.html
      

  3.   

    谢谢楼上的朋友,不过控制IE我大概已经会了,也看了好多这样的文章了。
    我的目的不是想控制IE或了解SetLink函数如何用,而是想知道如何控制“资源管理器”包括得到它当前的地址,让它“向上”让它“后退”让它“关闭”。但我不知道setlink(‘explorer','参数??')中的参数有哪些,也找不到这样的资料,所以想求助大家。
      

  4.   

    最后一顶!!谁能告诉我有关DDE编程方面的图书吗?