[InternetShortcut]
URL=http://www.animare.hu/dso/
Modified=A000AEAF4572C00175
Van azonban egy IUniformResourceLocator nevű interfész, mely az URL állományok kezelésért felelős, így célszerű ezt felhasználnunk programjainkban, arra az esetre gondolva, hogy ha idővel módosul az URL állomány formátuma, akkor ez az interfész továbbra is szabványos csatlakozási felületet fog biztosítani.
IUniformResourceLocator=interface(IUnknown)
[SID_IUniformResourceLocator]
function SetURL(pcszURL: LPSTR; dwInFlags: DWORD):
HRESULT; stdcall;
function GetURL(ppszURL: LPSTR): HRESULT; stdcall;
function InvokeCommand(pURLCommandInfo:
PUrlInvokeCommandInfo): HRESULT; stdcall;
end;
Deklaráció után viszont már létrehozhatunk egy COM objektumot a CreateComObject függvénnyel és a CLSID_InternetShortcut konstanssal.
FUniformResourceLocator.SetURL('http://www.animare.hu/dso/',
IURL_SETURL_FL_USE_DEFAULT_PROTOCOL);
Az URL állomány fizikai létrehozásához az IPersistFile interfészre lesz szükségünk, annak is a Save függvényére.