ShellLink example

Following code demonstrates how to create a shell link to your program.

---

procedure TForm1.Button1Click(Sender: TObject);
begin
  dcShellLink1.LinkTarget := Application.ExeName;

  // next two lines will set icon #4 from shell32.dll
  dcShellLink1.IconLocation := 'shell32.dll';
  dcShellLink1.IconIndex := 4;

  // saving to Test.lnk file on desktop
  dcShellLink1.SaveToFile('c:\Test.lnk');
end;
�s��IU��/QH�/�K��+��!