Utworzenie skrótu z linii polecen

sub ZrobSkrot()
	CHAR skrot[300], exe[300], title[100]
	INT typ, size, ok
	POINTER ShellFolders

	IShellLinkA isl
	IPersistFile ipp
	CoInitialize(NULL)
	ok = 0

	ShellFolders = "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders"

	if S_OK = CoCreateInstance(_CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, _IID_IShellLinkA, &isl)

		GetModuleFilename(NULL, exe, 260)
		GetFileTitle(exe, title, 100)
		isl->SetPath(exe)
		isl->SetIconLocation(exe, 0)
		isl->SetDescription("opis mojego super progsa")

		if S_OK = isl->QueryInterface(_IID_IPersistFile, &ipp)

			size = 260
			if S_OK = ShGetValue(HKEY_CURRENT_USER, ShellFolders, "Desktop", &typ, skrot, &size)
				strcat(skrot, "\\"+title)
				PathRenameExtension(skrot, ".lnk")
				ipp->Save(strToUnicode(skrot), TRUE)
				ok=TRUE
			endif

			ipp->Release()
		endif
		isl->Release()
		CoUninitialize()
	endif

	return OK
endsub