Load AVI from resource

[WojTec]

Just lame question, how to load AVI from resource of another file to TAnimate component? I have this and don't working:

Delphi-Quellcode:

var
  Handle: THandle;
begin
  Handle := CreateFile('C:\Windows\System32\shell32.dll', GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  Animate1.ResHandle := Handle;
  Animate1.ResName := '165';
end;

:?:

[Sir Rufo]

Did you have had a look at the docs?

TAnimate.ResName

[WojTec]

Yes, this is resource name, aren't they? I checked that in this DLL sample AVI is identified by 165, and I don't know if it's numeric name or real integer :?

Delphi-Quellcode:

if StrToIntDef(ResName, -1) <> -1 then
  Animate.ResId := StrToInt(ResName)
else
   Animate.ResName := ResName
;

This still don't working :(

[Sir Rufo]

You have to get a ModuleHandle and not a FileHandle.

To do so load the library LoadLibrary and pass that handle to the component.
TAnimate Sample
(But first you have to set the handle and then the Id or Name)

[WojTec]

Acha! Library handle, not file handle. This was main reason it want not to work. Thanks :-D