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

← →
TeNY © (2005-02-12 19:04) [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;

← →
panov © (2005-02-12 19:05) [1]

Вопрос не соответствует теме конференции.

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