Получить список ресурсов и сохранить их отдельно

[Alex Cones]

Комментарии излишни:

[mihali4]

Ну, не знаю...
Попробуйте на примере "BBABORT" - у меня прекрасно его находит...

[Alex Cones]

Может появился новый Induc?:

[mihali4]

Так у вас чепуха какая-то написана...
Я делал так:

procedure TForm1.Button1Click(Sender: TObject);
var ResStream: TResourceStream;
begin
 ResStream:= TResourceStream.Create(HInstance, 'BBABORT', RT_BITMAP);
 ResStream.SaveToFile(dir+'111.bmp');
 ResStream.Free;
end;

[Alex Cones]

Переписал функцию из поста 5 в такую, какая у Вас. Теперь файл сохраняет, НО! Файл недоступен для просмотра...

[raxp]

проблема в приведении типов... то что он сохраняет BBABORT, но не посмотреть, он такой и есть (нет сигнатуры bmp) (reshacker-ом такой же)... интересно другое

Res:= TResourceStream.Create(Hinstance, 'BBABORT', RT_BITMAP); - работает
Res:= TResourceStream.Create(Hinstance, 'BBABORT', pchar('RT_BITMAP')); - не работает
Res:= TResourceStream.Create(Hinstance, 'BBABORT', MakeIntResource(2)); - работает, что понятно, соnst RT_BITMAP = MakeIntResource(2), pansichar тоже не помогает

[raxp]

проблема сохранения по списку решилась...
...теперича надоть порыть как получить список ресурсов из неподключенного ресурса