shelllink ShellLink example
Return to Introduction  Previous page  Next page
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;