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?