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?

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

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

> webpauk (06.03.06 19:56) [4]

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

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