Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.46 MB
Время: 0.022 c
1-41552
Иванько
2003-10-27 18:58
2003.11.13
qtintf70.dll


1-41329
MaG
2003-10-30 19:45
2003.11.13
Файл


14-42117
Vlad Oshin
2003-10-24 14:45
2003.11.13
Не кажется ли Вам, что Достоевский доказал вину...


4-42317
Слава
2003-09-04 19:06
2003.11.13
Как перехватить dos ответ


6-41853
needle
2003-09-18 15:38
2003.11.13
Аутентификация NT