获取快捷键目录文件的问题

Sorder 2006-01-09 02:59:58

我找到一个函数GettLnkPath可以获取一个链接文件的目录文件,
但是在处理特殊目录的时候就出现问题了,比如
获取C:\Program Files\我的测试\mytestProgramDir\Project1.exe
返回结果是C:\PROGRA~1\我的~1\mytest~1\Project1.exe
本身两个是相同,有没有办法区分啊
function GettLnkPath(LinkFile: WideString): String;
var
SL: IShellLink;
PF: IPersistFile;
FindData: TWin32FindData;
AStr: array[0..MAX_PATH] of char;
begin
OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
IShellLink, SL));
PF := SL as IPersistFile;
OleCheck(PF.Load(PWideChar(LinkFile), STGM_READ));
OleCheck(SL.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI));
OleCheck(SL.GetPath(AStr, MAX_PATH, FindData, SLGP_SHORTPATH));
Result := AStr;
end;

...全文

94 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

corruption 2006-01-16

打赏
举报

试了安吉儿的方法,发现确实有问题哦
我帮忙看看

Sorder 2006-01-09

打赏
举报

这个函数我是从FAQ上得到的

Sorder 2006-01-09

打赏
举报

to constantine(飘遥的安吉儿)
...
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then //这个地方老是为31
Result:= StrPas(ExeName)
else
...
怎么回事啊

constantine 2006-01-09

打赏
举报

另外你的代码我这里可以编译，但是运行通不过
csdn 今天不知道怎么回事，我开一个帖子半个小时都还没有打开
不知道是不是我的系统的问题

constantine 2006-01-09

打赏
举报

给你另一个函数
function ExeFromLink(const linkname: string): string;
var
FDir,
FName,
ExeName: PChar;
z: integer;
begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= '';
StrDispose(FDir);
StrDispose(FName);
StrDispose(ExeName);
end;

Sorder 2006-01-09