Diferenciar accesos directos.

[rauros]

Con los breakpoints he detectado que el psl es nil, y supongo yo que eso significa que el puntero no tiene dirección de memoria. El problema es que yo nunca he usado IShellLink, intentaré crearlo a ver si funciona pero si no os aviso.

[[cHackAll]]

Código Delphi [-]
 if LongBool(GetFileAttributes('C:\Archivos de programa') and $400{FILE_ATTRIBUTE_REPARSE_POINT}) then
  MessageBox(0, 'LNK', nil, 0);

[rauros]

Y exactamente que hace eso?

Voy a ponerte desde mi punto de vista lo que pienso que hace:

Si coges los atributos de archivos de programa (por qué?) y parte desconocida por mí se genera el mensaje LNK.

[[cHackAll]]

Empezado por rauros

Y exactamente que hace eso?

Voy a ponerte desde mi punto de vista lo que pienso que hace:

Si coges los atributos de archivos de programa (por qué?) y parte desconocida por mí se genera el mensaje LNK.

Tienes mucha razón rauros, creo que me falla la "vista" pues no se desde qué momento me convencí que necesitabas reconocer a un "Symbolic Link", en todo caso "edito"

Código Delphi [-]
uses ActiveX, ComObj, ShlObj;
 
function GetShellLinkPath(FileName: string): string;
var ShellLink: IUnknown;
begin
 ShellLink := CreateComObject(CLSID_ShellLink);
 if (ShellLink as IPersistFile).Load(PWideChar(WideString(FileName)), STGM_READ) = 0 then
  begin
   SetLength(FileName, MAX_PATH);
   (ShellLink as IShellLink).GetPath(@FileName[1], MAX_PATH, PWin32FindData(0)^, SLGP_UNCPRIORITY);
   Result := PChar(@FileName[1]);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var FileName: PChar;
begin
 FileName := PChar(GetShellLinkPath('c:\Documents and Settings\666\Desktop\ClubDelphi.lnk'));
 if (FileName <> '') and LongBool(GetFileAttributes(FileName) and FILE_ATTRIBUTE_DIRECTORY) then
  if not SetCurrentDirectory(FileName) then
   MessageBox(Handle, PChar(SysErrorMessage(GetLastError)), nil, MB_ICONERROR);
end;

Saludos

[TOPX]

Empezado por rauros

El problema es que yo nunca he usado IShellLink

Es cierto, veo que puede que esa interface no aplique en su Win Vista... y como no tengo una instalación de eso por acá cerca, podría Ud. probar:

1. o con IShellLinkW
   -
2. o con el IPersistFile.Load que usan en la función GetShellLinkInfo de http://www.informit.com/articles/art...26940&seqNum=4
   -