Ressourceskript:
Anne RCDATA Anne.jpg
Exe:
procedure ExtractResFromDLL(DLLName: String; ResName: String; Filename: String; ResType: PChar);
var
dll: THandle;
ResStream: TResourceStream;
begin
dll := LoadLibraryEx(PChar(DLLName), 0, LOAD_LIBRARY_AS_DATAFILE);
if dll <> 0 then
begin
ResStream := TResourceStream.Create(dll, ResName, RT_RCDATA);
try
try
ResStream.SaveToFile(Filename);
except
on E: Exception do
raise Exception.Create(E.Message);
end;
finally
ResStream.Free;
end;
end
else
RaiseLastOSError;
end;