[Romix]

function StockResourceType(ResType: PChar): string;
begin
if ResType = PChar(14) then
Result:='RT_GROUP_ICON';
end;

function EnumResNamesProc(Module: HMODULE; ResType, ResName: PChar; Ts: TStrings): Integer; stdcall;
begin
if (StockResourcetype(ResType) = 'RT_GROUP_ICON') then
begin
if HiWord(Cardinal(ResName)) <> 0 then
Ts.Add(ResName)
else
Ts.Add(Format('%d', [LoWord(Cardinal(ResName))]));
end;
Result:=1;
end;

function EnumResTypesProc(Module: HMODULE; ResType: PChar; Ts: TStrings): Integer; stdcall;
begin
if (StockResourcetype(ResType) = 'RT_GROUP_ICON') then
begin
EnumResourceNames(Module, ResType, @EnumResNamesProc, Integer(Ts));
end;
Result:=1;
end;
...
EnumResourceTypes(LoadLib, @EnumResTypesProc, Integer(Sl));

Наверное все уже поняли что это!!! Это функции для определения имени/имён ресурса "RT_GROUP_ICON"... Помогите пожалуйста заменить все TStrings на что нибудь альтернативное!!! Может масив какой!!! Или еще что, только что бы использовался или SysUtils.pas или Windows.pas или всё вместе... Заранее благодарен!!!

P.S. И если не трудно то и все String!

[lmikle]

TStringList.
TStrings есть абстрактный базовый класс. Его создавать нельзя.

[Romix]

Сообщение от lmikle

TStringList.
TStrings есть абстрактный базовый класс. Его создавать нельзя.

Да знаю я про TStringList! Мне нужно что бы не использовался модуль Classes!

[Vayrus]

Есть в нете альтернативные модули с TList, явно пытаешься написать на API (или почти 8-) безоконное приложение или как минимум консольник, вот, еще зачем в таком приложении получать инфу о значках или это дело для прикрытия, а на самом деле RC_DATA на прицеле => джойнер ;-)

[Romix]

Есть в нете альтернативные модули с TList, явно пытаешься написать на API (или почти 8-) безоконное приложение или как минимум консольник, вот, еще зачем в таком приложении получать инфу о значках или это дело для прикрытия, а на самом деле RC_DATA на прицеле => джойнер ;-)

Хм.. Возможно беззаконное... Ой.. Прогаварился.. Но какой смысл писать что то беззаконное с такими функциями... Они уже давно палятся всеми антивирусами... Я так для общего развития... Да... Пытаюсь написать на API... Но RC_DATA мне не нужен!!! Именно то что есть!!! Вобщем:

Код:

function StockResourceType(ResType: PChar): string;
begin
if ResType = PChar(14) then
Result:='RT_GROUP_ICON';
end;

function EnumResNamesProc(Module: HMODULE; ResType, ResName: PChar; Ts: TStrings): Integer; stdcall;
begin
if (StockResourcetype(ResType) = 'RT_GROUP_ICON') then
begin
if HiWord(Cardinal(ResName)) <> 0 then
Ts.Add(ResName)
else
Ts.Add(Format('%d', [LoWord(Cardinal(ResName))]));
end;
Result:=1;
end;

function EnumResTypesProc(Module: HMODULE; ResType: PChar; Ts: TStrings): Integer; stdcall;
begin
if (StockResourcetype(ResType) = 'RT_GROUP_ICON') then
begin
EnumResourceNames(Module, ResType, @EnumResNamesProc, Integer(Ts));
end;
Result:=1;
end;

Все TStrings нужно заменить на другую какую переменную!!! Но что бы оканчательная функция:

Код:

EnumResourceTypes(LoadLib, @EnumResTypesProc, Integer(Вот сюда её выводила));

Если закончу с тем что получилось... Могу исходник потом выложить!!! Уже готовой проги!!! Что бы не было сомнений что что-то "беззаконное" пишу!!!

[NumLock]

EnumResourceTypes вызывай с передачей хэндла открытого на запись файла
(CreateFile вместо Integer(Вот сюда её выводила) ) в EnumResNamesProc пиши в файл, т.е. Ts.Add замени на WriteFile
:lol: