Icon Changer

[Lyan]

Hallo,

würde gerne das Icon einer EXE ändern, wobei das Icon in einem TImage liegt.

Das Handle eines Icons einfach mit:

Delphi-Quellcode:

h := ExtractIcon(0,PChar(OpenDialog.FileName),0);
if h <> 0 then begin
  ImageIcon.Picture.Icon.Handle := h;
end;

Delphi-Quellcode:

hInst:=BeginUpdateResource(pchar(Path), False);
UpdateResource(hInst, RT_ICON, MAKEINTRESOURCE(1), LANG_NEUTRAL, ????, ????);
EndUpdateResource(hInst, False);

Würde das so klappen?

[Luckie]

Probier's aus. ;)

[Andreas L.]

Ich bin mir nicht sicher aber ich glaube du musst das Icon in einen Stream laden und diesen als die letzten Parameter an UpdateResource übergeben.

Delphi-Quellcode:

var
  ptr: Pointer;
begin
  ...
  Stream.Read(ptr^, Stream-Size);
  ...
  UpdateResource(hInst, RT_ICON, MAKEINTRESOURCE(1), LANG_NEUTRAL, ptr, Stream.Size);
  ....
  freemem(ptr, Stream.Size + 1);
end;

[Zacherl]

So einfach funktioniert das bei Icons nicht. Die Icon Header Struktur liegt in einer RT_GROUPICON Resource (leicht modifiziert im Vergleich zur File Icon Header) und die Einzelbilder liegen in eigenständigen RT_ICON Resourcen.

Wenn du eine fertige Unit suchst, kannst du meinen Icon Parser hier verwenden:
http://www.delphipraxis.net/170682-l...resourcen.html

[Lyan]

Danke Zacherl, die Unit ist wirklich gut! Nun weiß ich auch wie man den Header der EXE ändert, bei mir war dieser bisher immer ungültig..