请问哪里可以找到有关DDE的编程资料,或者哪本书有这方面的介绍?我想知道setlink(‘explorer','参数??')中的参数有哪些? 我想研究资源管理器EXPLORER(即当setlink(‘explorer','参数??')的DDE编程,但在网上一直找不到。找到的都时有关IE浏览器IEXPLORE的DDE资料。大家帮帮忙忙!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 楼主说的函数是不是这个?---------------------------------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", "", "计算器"); 你看看下面的http://www.enet.com.cn/eschool/inforcenter/A20040305291857.html 谢谢楼上的朋友,不过控制IE我大概已经会了,也看了好多这样的文章了。我的目的不是想控制IE或了解SetLink函数如何用,而是想知道如何控制“资源管理器”包括得到它当前的地址,让它“向上”让它“后退”让它“关闭”。但我不知道setlink(‘explorer','参数??')中的参数有哪些,也找不到这样的资料,所以想求助大家。 最后一顶!!谁能告诉我有关DDE编程方面的图书吗? delphi的dll子窗体问题的解决 超级麻烦的小问题,,,,,,,,,,,,,急呀.............. 怎样从数据库中读取GRAPHIC类型数据? 急待解决的问题!!!急!急!急!!! 大家能否帮小弟啊,急死了没有办法,谁有认识上海电信内部的人啊? 用ADO与SQLSERVER连接如何恢复数据库 write的问题 初学delphi,第三个简单的问题。谢谢大家!:) 如何用tquery实现选取任意一张表的某两个属性 哪里能够找到关于QuickReport的帮助说明,Delphi中好像没有? 寻找fastreport3.0的开发指南! dbExpress的几个简单问题
---------------------------------
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", "", "计算器");
http://www.enet.com.cn/eschool/inforcenter/A20040305291857.html
我的目的不是想控制IE或了解SetLink函数如何用,而是想知道如何控制“资源管理器”包括得到它当前的地址,让它“向上”让它“后退”让它“关闭”。但我不知道setlink(‘explorer','参数??')中的参数有哪些,也找不到这样的资料,所以想求助大家。