How to create a file shortcut (*.lnk file) on desktop in Windows?

Question

function GetDesktopFolder: string;
var
  buf: array[0..MAX_PATH] of Char;
  pidList: PItemIDList;
begin
  Result := StrNoDesktopFolderFo;
  SHGetSpecialFolderLocation(Ap         


        

Answer 1

Functions for obtaining special folder locations, creating shortcuts (links), and much much more can be found in the freeware dsiWin32 library of 100+ procedures and functions. Download it at http://gp.17slon.com/gp/dsiwin32.htm and thanks to Primoz Gabrijelcic and the Delphi-SI community for making it available.

Max