바로가기를 바탕화면에 만들려고 하는데
궁금한 점이 있어서 글을 올리게 되었습니다.
바로가기는 강의실에 있는 강좌로 만드는 방법은 참조하여
만들기는 했는데..
바로가기을 만들기 전에 동일한 이름에 바로가기가 있는지는 확인할 방법이
없을까요? pPersistFile 로 찾아내기에는 무조건 S_OK 만 반환되어서
찾기가 힘드네요 ^^: SpecialFolderPath + 파일 + '.lnk' 파일을 따로 찾는 부분을
추가하는 방법밖에 없는지 궁금합니다.
if (Params.LinkPath = '') or (Params.LinkPath[1] <> '') then
Params.LinkPath := '' + Params.LinkPath;
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED,
PChar(SpecialFolderPath + Params.LinkPath + LinkFileName),
-1, wcLinkFileName, Max_Path);
end
else
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED,
PChar(Params.LinkPath + LinkFileName), -1, wcLinkFileName, Max_Path);
//pPersistFile: IPersistFile
if pPersistFile.Save(wcLinkFileName, True) = S_OK then
Result := True;
if FileExists(SpecialFolderPath + 파일 + '.lnk') then
ShowMessage('파일이 있습니다.');