Problem mir StringResourcen...

[FriFra]

Sicher!

Codeauszug

Delphi-Quellcode:

  function GetMaxResID: integer;
    function EnumResourceNamesProc(Module: HMODULE; ResType: PChar; ResID:
      Integer; lParam: TStringList): Integer; stdcall;
      function Fill(Wert: string): string;
      begin
        Result := Wert;
        while Length(Result) < 6 do
          Result := '0' + Result;
      end;
    var
      ResourceName: string;
    begin
      lParam.Add(Fill(IntToStr(lParam.Count)) + '-' + Fill(IntToStr(ResID)));
      Result := 1;
    end;
  var
    Buffer: array[0..MAX_PATH] of Char;
    n: integer;
    MyList: TStringList;
  begin
    n := 0;
    MyList := TStringList.Create;
    MyList.Sorted := True;
    windows.EnumResourceNames(hinstance, RT_STRING, @EnumResourceNamesProc,
      Integer(MyList));
    for n := 0 to MyList.Count - 1 do
      showmessage(MyList[n]);

EnumResourceNamesProc wird bei mir ganze 38 mal aufgerufen, obwohl allein meine eigenen Stringresourcen schon 162 Durchläufe auslösen sollten ...