Utilisation de FindResource ?

Version imprimable

Bonjour,

Je me demande bien pourquoi ce code fonctionne à merveille :

Code:

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:

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 ?

20/10/2010, 19h03
paradise

Autant pour moi, il fallait mettre directement RT_RCDATA et non PChar('RT_RCDATA') :D
Fatigue fatigue....

Bonjour,

Peut-être ceci? :

Code:

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

Edit: j'arrive trop tard :lol: