[Nyctos Kasignete]

Для этих целей можно использовать объект TRegIniFile из модуля Registry. У него, в частности, имеются методы ReadBinaryData и WriteBinaryData.
Вот так можно прочитать значение ключа, ответственного за эту добавку "Ярлык для"...

Код:

uses Registry; // и прочее...

............................

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegIniFile;
  Buf: array[0..4] of Byte;
begin
  FillChar(Buf, SizeOf(Buf), 0);
  Reg := TRegIniFile.Create('Software');
  try
    Reg.OpenKey('Microsoft', True);
    Reg.OpenKey('Windows', True);
    Reg.OpenKey('CurrentVersion', True);
    Reg.OpenKey('Explorer', True);
    ShowMessage(InttoStr(Reg.ReadBinaryData('Link', Buf, SizeOf(Buf)))); // сколько байт прочитали?
    Reg.CloseKey;
  finally
    Reg.Free;
 end;
end;

P.S. Ну и записать — аналогично.