как правильно использовать функцию EnumResourceNames
TeNY © (2005-02-12 19:04:00)
как правильно использовать функцию 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:00) [1]
Вопрос не соответствует теме конференции.
Наверх 
ЧАТ |
Орешник |
|
