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

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

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


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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com