как правильно использовать функцию EnumResourceNames.

← →
TeNY © (2005-02-12 19:08) [0]

как правильно использовать функцию EnumResourceNames.
Имеется код,как сделать так чтобы моя программа показывала имена ресурсов?
function EnumResNameProc( hModule:HWND; // resource-module handle lpszType:LPCTSTR; // pointer to resource type lpszName:LPCTSTR; // pointer to resource name lParam:Cardinal):BOOL; // application-defined parameter begin ShowMessage("d"); end; procedure TForm1.Button1Click(Sender: TObject); var hResLoad:HRSRC; // handle to loaded resource hExe:HWND ; // handle to existing .EXE file hRes:HRSRC; // handle/ptr. to res. info. in hExe hUpdateRes:HWND; // update resource handle lpResLock:PChar; // pointer to resource data result:BOOL; begin if OpenDialog1.Execute then begin hExe := LoadLibrary(pchar(OpenDialog1.FileName)); while EnumResourceNames(hExe,RT_ICON,@EnumResNameProc,0) do end; end;

← →
GuAV © (2005-02-12 20:34) [1]

>function EnumResNameProc(
> hModule:HWND; // resource-module handle
> lpszType:LPCTSTR; // pointer to resource type
> lpszName:LPCTSTR; // pointer to resource name
> lParam:Cardinal):BOOL; stdcall; // application-defined
>parameter
>
>begin
>ShowMessage("d");
Result := True; // continue enumeration.
> end;

Кстати, в http://kladovka.com.ru/ появился модуль для того чтобы делать эти EnumХхххх методами.

← →
TeNY © (2005-02-12 20:55) [2]

> Кстати, в http://kladovka.com.ru/ появился модуль для того
> чтобы делать эти EnumХхххх методами.

Кстати, как он называется?

← →
GuAV © (2005-02-12 21:27) [3]

MakeInstance.zip в Home / Units

> while
>EnumResourceNames(hExe,RT_ICON,@EnumResNameProc,0)
> do

не заметил.

wjile..do убрать, иначе бесконечный цикл возможен.

как правильно использовать функцию EnumResourceNames. Найти похожие ветки