1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls, System.ImageList, Vcl.ImgList,
  Vcl.ExtCtrls, axCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
      procedure DragDrop(var Message: TWmDropFiles);
      message WM_DROPFILES;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses ShellApi;

procedure TForm1.FormCreate(Sender: TObject);
begin
 {Let Windows know we accept dropped files}
  DragAcceptFiles(Form1.Handle, True);
end;

procedure TForm1.DragDrop(var Message: TWmDropFiles);
var
Filename      : string;
OleGraphic    : TOleGraphic;
fs            : TFileStream;
Source        : TImage;
BMP           : TBitmap;
BmImg         : TBitmap;
BmpMask       : TBitmap;
IconInfo      : TIconInfo;
Ico           : TIcon;
begin
//Drag and Drop the Objekt to get the path
SetLength(Filename,2000);
DragQueryFile(Message.Drop,0,Pchar(Filename),2000);
Form1.Memo1.Lines.Add(Filename);
//load the image into the programm
OleGraphic := TOleGraphic.Create; {The magic class!}
fs := TFileStream.Create(Filename, fmOpenRead Or fmSharedenyNone);
OleGraphic.LoadFromStream(fs);
//copy it over...
Source := Timage.Create(Nil);
Source.Picture.Assign(OleGraphic);
//resize the image on your formular (TImage-Object from the Toolbar) just to check
Form1.Image1.Width:=Source.Picture.Width;
Form1.Image1.Height:=Source.Picture.Height;
//convert into Bitmap
BMP := TBitmap.Create;
bmp.Width := Source.Picture.Width;
bmp.Height := Source.Picture.Height;
bmp.Canvas.Draw(0, 0, source.Picture.Graphic);
//show the image in your formular
Form1.Image1.Picture.Bitmap := bmp; {Show the bitmap on form}
//release
fs.Free;
OleGraphic.Free;
Source.Free;
//Copy the Bitmap
BmImg := TBitmap.Create;
BmImg.Assign(Bmp);
//resize the Bitmap
Bmp.SetSize(256,256);
SetStretchBltMode(Bmp.Canvas.Handle, HALFTONE);
StretchBlt(Bmp.Canvas.Handle, 0, 0, 256, 256,BmImg.Canvas.Handle, 0, 0, BmImg.Width, BmImg.Height, SRCCOPY);
BmImg.Free;
//
BmpMask := TBitmap.Create;
BmpMask.Canvas.Brush.Color := clRed;
BmpMask.SetSize(256, 256);
//Copy the Bitmap into the Icon
FillChar(IconInfo, SizeOf(IconInfo), 0);
IconInfo.fIcon := True;
IconInfo.hbmMask := BmpMask.Handle;
IconInfo.hbmColor := Bmp.Handle;
Ico := TIcon.Create;
Ico.Height:=256;
Ico.Width:=256;
Ico.Handle:=CreateIconIndirect(IconInfo);
//save the Icon to a file next to the source (Filename)
Ico.SaveToFile(ChangeFileExt(Filename,'.ico'));
// calls Destroy
Bmp.Free;
BmpMask.Free;
Ico.Free;
end;
end.					

1:

DestroyIcon(ico.Handle);					

1:

Ico.Free;