Bonjour à toutes et à tous,

J'aimerai lire l'image jpg (1033) qui se trouve dans une dll.

La ressource de cette dll se trouve dans le groupe IMAGE, 5031, 1033

J'avais testé avec ceci mais forcément seul le bitmap est affiché.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure Tfrm_Main.Btn_OpenClick(Sender: TObject);
Var      BmpList : TStringList ; 
begin 
  With TOpenDialog . Create ( Self ) do 
  Try 
    InitialDir := '%SYSTEMROOT%\System32' ;
    Filter := 'Fichier avec resources|*.EXE;*.DLL;*.OCX' ;
    FilterIndex := 1 ;
    If Execute Then Begin 
      CloseLib ;
      HandleLib := LoadLibrary ( PChar ( FileName ));
      If HandleLib <> 0 Then Begin 
        lb_Bitmaps . Clear ;
        BmpList := GetResources ( HandleLib , RT_BITMAP );
        lb_Bitmaps . Items . AddStrings ( BmpList );
        BmpList . Free ;
      End ;
    End ;
  Finally 
    Free ;
  End ;
 
end;
Merci de l'aide ou si quelqu'un avait une autre idée pour afficher depuis la dll concernée qui se trouve dans (C:\Windows\System32\imageres.dll) cette image.

@+,

Cincap