uses ShlObj, ActiveX, ComObj;
...
procedure TForm1.Button1Click(Sender: TObject) ;
var
   IObject : IUnknown;
   ISLink : IShellLink;
   IPFile : IPersistFile;
   PIDL : PItemIDList;
   InFolder : array[0..MAX_PATH] of Char;
   TargetName : String;
   LinkName : WideString;
begin
    // 바로가기를 만들 것
   TargetName := 'c:\windows\calc.exe';

   IObject := CreateComObject(CLSID_ShellLink) ;
   ISLink := IObject as IShellLink;
   IPFile := IObject as IPersistFile;

   with ISLink do
   begin
     SetPath(pChar(TargetName)) ;
     SetWorkingDirectory(pChar(ExtractFilePath(TargetName))) ;
   end;

   SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, PIDL) ;
   SHGetPathFromIDList(PIDL, InFolder) ;

   LinkName := InFolder + '\계산기 바로가기.lnk';
   IPFile.Save(PWChar(LinkName), false) ;
end;

황우성 님이 쓰신 글 :
: 델파이로 만들려고 합니다 도와 주세요
:
:
: civilian,안영제 님이 쓰신 글 :
: : 웹 페이지에서 JavaScript를 이용하시겠다는건지, 아니면 델파이 코드로 바탕화면에
: : 단축 아이콘을 만들겠다는 것인지...
: :
: : 좀더 구체적으로 질문을 하세요.
: :
: : 황우성 님이 쓰신 글 :
: : : 안녕하세요
: : :
: : : 워낙 초보라서
: : :
: : : 웹에서 바탕화면에 링크 아이콘을 만들고 싶은데요
: : :
: : : 방법을 몰라서요
: : :
: : : 누가좀 도와 주세요