bool FindFile::IsShellLinkDir() const //aris002 wrong name? tmp
{
	if (!GetName().EndsWith(".lnk")) //aris002 shell we check ext somewhere outside?
		return false;
//	char linkpath[MAX_PATH];
	LPCSTR linkpath=~path;
		LLOG("IsShellLinkDir getname="<<GetName());
	char szGotPath[MAX_PATH];
	char szDescription[MAX_PATH];
 //   WIN32_FIND_DATA wfd;
	HRESULT hres;
	IShellLink* psl;
	CoInitialize(NULL);
	hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
	                                 IID_IShellLink, (LPVOID *) &psl);
	if(SUCCEEDED(hres)) {
		IPersistFile* ppf;
		psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
		if(SUCCEEDED(hres)) {
			
			WCHAR szPath[_MAX_PATH] = { 0 };
			MultiByteToWideChar(CP_ACP, 0, linkpath, (int)strlen(linkpath), szPath, _MAX_PATH);
		//not correct? - might be links with diffrerent extensions
		//get shortcuts extension from registry? how?
			
			hres = ppf->Load(szPath, STGM_READ); //Load the shortcut.
			if (SUCCEEDED(hres)) {
			//	LLOG("ppf->Load ok!! "<<linkpath);
				hres = psl->GetPath((LPSTR)szGotPath, MAX_PATH,
				         NULL,  SLGP_UNCPRIORITY );
					LLOG("name "<<GetName()<<" target "<<szGotPath);
//				if(SUCCEEDED(hres))
//					LLOG("SUCCEEDED link ");
				ppf->Release();
			}
		psl->Release();
		}
	}

	CoUninitialize();
	if(SUCCEEDED(hres)) {
		LLOG("SUCCEEDED2 link ");
		return true;
	}
	else
		return false;
	//return SUCCEEDED(hres);
}

bool ResolveShellLink(const String& path, String& linked) //aris002 
{
//	char linkpath[MAX_PATH];
	LPCSTR linkpath=path;
	                   LLOG("IsShellLinkDir getname="<<path);
	char szGotPath[MAX_PATH];
	HRESULT hres;
	IShellLink* psl;
	CoInitialize(NULL);
	hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
	                                 IID_IShellLink, (LPVOID *) &psl);
	if(SUCCEEDED(hres)) {
		IPersistFile* ppf;
		psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
		if(SUCCEEDED(hres)) {
			
			WCHAR szPath[_MAX_PATH] = { 0 };
			MultiByteToWideChar(CP_ACP, 0, linkpath, (int)strlen(linkpath), szPath, _MAX_PATH);
		//not correct? - might be links with diffrerent extensions
		//get shortcuts extension from registry? how?
			
			hres = ppf->Load(szPath, STGM_READ); //Load the shortcut.
			if (SUCCEEDED(hres)) {
			//	LLOG("ppf->Load ok!! "<<linkpath);
				hres = psl->GetPath((LPSTR)szGotPath, MAX_PATH,
				         NULL,  SLGP_UNCPRIORITY );
					LLOG("name "<<linkpath<<" target "<<szGotPath);
					linked=szGotPath;
//				if(SUCCEEDED(hres))
//					LLOG("SUCCEEDED link ");
				ppf->Release();
			}
		psl->Release();
		}
	}

	CoUninitialize();
	if(SUCCEEDED(hres)) {
		LLOG("SUCCEEDED2 RESOLVED link ");
		return true;
	}
	else
		return false;
	//return SUCCEEDED(hres);
}