Народ извените за вторжение мне нужна ваша помощь!!!
У меня тут такая проблема я хочу создать программу для тестирования (Курсовик)
Вопросы у меня набираются в RichEdit и я их сохраняю как rtf Файла но для теста несодавать же n -ное кол-во файлов я их решил програмно затолкать в res затолкать затолкал а вот считать возникли проблемы.
Может кто знает как считывать данные напрямую из *.Res файла как это делает Restarator и другие проги.
Хотел всё в Ini но у него на запись потока нет ограничений а вот на чтение встрял 1280 байт инеболее ну неразбивать же их на части.

http://vingrad.ru/DELPHI-SRC-000003
Добавлено @ 10:29
http://forum.vingrad.ru/index.php?showtopic=21183&st=15

Alex

Теперь проблема Пытаюсь загрузить файл но он его не создает просто пролетает и всё
Неработает код:

Код

var  hUpdateRes: THandle; begin  hUpdateRes:= BeginUpdateResource('Project1.dll', FALSE);  notLang:= True;  try    if not LoadFileResource(hUpdateRes, 'RT_RCDATA','W1','B.Rtf') then    showMessage('');  finally    notLang:= False;  end;  EndUpdateResource(hUpdateRes, FALSE); end;

может у тебя есть пример как загрузить и выгрузить ресурсы из DLL

Это сообщение отредактировал(а) Girder - 3.5.2005, 16:10

Цитата

может у тебя есть пример как загрузить и выгрузить ресурсы из DLL

Код

{$IFDEF WIN32}   const BadDllLoad = 0;   {$ELSE}   const BadDllLoad = 32;   {$ENDIF}   procedure TForm1.Button1Click(Sender: TObject);   var     h : THandle;       Icon : THandle;   begin     h := LoadLibrary('RESTEST.DLL');     if h <= BadDllLoad then       ShowMessage('Bad Dll Load')     else begin       Icon := LoadIcon(h, 'ICON_1');       DrawIcon(Form1.Canvas.Handle, 10, 10, Icon);       FreeLibrary(h);     end;   end;

Взято с DRKB

Poseidon

Это пример выгрузки иконки из Dll
А как загрузить файл в неё причем любой с типом RCDATA