в скомпилированный exe импортировать ICO

[beegl]

код:

Application.Icon.LoadFromFile('D:\icos.ico');

[[XyZ]]

Сообщение от beegl

код:

Application.Icon.LoadFromFile('D:\icos.ico');

Значит та иконка, которая слева это в запущеном EXE, а которая справа,
в записанном на диск файле.

Левая меняется программно, а правая утилитой.

[STRELOK-2007]

Иконка в исполняемом файле, меняется с помощью замены ресурсов

[beegl]

нашел модуль, загружает временный *exe файл (темпфайлом, его надо переименовать, запустить), а потом меняет у этого (нужного) *exe файла основную иконку

unit ReplaseICO;   
{$WARNINGS OFF}
{$HINTS OFF}  
 interface   
  
 uses   
   Windows, Classes, SysUtils, Graphics;   
  
 procedure ChangeIcon(FileName, IconFile, ResName:string);   
  
 implementation   
  
 resourcestring   
   SInvalidFileName = 'Invalide filename %s';   
  
 type   
   TNewHeader = record   
     idReserved:WORD;   
     idType:WORD;   
     idCount:WORD;   
   end;   
  
   TResDirHeader = packed record   
     bWidth:Byte;   
     bHeight:Byte;   
     bColorCount:Byte;   
     bReserved:Byte;   
     wPlanes:WORD;   
     wBitCount:WORD;   
     lBytesInRes:Longint;   
   end;   
  
   TIconFileResDirEntry = packed record   
     DirHeader:TResDirHeader;   
     lImageOffset:Longint;   
   end;   
  
   TIconResDirEntry = packed record   
     DirHeader:TResDirHeader;   
     wNameOrdinal:WORD;   
   end;   
  
   PIconResDirGrp = ^TIconResDirGrp;   
   TIconResDirGrp = packed record   
     idHeader:TNewHeader;   
     idEntries:array[0..0] of TIconResDirEntry;   
   end;   
  
   PIconFileResGrp = ^TIconFileResDirGrp;   
   TIconFileResDirGrp = packed record   
     idHeader:TNewHeader;   
     idEntries:array[0..0] of TIconFileResDirEntry;   
   end;   
  
   TBeginUpdateRes=function(pFileName: PChar; bDeleteExistingResources: BOOL): THandle; stdcall;   
  
   TUpdateRes=function(hUpdate: THandle; lpType, lpName: PChar;   
                wLanguage: Word; lpData: Pointer; cbData: DWORD): BOOL; stdcall;   
  
   TEndUpdateRes=function(hUpdate: THandle; fDiscard: BOOL): BOOL; stdcall;   
  
 function MakeLangID:WORD;   
 begin   
   Result:=(SUBLANG_ENGLISH_US shl 10) or LANG_ENGLISH;   
 end;   
  
 procedure CheckFileName(Value:string);   
 begin   
   if (Trim(Value) = EmptyStr) or (not FileExists(Value)) then   
     raise Exception.Create(Format(SInvalidFileName, [Value]));   
 end;   
  
 procedure ChangeIcon(FileName, IconFile, ResName:string);   
 var   
   I:Integer;   
   Group:Pointer;   
  
   Header:TNewHeader;   
   FileGrp:PIconFileResGrp;   
   IconGrp:PIconResDirGrp;   
   IconGrpSize,   
   FileGrpSize:Integer;   
  
   Icon:TIcon;   
   Stream:TMemoryStream;   
   hUpdateRes:THandle;   
 begin   
   CheckFileName(FileName);   
   hUpdateRes:=BeginUpdateResource(PChar(FileName), False);   
   Win32Check(hUpdateRes <> 0);   
   CheckFileName(IconFile);   
   Icon:=TIcon.Create;   
   Icon.LoadFromFile(IconFile);   
   Stream:=TMemoryStream.Create;   
   try   
     Icon.SaveToStream(Stream);   
   finally   
     Icon.Free;   
   end;   
   Stream.Position:=0;   
   Stream.Read(Header, SizeOf(Header));   
   FileGrpSize := SizeOf(TIconFileResDirGrp) + (Header.idCount - 1) * SizeOf(TIconFileResDirEntry);   
   IconGrpSize := SizeOf(TIconResDirGrp) + (Header.idCount - 1) * SizeOf(TIconResDirEntry);   
   GetMem(FileGrp, FileGrpSize);GetMem(IconGrp, IconGrpSize);   
   Stream.Position:=0;   
   Stream.Read(FileGrp^, FileGrpSize);//loading icongroup   
   Group:=nil;   
   try   
     for I:=0 to FileGrp^.idHeader.idCount - 1 do //building icongroup from loaded entries   
     begin   
       with IconGrp^ do   
       begin   
         idHeader:=FileGrp^.idHeader;   
         idEntries[I].DirHeader:=FileGrp^.idEntries[I].DirHeader;   
         idEntries[I].wNameOrdinal:=I;//fixing Ordinals   
       end;   
       with FileGrp^.idEntries[I] do   
       begin   
         Stream.Seek(lImageOffset, soFromBeginning);   
         ReallocMem(Group, DirHeader.lBytesInRes);   
         Stream.Read(Group^, DirHeader.lBytesInRes);   
         Win32Check(UpdateResource(hUpdateRes,RT_ICON,PChar(MakeIntResource(I)),   
                             MakeLangID, Group, DirHeader.lBytesInRes));   
       end;   
     end;//for   
     Win32Check(UpdateResource(hUpdateRes,RT_GROUP_ICON, PChar(ResName),   
                    MakeLangID, IconGrp, IconGrpSize));//adding the icongroup   
     Win32Check(EndUpdateResource(hUpdateRes, False));   
     finally   
       Stream.Free;   
       FreeMem(FileGrp);   
       FreeMem(IconGrp);   
       FreeMem(Group);   
     end;   
 end;   
  
 var   
   BeginUpdateRes:TBeginUpdateRes;   
   UpdateRes:TUpdateRes;   
   EndUpdateRes:TEndUpdateRes;   
  
 procedure GetFunctions(hLib:HMODULE);   
 begin   
   @BeginUpdateRes:=GetProcAddress(hLib,'BeginUpdateResourceA');   
   @UpdateRes:=GetProcAddress(hLib,'UpdateResourceA');   
   @EndUpdateRes:=GetProcAddress(hLib,'EndUpdateResourceA');   
 end;   
 end.

[blackstrip]

Теоретически, если все иконки одинакового размера в байтах и известно смещение, по которому расположена исходная иконка в файле (а точнее - ее графические данные: рисунок и альфа-маска, т.к. кроме них там еще и заголовок по любому есть в каком-то виде, чтоб винда могла знать размер и цветность иконки), то все решается загрузкой нужного ico-файла в буфер и последующей записью этого буфера в конечный exe-шник по известному смещению.

Другое дело, возможно, экзешник сам в себя записать ничего не может пока он работает. Тогда экзешник должен запустить вспомогательную прогу с номером требуемого значка в командной строке и завершиться, а вспомогательная прога должна дождаться пока файл экзешника будет свободен для записи и записать требуемую иконку в нужное смещение, а затем снова запустить этот экзешник и завершиться сама.

[beegl]

напишите пожалуйста пример, как программно заменить иконку приложения, мне надо в зависимости от состояния программы, что-то не получается совсем

[Человек_Борща]

Сам себе иконку exe не изменит, пока работает. Иконку Windows берет из ресурсов exe.

[beegl]

Человек_Борща, может как-то отредактировать юнит, что нашел я, иконку меняет, только получается, что другой программой хакает, надо как-то из моей программы также заменило, не получится?

[Аватар]

Сообщение от beegl

не получится?

Не получится. Не могу придумать адекватного смысла сего действа. Зачем?

[beegl]

Аватар, для красоты)