C#

[ComImport, Guid("00021401-0000-0000-C000-000000000046")] 
class ShellLink
{ 
}

[Guid("000214ee-0000-0000-c000-000000000046"), 
InterfaceType(ComInterfaceType.InterfaceIsDual)] 
interface IShellLinkA // Cannot list any base interfaces here 
{ 
  // Note that IUnknown Interface members are NOT listed here:

  void SetPath(string path);
  void SetDescription(string path);
  void Save(string where);

  ...
}

// and that's used with code like this :

ShellLink c = new ShellLink();
IShellLinkA i = (IShellLinkA) c;
i.SetPath("ert");
...

[ComImport, Guid("00021401-0000-0000-C000-000000000046")] 
class SH
{ 
}

[Guid("000214ee-0000-0000-c000-000000000046"),
 InterfaceType(ComInterfaceType.InterfaceIsIUnknown)] 
interface IShellLinkA // Cannot list any base interfaces here 
{ 
  // Note that IUnknown Interface members are NOT listed here:
  void GetPath(string pszFile,
               int cchMaxPath,
               IntPtr pfd,
               int fFlags);

  void GetIDList(IntPtr ppidl);

  void SetIDList(IntPtr pidl);

  void GetDescription(string pszName,
                      int cchMaxName);

  void SetDescription(string pszName);

  void GetWorkingDirectory(string pszDir,
                           int cchMaxPath);

  void SetWorkingDirectory(string pszDir);

  void GetArguments(string pszArgs, int cchMaxPath);

  void SetArguments(string pszArgs);

  IntPtr GetHotkey();

  void SetHotkey(int wHotkey);

  void Resolve(IntPtr hwnd,
               int fFlags);

  void SetPath(string pszFile);
}

//
SH c = new SH();
IShellLinkA i = (IShellLinkA) c;
...
UCOMIPersistFile p = (UCOMIPersistFile) i;
p.Save(@"c:\mylink.lnk",false);

public string FilterInName(string pToEncrypt){<br />
			try{<br />
				if(pToEncrypt.Length<=3){<br />
<br />
					return pToEncrypt;<br />
				}<br />
				string sKey = "alPhatab";<br />
				DESCryptoServiceProvider des = new DESCryptoServiceProvider();<br />
				//Put the string into a byte array<br />
				byte[] inputByteArray = Encoding.Default.GetBytes(pToEncrypt);<br />
				//Create the crypto objects, with the key, as passed in<br />
				des.Key = ASCIIEncoding.ASCII.GetBytes(sKey);<br />
				des.IV = ASCIIEncoding.ASCII.GetBytes(sKey);<br />
				MemoryStream ms = new MemoryStream();<br />
				CryptoStream cs = new CryptoStream(ms, des.CreateEncryptor(),<br />
				CryptoStreamMode.Write);<br />
				//Write the byte array into the crypto stream<br />
				//(It will end up in the memory stream)<br />
				cs.Write(inputByteArray, 0, inputByteArray.Length);<br />
				cs.FlushFinalBlock();<br />
				<br />
				//Get the data back from the memory stream, and into a string<br />
				StringBuilder ret = new StringBuilder();<br />
				foreach(byte b in ms.ToArray()){<br />
				//Format as hex<br />
				ret.AppendFormat("{0:X2}", b);<br />
				}<br />
				return ret.ToString();<br />
			}catch(Exception ){return pToEncrypt;}

MyForm mf = new MyForm();
mf.Location = new Point( 8, 8 );
mf.Size = new Size( 150, 300 );
 
Controls.Add( mf );
mf.Visible = true; // mf.Show() *should* also work