Discussion :

[eric30eric]

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

[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

[eric30eric]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)