Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Извлечение из ресурсов   Найти похожие ветки 

← →
Hacker.   (2003-05-03 08:37) [0]

Как извлекать все из ресурсов? умею только иконки, BMP-шки и курсоры, но если в иконке несколько иконок, то извлечь не получается.

---

← →
Morfein ©   (2003-05-03 08:40) [1]

Hacker, ты бы хоть код привёл, которым ты делаешь это великое дело :))

---

← →
Hacker.   (2003-05-05 10:38) [2]

Какое? иконки достаю? если да, то:


function CursorFromRes(Instance: THandle; ResID: PChar): TCursor;
var
Handle: HCursor;
begin
Handle := LoadCursor(Instance, ResID);
if Handle = 0 then ShowMessage("Ресурс не найден");
for Result := 100 to High(TCursor) do { Look for an unassigned cursor index }
if (Screen.Cursors[Result] = Screen.Cursors[crDefault]) then begin
Screen.Cursors[Result] := Handle;
Exit;
end;
DestroyCursor(Handle);
ShowMessage("Некуда создать курсор");
end;

function BitmapFromRes(Module: THandle; ResID: PChar): TBitmap;
var
S: TStream;
begin
Result := TBitmap.Create;
try
if Module <> 0 then begin
if LongRec(ResID).Hi = 0 then
Result.LoadFromResourceID(Module, LongRec(ResID).Lo)
else
Result.LoadFromResourceName(Module, StrPas(ResID));
end
else begin
Result.Handle := LoadBitmap(Module, ResID);
if Result.Handle = 0 then ResourceNotFound(ResID);
end;
except
Result.Free;
Result := nil;
end;
end;

function IconFromRes(Module: THandle; ResID: PChar): TIcon;
begin
Result := TIcon.Create;
Result.Handle := LoadIcon(Module, ResID);
if Result.Handle = 0 then begin
Result.Free;
Result := nil;
end;
end;



---

← →
крот ©   (2003-05-05 11:23) [3]

ExtractIcon

---

← →
Hacker.   (2003-05-06 09:39) [4]

> крот © (05.05.03 11:23)
> ExtractIcon

Тогда только первая иконка(хоть и так нормально), а как извлекать Звуки строковые константы, Версию, Gif-ы, AVI-шки, и просто всякую фигню.

---

← →
крот ©   (2003-05-06 11:02) [5]

В DELPHI 5 был пример в папке Demos\Resxplor. Эта программа вытаскивала все ресурсы. А вообще, в MSDN опубликован формат заголовка исполняемого файла (где точно не помню). Там описано как храняться ресурсы.

---

← →
Hacker.   (2003-05-07 12:13) [6]

>
> крот © (06.05.03 11:02)
> В DELPHI 5 был пример в папке Demos\Resxplor. Эта программа
> вытаскивала все ресурсы. А вообще, в MSDN опубликован формат
> заголовка исполняемого файла (где точно не помню). Там описано
>


Точно!!! Какже я сам недодумался, СПАСИБО!!!

---

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

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c