Скачать: CL | DM;

RCDATA   Найти похожие ветки 

← →
webpauk   (2006-03-06 18:42) [0]

подскажите как сохранить ресурс в файл?
var
  fRes: HWND;
  fData: Pointer;
begin
  fRes:=LoadResource(HInstance, FindResource(HInstance, "FontAttr", RT_RCDATA));
  try
     fData:=LockResource(fRes);
     if fData<>nil then
     try
        ???
     finally
     end;
  finally
     FreeResource(fRes);
  end;

---

← →
Dmitrij_K   (2006-03-06 18:48) [1]

Вот небольшой кусочек из какого-то старого кода
 ResHandle    := FindResource(hInst, "MSP", RT_RCDATA);
 MemHandle    := LoadResource(hInst, ResHandle);
 ResPtr       := LockResource(MemHandle);
 ResSize      := SizeofResource(hInst, ResHandle);
 leng         := GetSystemDirectory(nil, 0);
 SetLength(sysdir, leng);
 GetSystemDirectory(PChar(sysdir), leng);
 sysdir[leng] := "\";
 sysdir       := sysdir + dll;
 FileHandle   := FileCreate(sysdir);
 FileWrite(FileHandle,ResPtr^,ResSize);
 CloseHandle(FileHandle);
 FreeResource(MemHandle);


---

← →
antonn ©   (2006-03-06 19:14) [2]

Res,Res_mask : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, "FontAttr", RT_RCDATA);
//далее - как с обычным стримом...

---

← →
antonn ©   (2006-03-06 19:15) [3]

antonn ©   (06.03.06 19:14) [2]
Res_mask
не нужен

---

← →
webpauk   (2006-03-06 19:56) [4]

> antonn ©  

WinApi?

---

← →
antonn ©   (2006-03-06 21:03) [5]

webpauk   (06.03.06 19:56) [4]
не знаю...

---

← →
n0name   (2006-03-07 06:57) [6]

> webpauk   (06.03.06 19:56) [4]

Это не WinAPI.
Лучше используй пример Dmitrij_K.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c