Delphi .res Ressourcennamen

[sevenex]

Das stimmt ich kenne die Namen... nur das sind 126 Bilder (png's) diese möchte ich nicht einzelt laden, sondern in einer schleife.
Die Ressourcennamen sollen allerdings so bleiben, sprich ich kann nicht aus denn namen so eine art zähler machen.

[wicht]

Wenn dich das in dem Link oben verwirrt, so geht es auch. Ist zwar viel simpler aber sollte für deine Zwecke reichen. Das 'IsIntResource' habe ich da drin, weil ich meinen Resourcen nur Namen und keine Nummern gebe.

Delphi-Quellcode:

var
  Resources: TStringList;

function EnumResNameProc(hModule: HINST; lpszType: PChar; lpszName: PChar; lParam: LPARAM): BOOL; stdcall;
  function IsIntResource(lpszType: PChar): Boolean;
  begin
    Result := ((DWORD(lpszType) shr 16) = 0);
  end;
begin
  if not IsIntResource(lpszName) then
  begin
    if lpszType = RT_RCDATA then
      Resources.Add(lpszName);
  end;
  Result := True;
end;

So aufrufen:

Delphi-Quellcode:

Resources := TStringList.Create;
try
  EnumResourceNames(HInstance, RT_RCDATA, @EnumResNameProc, 0);
  { ... }
finally
  Resources.Free;
end;