¿Cómo ejecutar accesos directos?

[ecfisa]

Empezado por saulcell

@ecfisa. Mira este es el error que me vota

Código Delphi [-]
[Error] Unit1.pas(27): Declaration expected but 'USES' found
[Error] Unit1.pas(30): Undeclared identifier: 'ShellExecute'

Hola saulcell.

Veo que estas en las mejores manos y difícilmente pueda aconsejarte mejor. Así que sólo voy a ejemplificar lo que te dijeron sobre la
ubicación de la clausula uses .

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls{, ShellApi};{  puede ir aquí (seguí más abajo...) }

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

uses ShellApi; { o puede  ir aquí. No se puede declarar en ambos sitios, la declaración es excluyente }

procedure TForm1.Button1Click(Sender: TObject);
{ Nunca dentro de un procedimiento o función }
begin
  ShellExecute(Handle, nil , PChar('C:\Boxes\Shell.exe'), nil, nil, SW_SHOWNORMAL);
end;
end.

Saludos.