exe icon variabel machen ?

[bitsetter]

Falls du mit Hilfe des Programmes Reshacker (getestet mit Version 3.4) arbeiten möchtest, dann geht auch folgendes:

Delphi-Quellcode:

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
type
  TPfad = record
  ResHackerPfad, IconPfad, ExePfad, ExeCopyPfad: AnsiString;
end;
  TPfadIndex= array[0..3] of AnsiString;
var
   Pfad: TPfad;
   i: byte;
begin
  Pfad.ResHackerPfad:= 'ResHacker.exe';//Pfad zu Reshacker
  Pfad.ExePfad:= 'Project1.exe';//originale EXE Datei
  Pfad.ExeCopyPfad:= 'ProjectNewIcon.exe';//neue EXE Datei mit neuem Icon
  Pfad.IconPfad:= 'IconNeu.ico';//Pfad zum neuem Icon gleicher Größe 

  for i:= 0 to 2 do
  begin
    if pos(':', TPfadIndex(Pfad)[i])= 0 then
      TPfadIndex(Pfad)[i]:= ExtractFilePath(application.ExeName)+ TPfadIndex(Pfad)[i];
    if not FileExists(TPfadIndex(Pfad)[i]) then
    begin
      Showmessage('Die Datei "'+ TPfadIndex(Pfad)[i]+ '" konnte nicht gefunden werden!');
      exit;
    end;
  end;
  ShellExecute(0, 'open', PChar('"'+ Pfad.ResHackerPfad+ '"'), PChar('-modify "'+ Pfad.ExePfad+
    '", "'+ Pfad.ExeCopyPfad+ '", "'+ Pfad.IconPfad+ '", icon, MAINICON,'), nil, SW_SHOW);
end;