hWND = Application.GetWndHandle(); -- дескриптор окна hDC = WinApi.GetDC(hWND); -- контекст устройства strPathFile = _SystemFolder.."\\shell32.dll"; -- путь к библиотеке nXPos = 30; nYPos = 30; -- верхний левый угол иконки for i=1, 10 do -- выборка первых 10 значков -- дескриптор значка hIcon = DLL.CallFunction("shell32.dll", "ExtractIconA", hWND..",\""..strPathFile.."\","..i, DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL); -- рисуем значок DLL.CallFunction("user32.dll", "DrawIcon", hDC..","..nXPos..","..nYPos..","..hIcon, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); -- освобождаем память, связанную со значком DLL.CallFunction("user32.dll", "DestroyIcon", hIcon, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); nYPos = nYPos + 32; end |