madRes - changing exe icon

delphi package - madRes, madTools, madStrings, ...
Post Reply
Timuk
Posts: 3
Joined: Sun Jul 18, 2004 2:30 pm

madRes - changing exe icon

Post by Timuk »

Hi

What exactly must be parameters in LoadIconGroupResourceW function to change icon in exe file ?
Icon file: C:\icon.ico, exe file: C:\crypt.exe

Please give me some codes or an example.
Best regards.
madshi
Site Admin
Posts: 10753
Joined: Sun Mar 21, 2004 5:25 pm

Post by madshi »

Code: Select all

uses madRes;

function UpdateExeIcon(exeFile, iconGroup, icoFile: string) : boolean;
var resUpdateHandle : dword;
begin
  resUpdateHandle := BeginUpdateResourceW(PWideChar(wideString(exeFile)), false);
  if resUpdateHandle <> 0 then begin
    result := LoadIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), 0, PWideChar(wideString(icoFile)));
    result := EndUpdateResourceW(resUpdateHandle, false) and result;
  end else
    result := false;
end;

  UpdateExeIcon('c:\crypt.exe', 'MAINICON', 'c:\icon.ico');
Timuk
Posts: 3
Joined: Sun Jul 18, 2004 2:30 pm

Post by Timuk »

Thank a lot Madshi.
Sorry for my language and stupid question ...

With respect Timuk.
Post Reply