为什么电脑上的东西都变成ink结尾的了 电脑是Vista系统

为什么电脑上的东西都变成ink结尾的了 电脑是Vista系统

正常情况下“.lnk”是不显示的。你的快捷方式的扩展名显现出来，证明WINDOWS设置被中断，快捷方式为不可识别信息。

　　修复的方法：

　　（1）点击“开始”→“运行”，键入“cmd”，进入命令提示符状态，用键盘敲入assoc.lnk=lnkfile（中间无空格），按回车即可。

　　（2）点击“开始”→“运行”，键入“regedit”，进入注册表，搜索“HKEY_LOCAL_MACHINE\SOFTWARE\CLASSES\”下的“.lnk”键，修改其值为“lnkfile”，保存即可。

　　两种办法本质一样，如果你不懂注册表建议采用第一种方法

　　______________________________________

　　如何通过lnk文件获取该文件的执行路径和程序

　　function LinkFileInfo(const lnkFileName:string;var info:LINK_FILE_INFO;const bSet:boolean):boolean;

　　var

　　hr:hresult;

　　psl:IShelllink;

　　wfd:win32_find_data;

　　ppf:IPersistFile;

　　lpw:pwidechar;

　　buf:pwidechar;

　　begin

　　result:=false;

　　getmem(buf,MAX_PATH);

　　try

　　if SUCCEEDED(CoInitialize(nil)) then

　　if (succeeded(cocreateinstance(clsid_shelllink,nil,clsctx_inproc_server,IID_IShellLinkA,psl))) then

　　begin

　　hr:=psl.QueryInterface(iPersistFile,ppf);

　　if succeeded(hr) then

　　begin

　　lpw:=stringtowidechar(lnkfilename,buf,MAX_PATH);

　　hr := ppf.Load(lpw, STGM_READ);

　　if succeeded(hr) then

　　begin

　　hr := psl.Resolve(0, SLR_NO_UI);

　　if succeeded(hr) then

　　begin

　　if bSet then

　　begin

　　psl.SetArguments(info.Arguments);

　　psl.SetDescription(info.Description);

　　psl.SetHotkey(info.HotKey);

　　psl.SetIconLocation(info.IconLocation,info.IconIndex);

　　psl.SetIDList(info.ItemIDList);

　　psl.SetPath(info.FileName);

　　psl.SetShowCmd(info.ShowState);

　　psl.SetRelativePath(info.RelativePath,0);

　　psl.SetWorkingDirectory(info.WorkDirectory);

　　if succeeded(psl.Resolve(0,SLR_UPDATE)) then

　　result:=true;

　　end

　　else

　　begin

　　psl.GetPath(info.FileName,MAX_PATH, wfd,SLGP_SHORTPATH );

　　psl.GetIconLocation(info.IconLocation,MAX_PATH,info.IconIndex);

　　psl.GetWorkingDirectory(info.WorkDirectory,MAX_PATH);

　　psl.GetDescription(info.Description,CCH_MAXNAME);

　　psl.GetArguments(info.Arguments,MAX_PATH);

　　psl.GetHotkey(info.HotKey);

　　psl.GetIDList(info.ItemIDList);

　　psl.GetShowCmd(info.ShowState);

　　result:=true;

　　end;

　　end;

　　end;

　　end;

　　end;

　　finally

　　freemem(buf);

　　end;

　　end;

　　//*******************调用*****************

　　showmessage(\'FileName:\'+info.filename+#13+\'Description:\'+info.Description+#13+\'IconFilename:\'+info.IconLocation+\',\'+inttostr(info.IconIndex)+

　　#13+\'WordDir:\'+info.WorkDirectory+#13+\'Arguments:\'+info.Arguments+#13+\'ShorCuts:\'+shortcuttotext(s));

　　info.WorkDirectory:=\'D:\\Borland\\Delphi5\\projects\';

　　linkfileinfo(opendialog1.filename,info,true);

　　end;

　　end;

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

　　function GetLinkFileName(sLinkFileName: string; var sTargetFileName: string): boolean;

　　var

　　psl: IShellLink;

　　ppf: IPersistFile;

　　hres, nLen: integer;

　　pfd: TWin32FindData;

　　pTargetFile: PChar;

　　pwLinkFileName: PWideChar;

　　begin

　　Result := false;

　　if SUCCEEDED(CoInitialize(nil)) then

　　begin

　　CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl);

　　if (SUCCEEDED(hres)) then

　　begin

　　hres := psl.QueryInterface(IID_IPersistFile, ppf);

　　if (SUCCEEDED(hres)) then

　　begin

　　nLen := MultiByteToWideChar(CP_ACP, 0, PChar(sLinkFileName), -1, pwLinkFileName, 0);

　　GetMem(pwLinkFileName, nLen);

　　ZeroMemory(pwLinkFileName, nLen);

　　MultiByteToWideChar(CP_ACP, 0, PChar(sLinkFileName), -1, pwLinkFileName, nLen);

　　ppf.Load(pwLinkFileName, STGM_READ);

　　GetMem(pTargetFile, MAX_PATH);

　　ZeroMemory(pTargetFile, MAX_PATH);

　　hres := psl.GetPath(pTargetFile, MAX_PATH, pfd, SLGP_UNCPRIORITY );

　　if (SUCCEEDED(hres)) then

　　begin

　　sTargetFileName := StrPas(pTargetFile);

　　Result := true;

　　end;

　　FreeMem(pTargetFile);

　　FreeMem(pwLinkFileName);

　　end;

　　end;

　　end;

　　end;

扩展名为 lnk 的属于快捷方式文件。。。

同上.属于快捷方式文件