Главная страница
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.037 c
1-41324
qwe
2003-10-30 17:59
2003.11.13
Классы


9-40763
higor
2003-05-05 07:54
2003.11.13
Изменение разрешения экрана в Delphi


3-40877
BKGG
2003-10-21 09:27
2003.11.13
Можно ли как ни будь распознать какой базе принадлежить файл


1-41585
Anatolyk
2003-10-26 20:01
2003.11.13
Многострочный DBGrid?


3-41033
Andrey V.
2003-10-15 08:47
2003.11.13
Туманный вопрос про дбгрид