Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Другое \ Полнофункциональная функция для создания ярлыка с определенными параметрами.

Полнофункциональная функция для создания ярлыка с определенными параметрами.

Полнофункциональная функция для создания ярлыка с определенными параметрами.

uses
Windows, ShlObj, OLE2;

function CreateLink(SrcFile,LnkFile,Descr:string):HRESULT;
var hres:HRESULT; psl:IShellLinkA; ppf:IPersistFile;
wsz:array[0..MAX_PATH-1] of word;
begin
hres:=CoCreateInstance(CLSID_ShellLink, nil,CLSCTX_INPROC_SERVER, IID_IShellLinkA, psl);
if (SUCCEEDED(hres)) then
begin
psl.SetPath(PChar(SrcFile));
psl.SetDescription(PChar(Descr));
hres:=psl.QueryInterface(IID_IPersistFile, ppf);
if (SUCCEEDED(hres)) then
begin
MultiByteToWideChar(CP_ACP, 0, PChar(LnkFile), -1, @wsz, MAX_PATH);
hres:=ppf.Save(@wsz, TRUE);
ppf.Release;
end;
end;
CreateLink:=hres;
end;

Название: Полнофункциональная функция для создания ярлыка с определенными параметрами.
Дата публикации: 2004-01-27 (2873 Прочтено)

 
 

 

Page generation 0.030 seconds