Resbinder

[_frank_]

das brauchst du nicht (denke ich) das ist ein Pointer auf eine function zum enumerieren aller Resourcen einer Datei.
diese funktion wird für jede gefundene Resource aufgerufen und regelt, was damit passieren soll (in meinem Fall gebe ich einen Zeiger auf eine Listbox mit und hänge die gefilterten Resourcen an diese an).
Wenn es dich trotzdem interessiert oder du es brauchst...hier meine

Delphi-Quellcode:

function EnumDfmNameProc(hModule: THandle; lpszType, lpszName: PChar;
  lParam: Integer): Boolean; stdcall;
var
  rs: TResourceStream;
  Buf: String;
begin
  rs := TResourceStream.Create(hModule, lpszname, lpszType); // load resource in memory
  try
    try
      setlength(buf,4);
      rs.Read(Buf[1], 4); // read the first 4 bytes
      if Buf = 'TPF0' then // is it a DFM resource?
      begin
        TStrings(lParam).Add(StrPas(lpszName));
      end;
    except
      raise;
    end;
  finally
    rs.free;
  end;
  Result := True;
end;

Gruß Frank