MSVS 2005. Как создат ярлык

[COLOR=#000080]{ **** UBPFD *********** by delphibase.endimus.com ****>> [/COLOR]
[COLOR=#000080]Создание  для конкретного файлаВХОДНЫЕ ПАРАМЕТРЫ.FILENAME - имя файл ДЛЯ КОТОРОГО будет создан  [/COLOR]
[COLOR=#000080](*.lnk).DestDirectory - путь к каталогу, в котором должен быть расположенсоздаваемый  .[/COLOR]
[COLOR=#000080]OverwriteExisting - если TRUE, то в случае существования создаваемого  в папке назначения, то существующий  сподобным именем будет переписан.[/COLOR]
[COLOR=#000080]AddNumberIfExists - если TRUE, то в при существовании  с подобнымименем в папке назначения,существующий  не будет переписан, а ксоздаваемому [/COLOR]
[COLOR=#000080] будет добавлено число, определяющее номер копиисоздаваемого  .ВНИМАНИЕ !!! Параметр OverwriteExisting является более влиятельным поотношению к параметру AddNumberIfExists, т.е. при передачиобоим параметрам TRUE, существующий  (если таковой имеется в папке назначения),будет переписан.Зависимости: shlObj, activeX, SysUtils, filectrl, comObj, UBPFD.ExtractFileNameEXАвтор: VID, [EMAIL="snap@iwt.ru"]snap@iwt.ru[/EMAIL], ICQ:132234868, МахачкалаCopyright: Списал с одного из FAQ + собственные корректировки и расширение возможностейДата: 19 апреля 2002 г.***************************************************** }[/COLOR]
function CreateLink(FileName, DestDirectory: string; OverwriteExisting, AddNumberIfExists: Boolean): string;
var MyObject: IUnknown; MySLink: IShellLink; MyPFile: IPersistFile; WFileName: WideString; X: INTEGER;
 
begin [COLOR=#000080]//Изначально RESULT = ''[/COLOR] Result := ''; [COLOR=#000080]//Если фиайла, для которого создаётся  не существует, или же не[/COLOR] [COLOR=#000080]// существует директории, где должен быть создан  файла, то EXIT[/COLOR]
 
if (FileExists(FileName) = FALSE) or (DirectoryExists(DestDirectory) = FALSE) then exit; MyObject := CreateComObject(CLSID_SHELLLINK); MyPFile := MyObject as IPersistFile; MySLink := MyObject as IShellLink;
 
with MySLink do
begin
  SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end; [COLOR=#000080]//Гарантирование проставление завершающего '\' в пути директории[/COLOR] [COLOR=#000080]//расположения создаваемого  [/COLOR]
 
if DestDirectory[length(DestDirectory)] <> '\' then DestDirectory := DestDirectory + '\'; [COLOR=#000080]// Первичное определене будующего имени  [/COLOR]WFileName := DestDirectory + ExtractFileNameEx(FileName, FALSE) + '.lnk'; [COLOR=#000080]//Если  с таким именем уже существует, то[/COLOR]
 
 
if (FileExists(WFileName)) then
begin [COLOR=#000080]// Если не надо переписывать существующий  , а надо добавить[/COLOR] [COLOR=#000080]// порядковый номер существования к имени создаваемого  , например[/COLOR] [COLOR=#000080]// blobby1.lnk, blobby2.lnk[/COLOR]
 
if (OverwriteExisting = FALSE) and (AddNumberIfExists = TRUE) then
begin [COLOR=#000080]// Определяем какой именно порядковый номер надо добавить к[/COLOR] [COLOR=#000080]// имени  [/COLOR]X := 0;
 
repeat X := X + 1;
WFileName := DestDirectory + ExtractFileNameEx(FileName, FALSE) + IntToStr(X) + '.lnk';
 
until FileExists(WFileName) = FALSE; [COLOR=#000080]// И сохраняем  [/COLOR]MyPFile.Save(PWChar(WFileName), FALSE); Result := WFileName;
end; [COLOR=#000080]//Если надо переписывать существующий  [/COLOR]if OverwriteExisting = TRUE then
 
begin [COLOR=#000080]//..., то переписываем его :)[/COLOR] MyPFile.Save(PWChar(WFileName), FALSE); Result := WFileName;
 
end;
 
end
 
else
 
begin [COLOR=#000080]//В случае, если  с подобным имененм ещё нет в папке[/COLOR] <FONT color=#000080><I>//назначения, то создаём <A href="http://narod.yandex.ru/cgi-bin/yandmarkup?cluster=14&prog=0x2757571A&HndlQuery=1897964912&PageNum=0&g=1&d=0&q0=1292588448&p=#YANDEX_21">