Ver Mensaje Individual
  #15  
Antiguo 18-02-2019
mblascog mblascog is offline
Miembro
 
Registrado: may 2006
Posts: 131
Reputación: 18
mblascog Va por buen camino
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
Responder Con Cita