Icon einer Anwendung ändern (UpdateResource)

[Neutral General]

Hi,

Wenn ich eine .rc Datei erstelle mit folgendem Inhalt

Zitat:

Icon ICON Icon.ico

und diese dann compiliere und in mein Projekt einbaue dann hat danach meine Exe dieses Icon (zumindest nonVCL).
Mit dem Resourcen-Hacker hab ist das Icon zu finden unter:

Zitat:

Icon Group -> ICON -> 1031

Wenn ich auf diesen Eintrag klicke wird mir auch das Icon angezeigt mit folgenden Zusatzinformationen:

Zitat:

32 x 32 (16 colors) - Ordinal name: 1
16 x 16 (16 colors) - Ordinal name: 2

Wenn ich nun das Gleiche mit UpdateResource machen will, nämlich so:

Delphi-Quellcode:

var h: THandle; 
    sFile: TFileStream;
    Data: Pointer;
begin
  h := BeginUpdateResource(PChar(Filename),false);
  sFile := TFileStream.Create(IconPfad,fmOpenRead);
  try
    size := sFile.Size;
    GetMem(Data,size);
    sFile.Read(Data^,size);
    UpdateResource(h,RT_GROUP_ICON,'ICON',MakeLangID(LANG_GERMAN,SUBLANG_GERMAN),Data,size);
    FreeMem(Data);
  finally
    sFile.Free;
  end;
  EndUpdateResource(h,false);
end;

Dann funktionierts nicht. Im Explorer wird das Icon nicht angezeigt und mim ResourceHacker habe ich unter dem Selben Eintrag wie eben folgendes stehn:

Zitat:

32 x 32 (1 colors) - Ordinal name: 38
0 x 0 (1 colors) - Ordinal name: 0

Und das Icon wird nicht angezeigt.
Achja: Die Dateinamen und Pfäde stimmen...

Gruß
Neutral General