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