Хранение файла в ресурсе
Добавлено: 16 сен 2004, 16:58
Зашил в ресурсы программы шаблон для файла. Теперь не могу его достать, чтобы записать на диск. Раньше имел дело только с иконками в ресурсе (TBitmap & etc.). Как быть?
Код: Выделить всё
type
tbuf=array[0..2048] of char;
procedure TForm1.Button1Click(Sender: TObject);
var
hFile,hResInfo,hGlobal:THandle; ResSize:longint; PRes:^tbuf;
Written:Cardinal;
begin
hResInfo:=FindResource(HInstance,'RCDATA_1',RT_RCDATA);
if hResInfo<>0 then begin
hGlobal:=LoadResource(HInstance,hResInfo);
ResSize:=SizeofResource(HInstance,hResInfo);
Pres:=LockResource(hGlobal);
hFile:=CreateFile('C:\qwe.txt',GENERIC_WRITE,0,nil,CREATE_ALWAYS,0,0);
if hFile<>INVALID_HANDLE_VALUE then begin
WriteFile(hFile,PRes^,ResSize,Written,nil);
FileClose(hFile);
end;
end;
end;
Можно дополнить добавляемый в ресурс файл двойным словом со значением его длины, а при извлечении использовать тип
Код: Выделить всё
type
tbuf=record
Len: dword;
Data: array[0..2048] of char;
end;
WriteFile(hFile,PRes^.Data,PRes^.Len,Written,nil);
