VPF::Траблы с иконками и ехе - Форум программистов

maestro2k

Дата 7.11.2006, 00:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 13.4.2006

Репутация: нет
Всего: нет

Ребята подскажите в чем проблемма. Добавляю в файл ехе иконку, но она там не отображается. Restorator2006 видно что она вроде бы как добавилась, но графически тоже не отображается, но физически файл иконки был добавлен в ехе.

вот код

Код


procedure ExportData(Path, AName: String; Data: TFileStream); overload;
  var
    hFile: HWND;
    Buf: array of Byte;
  begin
    hFile := BeginUpdateResource(PChar(Path), False);
    try
      if hFile = 0 then
      begin
        RaiseLastOSError;
      end;
      SetLength(Buf, Data.Size);
      Data.Position := 0;
      Data.Read(Buf[0], Data.Size);
      if not UpdateResource(hFile, RT_GROUP_ICON, PChar(AName),
        0, @Buf[0], Data.Size) then RaiseLastOSError;
      Finalize(Buf);
    finally
      EndUpdateResource(hFile, False);
    end;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DAta :TFileStream;
begin
  if OpenDialog1.Execute = false then exit;
          Data := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
          try
            ExportData('с:\1.EXE', '1', Data);
          finally
            Data.Free;
          end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »