1:

 shellexecute(0,'open',pchar('C:\Freecell.lnk'),nil,pchar('C:\'),sw_show);                    

1:

ShellExecute(0, nil, PChar('C:\Freecell.lnk'), nil, PChar('C:\'), SW_SHOW);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

uses
 ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if FileExists('C:\Freecell.lnk') then
   ShellExecute(0, nil, PChar('C:\Freecell.lnk'), nil, PChar('C:\'), SW_SHOW)
 else
  ShowMessage('C:\Freecell.lnk nicht gefunden');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

  
unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if FileExists('C:\Freecell.lnk') then
   ShellExecute(0, nil, PChar('C:\Freecell.lnk'), nil, PChar('C:\'), SW_SHOW)

 else
  ShowMessage('C:\Freecell.lnk nicht gefunden');
end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if FileExists('C:\Freecell.lnk') then
     begin
   ShellExecute(0, nil, PChar('C:\Freecell.lnk'), nil, PChar('C:\'), SW_SHOW);
   showmessage('Datei existiert');
     end
 else
  ShowMessage('C:\Freecell.lnk nicht gefunden');
end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure ShowTarget(LinkFile : WideString);
var IU : IUnknown;
    SL : IShellLink;
    PF : IPersistFile;
    FindDate : TWin32FindData;
    TargetFile : array[0..MAX_PATH] of char;
begin
// Herstellen des IShellLink und IPersistFile zum Zugriff auf die .LNK Datei. }
  IU := CreateComObject(CLSID_ShellLink);
  SL := IU as IShellLink;
  PF := SL as IPersistFile;
// .LNK Datei in IPersistFile Objekt laden.
  PF.Load(PWideChar(LinkFile), STGM_READ);
// Den Link durch Aufruf der Resolve-Methode auflösen
  SL.Resolve(0, SLR_ANY_MATCH or SLR_NO_UI);
// Jetzt kommt man an die Infos
  SL.GetPath(TargetFile, MAX_PATH, FindDate, SLGP_UNCPRIORITY);
// Zieldatei ausgeben
  ShowMessage(TargetFile);
end;                    

1:
2:

uses
  ShellAPI, ShlObj;                    

1:
2:

uses
  ActiveX;