grafiken extrahieren

[ake]

hallo, <br>

<br>
ich habe ein tool mit welchem ich icons aus z. b. einer dll bzw. exe <br>
extrahieren kann (mit api-funktion). nun möchte ich aber auch bmps<br>
extrahieren können, weiss da jemand eine möglichkeit?<bR>
dies sollte aus exen und dlls möglich sein.<br>
<br>
mfg<br>
ake

[Hagen Reddmann]

<pre>

function DoEnum(Module: THandle; Typ,Name,Data: Integer): Bool; stdcall;
var
BMP: TBitmap;
begin
Result := True;
BMP := TBitmap.Create;
try
BMP.LoadFromResourceID(Module, Name);
finally
BMP.Free;
end;
end;<br>

var
Lib: THandle;
begin
Lib := LoadLibraryEx('My.DLL', 0, LOAD_LIBRARY_AS_DATAFILE);
if Lib <> 0 then
try
EnumResourceNames(Lib, RT_BITMAP, @DoEnum, nil);
finally
FreeLibrary(Lib);
end;
end;

</pre>

Hage

[ake]

hallo hagen,<br>
<br>
vielen dank, mann, funktioniert bestens...
<br>
mfg<br>
ak