急,在线等!!!要求在ShellTreeView中打开文件的快捷方式,然后可以得到ShellTreeView的PATH,就象WINDOWS的资源管理器一样
比如我有个网上领居里一个计算机的快捷方式,在ShellTreeView里双击该快捷方式后,可以直接在ShellTreeView里打开该计算机的所有共享名,就象通过网上邻居打开一样.
注意不是另外地开个窗口打开.
我要的结果就是要得到该ShellTreeView的PATH
谢谢
只要解决问题,分数不够另加!(不准放200分,郁闷)
比如我有个网上领居里一个计算机的快捷方式,在ShellTreeView里双击该快捷方式后,可以直接在ShellTreeView里打开该计算机的所有共享名,就象通过网上邻居打开一样.
注意不是另外地开个窗口打开.
我要的结果就是要得到该ShellTreeView的PATH
谢谢
只要解决问题,分数不够另加!(不准放200分,郁闷)
解决方案 »
- delphi windows media player 听广播电台时如何录制声音
- memo赋值时候,str:= 'abc' + #13 + #10 + 'good'怎么不能显示成两行呢?
- 2000下,我做了一个程序,可以随着2000启动自动启动,但这个程序需要连接数据库,有时候程序启动好后,数据库还没启动好,就会连接失败,
- 100分求解,这个类有什么问题么?
- 请问高手如何从ACCESS中通过DELPHI连接数据??????(不同过ODBC连接)
- 如何在treeview中在selected前加节点?
- 如何设计自己特色的窗体
- 多窗体的合并问题
- 程序员老了以后干什么?
- 一个很重要的问题
- 如何获得当前程序执行点所在源文件的行数和文件名?
- 如何解决计算器程序中关于小数点的问题
function GetLinkFullFileName(const ALinkName: widestring): string;
var
SL: IShellLink;
PF: IPersistFile;
FindData: TWin32FindData;
AStr: array[0..255] of char;
begin
OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
IShellLink, SL));
{ The IShellLink implementer must also support the IPersistFile }
{ interface. Get an interface pointer to it. }
PF := SL as IPersistFile;
{ Load file into IPersistFile object }
{$Warnings off}
OleCheck(PF.Load(PWideChar(ALinkName), STGM_READ));
{$Warnings on}
{ Resolve the link by calling the Resolve interface function. }
OleCheck(SL.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI));
{ Get all the info! }
OleCheck(SL.GetPath(AStr, MAX_PATH, FindData, SLGP_SHORTPATH));
Result := Astr;end;用到的单元ShlObj,ActiveX
Uses ComObj;
这个函数我也有,具体怎么使用呢?谢谢