Project 메뉴의 Options에 들어가보면 Application이라는 페이지에서
Load Icon 버튼을 누르시면 됩니다.

Project -> Options -> Application ->  Load Icon

먼저 답변 감사드립니다. (- -)(_ _) ^^

델파이 아이콘일때는 바탕화면으로 그 아이콘을 꺼내면 저절로 단축아이콘이

되었었는데 아이콘 모양을 바꿔서인지 단축아이콘이 생성되질 않습니다.

그래서 여기저기 찾아보니 아래와 같은 소스가 있던데

맞는건지 어쩐건지...버튼을 누를때 생성되게 한것 같은데... 이런방법말고

다른방법은 없을까요?

다로  Project-Option에서 설정해주는건가요?

---------------------------------------------------------------------
shortcut 만들기 (desktop, 시작메뉴)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShlObj, ActiveX, ComObj, Registry;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;

with MySLink do
begin
SetArguments("c:windowswin.ini"); // 파라미터로 지정
SetPath("write.exe"); // shortcut의 실행파일명 지정
SetWorkingDirectory("c:windowstemp"); // 작업디렉토리 지정
end;
MyReg := TRegIniFile.Create(
"SoftwareMicroSoftWindowsCurrentVersionExplorer");

// desktop 위에 shortcut을 놓기위한 코드
Directory := MyReg.ReadString("Shell Folders","Desktop","");

// 만약 시작메뉴에 shortcut을 넣으려면 아래 예제처럼
// Directory := MyReg.ReadString("Shell Folders","Start Menu","") +
// "Whoa!";
// CreateDir(Directory);

WFileName := Directory+"test.lnk"; // link 파일 만들기
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;

MessageBeep(-1);
end;

end.
--------------------------------------------------------------------

안녕하세요. 최용일입니다.

프로그램 아이콘바꾸는것하고 바탕화면에 단축아이콘 생성되지 않는거하고는 아무런 상관이 없습니다.

탐색기에서 마우스 오른쪽클릭으로 파일을 바탕화면으로 드래그해서 놓으면 메뉴 뜨잖아요. 거기에서 "여기에 바로가기만들기" 선택하시면 됩니다.

드래그안하고 그냥 마우스 오른쪽클릭해서 뜨는 메뉴에서 "보내기"->'바탕화면에 바로가기만들기" 선택하셔두 됩니다.

^^ 항상 즐코하세요...