Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Как сохранить файлы находяшиеся в ресурсах программы   Найти похожие ветки 

 
BABY   (2005-09-23 13:35) [0]

Как будет выглядеть функция на Delphi для сохранения нужного мне ресурса на диске. На Visual Basic у меня выглядело так:

Private Function SaveFile(SF_B As Byte, SF_Path As String) As Boolean
Dim SFa() As Byte
On Error GoTo 99
SFa() = LoadResData(SF_B, "CUSTOM")
FileNo = FreeFile
Open SF_Path For Binary Access Write As FileNo
   Put #FileNo, , SFa()
Close FileNo

SaveFile = True
99
End Function


Пробывал такой вариант, ни чего не получается выдает ошибку (EResNotFound, ресурс ааа не найден):

procedure TForm1.Button2Click(Sender: TObject);
begin
 ExtractRes("EXEFILE", "aaa", "rar.exe");
end;

Procedure TForm1.ExtractRes(ResType, ResName, ResNewName : String);
var
 Res : TResourceStream;
begin
 Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
 Res.SavetoFile(ResNewName);
 Res.Free;
end;


 
TUser ©   (2005-09-23 14:21) [1]

См. TResourceStream. Загрузи из ресурса и вызови метод SaveToFile


 
Zeqfreed ©   (2005-09-23 14:29) [2]

BABY   (23.09.05 13:35)
Смотри в справке возможные значения параметра ResType.



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

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.041 c
2-1125092597
ronyn
2005-08-27 01:43
2005.10.16
Как в Делфе анимацию типа *.gif реализовать?


1-1127831282
Игорь Степанов
2005-09-27 18:28
2005.10.16
Программное управление скоростью повтора кода клавиши


3-1125981973
DrAndrey
2005-09-06 08:46
2005.10.16
ХП с параметрами, возвр. набор данных , при поиске в базе


4-1124106668
Knop
2005-08-15 15:51
2005.10.16
Написать на Canvas


2-1126347106
Asprofi
2005-09-10 14:11
2005.10.16
Как перевести число в обратном порядке?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский