Форум: "Потрепаться";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Вниз

как програмно создать ярлык?   Найти похожие ветки 

← →
syte_ser78 ©   (2004-07-26 09:39) [0]

сабж

---

← →
clickmaker ©   (2004-07-26 10:32) [1]

procedure CreateFileLink(const FileName, DisplayName: string; Folder: Integer);
var
 ShellLink: IShellLink;
 PersistFile: IPersistFile;
 ItemIDList: PItemIDList;
 FileDestPath: array[0..MAX_PATH] of Char;
 FileNameW: array[0..MAX_PATH] of WideChar;
begin
 CoInitialize(nil);
 try
   OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_SERVER,
     IID_IShellLinkA, ShellLink));
   try
     OleCheck(ShellLink.QueryInterface(IID_IPersistFile, PersistFile));
     try
       OleCheck(SHGetSpecialFolderLocation(0, Folder, ItemIDList));
       SHGetPathFromIDList(ItemIDList, FileDestPath);
       StrCat(FileDestPath, PChar("\" + DisplayName + LinkExt));
       ShellLink.SetPath(PChar(FileName));
       ShellLink.SetIconLocation(PChar(FileName), 0);
       MultiByteToWideChar(CP_ACP, 0, FileDestPath, -1, FileNameW, MAX_PATH);
       OleCheck(PersistFile.Save(FileNameW, True));
     finally
       PersistFile := nil;
     end;
   finally
     ShellLink := nil;
   end;
 finally
   CoUninitialize;
 end;
end;

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.034 c