Главная страница
    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.45 MB
Время: 0.037 c
1-1127382668
Ega23
2005-09-22 13:51
2005.10.16
Генерация GUID


14-1127426503
vimst
2005-09-23 02:01
2005.10.16
вопрос об процессе в виндах


14-1127733767
Внук
2005-09-26 15:22
2005.10.16
НИОКР


2-1127088899
antoxa2005
2005-09-19 04:14
2005.10.16
Всем вопросам вопрос. А как получить значения подписи полей в Acc


8-1116958075
ALL
2005-05-24 22:07
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский