Работа с ресурсами без TResourceSteram

Code:

function GetResourceList: Boolean;

var

Errors: Cardinal;

function CallBack(hModule: HMODULE; lpType: PChar;

   lpzName: LPTSTR; lParam: Longint): BOOL; stdcall;

var

   Size: Cardinal;

begin

   Result := True;

   if Assigned(lpzName) then

   begin

     Size := Length(ResourceName);

     Inc(Size);

     SetLength(ResourceName, Size);

     ResourceName[Size - 1] := ShortString(lpzName);

     if (ResourceName[Size - 1] <> 'RES_INI') and

         (ResourceName[Size - 1] <> 'RES_MDB') then

       Inc(Errors);

   end;

end;

begin

Result := True;

ResourceName := nil;

Errors := 0;

EnumResourceNames(HInstance, 'INSTALL', @CallBack, 0);

if (Length(ResourceName) <> 2) or (Errors > 0) then

begin

   MessageBox(Handle, PChar(ERR_CORRUPT), PChar(ERR_GLOBAL),

     MB_OK + MB_ICONERROR);

   Result := False;

   PostQuitMessage(0);

end;

end;