Saber ruta de un exe

[mblascog]

Perdón, el primero lo he hecho, el segundo no, es un poco difícil con el móvil. I

[Casimiro Noteví]

Empezado por mblascog

Perdón, el primero lo he hecho, el segundo no, es un poco difícil con el móvil. I

Yo con el móvil no puedo ni teclear Bastante has podido hacer.

[mblascog]

Sigo con el problema y no consigo ejecutar el acceso directo:

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
  var ruta: string;
      error: integer;
begin
  edit1.text := '';
  edit1.PasteFromClipboard;

  if fileexists(edit1.text) then
  begin
    error := ShellExecute(0, 'open', Pchar('C:\eDrawings.lnk'), Pchar(edit1.text), Pchar('C:\'), SW_SHOWNORMAL);
    showmessage(inttostr(error));
  end
  else
    Showmessage('No existe fichero');
  Application.Terminate;
end;

He añadido que ShellExecute devuelva error.
Devuelve el 31: No existe aplicación asociada con esta extensión, es decir, no sabe ejecutar el accesso directo.

Buscando por Internet, veo posts de que es posible poder ejecutar un acceso directo, pero no sé como resolverlo.

Alguna idea. Gracias