[ressources] Changer icone exe

Version imprimable

17/04/2005, 03h41
eric30eric

[ressources] Changer icone exe

Salut,
j'aimerais savoir si il est possible en delphi de changer l'icone d'un AUTRE exe. Par exemple, j'ouvre mon programme "prog1.exe" et sa change l'icone du exe "prog2.exe"....

Merci d'avance
17/04/2005, 09h11
Pierre Castelain

Oui, c'est possible. Fais une recherche sur UpdateResource et tu devrais trouver ton bonheur. Par exemple : http://www.developpez.net/forums/vie...updateresource

j'ai réusis à le faire avec MadRES (de Madshi.net) et avec le bout de code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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:\prog.exe', 'MAINICON', 'c:\icon.ico');

(code trouver sur le forum de madshi)