Propiedades de archivos

[_cero_]

Mientras googleaba logre encontrar la función "FindFirstFileA" que al menos me devuelve los tiempos que necesito entre otras cosas, pero sigo sin lograr obtener el destino de un acceso directo.

Les dejo el código por si sirve de algo.

WIN32_FIND_DATA WFDD;
_SYSTEMTIME  SYST;
_FILETIME FTII;
TDateTime FECC;

FindFirstFileA("C:\\Escritorio.lnk",&WFDD);

FTII=WFDD.ftCreationTime;
FileTimeToSystemTime(&FTII,&SYST);
FECC=IncHour(SystemTimeToDateTime(SYST),-6);
ShowMessage(FECC.DateTimeString());

Por favor si alguien pudiera decirme como saber el destino de los accesos directos, selo agradecería mucho

[_cero_]

Pff, ya esta, les dejo esta función que te devuelve el destino de un lnk (con algunas modificaciones te puede crear los accesos directos).

AnsiString __fastcall TForm1::ResolveLink(AnsiString&   LinkFile)
{
/**/
  IShellLink* pShellLink=NULL;

  AnsiString URL("");
  HRESULT HR = CoCreateInstance(CLSID_ShellLink,   NULL,   CLSCTX_INPROC_SERVER,
								IID_IShellLink, (void**)&pShellLink);
  if (SUCCEEDED(HR)) {
  IPersistFile* pPersistFile=NULL;
  HR=pShellLink->QueryInterface(IID_IPersistFile, (void**)&pPersistFile);
	if (SUCCEEDED(HR)) {
	  wchar_t WSZ[MAX_PATH];
	  MultiByteToWideChar(CP_ACP, 0, LinkFile.c_str(), -1, WSZ, MAX_PATH);
	  HR=pPersistFile->Load(WSZ, STGM_READ);
	  if (SUCCEEDED(HR)) {
		WIN32_FIND_DATA WFDD;
		HR=pShellLink->Resolve(Application->Handle, SLR_NO_UI);
		if (NOERROR==HR) {
		  char STR[MAX_PATH];
		  pShellLink->GetPath(STR, MAX_PATH,&WFDD, SLGP_UNCPRIORITY);
		  URL=STR;
		}
	  }
	  pPersistFile->Release();
	}
	pShellLink->Release();
  }
  return URL;
}

Espero que esto le sea útil a alguien más y gracias por el interés.