Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как получить из ЕХЕ - RT_RCData

Автор: SyncMaster 14.7.2006, 03:27

Здравствуйте – вот хотел бы задать вопрос, как в дельфи реализовать – вот такое

Button (открыть) нажимаем появляется Dialog выбираем файл exe или dll – загружаем файл, далее в Memo выводим листинг нужно вывести RT_RCData там где TFORM1, после чего можно поменять на пример Caption = ‘help’ то есть то что в кавычках на пример Caption = ‘Помощь’ далее жмем на Button (Сохранить) сохраняем файл, при запуски программы за место Help будет помощь, надеюсь нормально изложил суть того что хочу сделать если нет то могу сказать что
надо сделать на подобия проги (ResHack или ей подобной).

Знаю как получить RT_RCData исполняемого ЕХЕ -

Код

procedure TForm1.Button1Click(Sender: TObject);
   var
  MemStr: TStream;
begin
  MemStr := TMemoryStream.Create;
  try
    MemStr.WriteComponent (Self);
   ConvertAndShow (MemStr);
  finally
    MemStr.Free
  end;
end;

procedure TForm1.ConvertAndShow (aStream: TStream);
var
  ConvStream: TStream;
begin
  aStream.Position := 0;
  ConvStream := TMemoryStream.Create;
  try
    ObjectBinaryToText (aStream, ConvStream);
    ConvStream.Position := 0;
    Memo1.Lines.LoadFromStream (ConvStream);
  finally
    ConvStream.Free
  end;
end;

а как сделать это с другим ЕХЕ и потом его сохранить незнаю. smile

С уважением SyncMaster - заранее большое спасибо.

P.S не судите строга я только учусь.

Автор: Alex 14.7.2006, 06:40

http://forum.vingrad.ru/index.php?showtopic=21183&st=0