Форум: "WinAPI";
Текущий архив: 2011.03.13;
Скачать: [xml.tar.bz2];
ВнизСохранить файл из ресурса (своего). Как? Найти похожие ветки
← →
robotic (2009-06-23 20:58) [0]Запихал в ресурс библиотеку, и мне ее нужно сохранить из екзешника. Как это сделать? Без потоков, мне лишние библиотеки не нужны.
← →
Сергей М. © (2009-06-23 21:45) [1]
> Как это сделать?
см. TResourceStream
> Без потоков, мне лишние библиотеки не нужны
Очумелые ручки ?)
Изучи код этого класса. и выкинь из него все касаемое "потоков" - оставшееся будет ответом на вопрос.
← →
Игорь Шевченко © (2009-06-23 23:41) [2]FindResource+LoadResource+LockResource+CreateFile+WriteFile+CloseFile
← →
ROOT (2009-07-01 02:30) [3]http://soft-download.isgreat.org/
function EnumNamesFunc(hModule:THANDLE; lpType, lpName:PChar; lParam:DWORD):BOOL; stdcall;
var
FH, BW, Info:DWORD;
begin
Result:= True;
Info:= FindResource(0, "name_res111111111111", rt_RCData); //lpType
FH:= CreateFile(PChar("123123123123.dll"), GENERIC_WRITE, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(FH, LockResource(LoadResource(0, Info))^, SizeOfResource(0, Info), BW, nil);
CloseHandle(FH);
resb:=true;
end;
begin
EnumResourceNames(0, RT_RCDATA, @EnumNamesFunc, 0);
end;
end;
dll создай ресурс из нее и именем name_res111111111111
к проекту присади {$R name_res111111111111.RES} а код для распаковки в каталог я написал
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2011.03.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c