Discussion :

[paradise]

Bonjour,

Je me demande bien pourquoi ce code fonctionne à merveille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
  resStream: TResourceStream;
begin
  resStream := TResourceStream.Create(HInstance, 'XML_SETTINGS', RT_RCDATA);
  try    
    memo1.Lines.LoadFromStream(resStream);      
  finally
    resStream.Free;
  end;

..mais pas celui-ci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var
  HResInfo: HRSRC;
begin
  HResInfo := FindResource(HInstance, PChar('XML_SETTINGS'), PChar('RT_RCDATA'));
  if HResInfo = 0 then 
    Exit;

Car évidemment HResInfo est toujours à 0.
Des idées svp ?