Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

← →
rimas   (2003-10-25 13:23) [0]

Подскажите пожалуйста,как извлечь файл из ресурсного файла.

---

← →
Rouse_   (2003-10-25 13:59) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Res : TResourceStream;
i: Byte;
begin
if Button1.Caption = "Установить" then begin
for i:= 0 to 9 do
begin
Res := TResourceStream.Create(Hinstance, "WAVERES"+inttostr(i), PChar("wav"));
try
Res.SavetoFile(Edit1.Text + "\Sounds\Requests\"+inttostr(i)+".wav");
except
ShowMessage("Проверьте правильность ввода пути.");

end;
Res.Free;
end;
...
end;

Желаю успехов

---

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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

Память: 0.43 MB
Время: 0.034 c