求救：找不到 IID_IShellLink 的引用单元？！ ( 积分: 100 )

procedure TForm1.CreateShortcut(lpszExe, lpszLnk: string);

var
psl:IShellLink;
ppf:IPersistFile;
hr:HRESULT;
begin

CoInitialize(nil);
try
psl:=nil;
ppf:=nil;
hr:=CoCreateInstance(
CLSID_ShellLink,
NULL,
CLSCTX_INPROC_SERVER,
IID_IShellLink,
psl);

程序执行到这里，就进行不下去了，报错：Undeclared identifier:'IID_IShellLink'
请教需要引用哪个单元呢？

好像是ActiveX 或ShlObj