Извлечь файл из ресурсов и сохранить по указанному пути.
1 2 3 4 5 6 7 |
var resName, resNewName: string; begin resName:= 'txtFile'; resNewName:= 'C:\txtFile.txt'; extractRes(resName, resNewName); end; |
Параметры
resName - имя ресурса
resNewName - путь сохранения файла
Результат
True, если операция успешна, False - если нет.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
function extractRes(ResName, ResNewName: string): Boolean; var res: TResourceStream; begin Result := False; if FindResource(0, PChar(ResName), RT_RCDATA) = 0 then Exit; try res := TResourceStream.Create(Hinstance, Resname, RT_RCDATA); res.Position := 0; res.SavetoFile(ResNewName); Result := True; finally res.Free; end; end; |