URL 단축아이콘 생성 - 델파이 코드

확장자를 INI 파일로 작성한 후

일정 양식의 데이터를 저장하면 URL 단축 아이콘으로 설정된다.

with TIniFile.Create(ShortcutFileName) do try
   // URL 주소 입력

    WriteString(
       'InternetShortcut',
       'URL',
       ShortcutUrl) ; // 더블클릭하면 접속될 URL 
   // 아이콘 인덱스 (아래에 쓰여질 아이콘 여러개 중 적용할 아이콘의 번호를 적는 것)
    WriteInteger(
       'InternetShortcut',
       'IconIndex',
       0) ;
   // 아이콘 파일을 등록 (당연히 로컬경로로 써야함) 쓰는 순서대로 순번이 결정됨  
    WriteString(
       'InternetShortcut',
       'IconFile',
       IconName) ; // 아이콘 파일 경로와 이름의 변수
finally
  Free;
end;