Получение размера иконок

← →
webpauk (2007-05-16 17:41) [0]

function SystemIconSize: Integer; Var Reg: TRegistry; begin Result:=32; try Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey("Control Panel\Desktop\WindowMetrics",False) then Result:=StrToInt(Reg.ReadString("Shell Icon Size")); finally Reg.Free end; end;

вот так можно получить размер иконок, отображаемых Explorer-ом. Проблема в том, что User-а не имеют доступа к реестру (нет admin-прав) и прога глючит.
Можно исчо как-то узнать размер иконки?

← →
webpauk (2007-05-16 17:43) [1]

поправочка: if Reg.OpenKey("Control Panel\Desktop\WindowMetrics\Shell Icon Size",False)...

← →
clickmaker © (2007-05-16 17:51) [2]

> что User-а не имеют доступа к реестру (нет admin-прав

а зачем же туда ломиться с полным доступом?
TRegistry.Create(KEY_READ) недостаточно разве?

к тому же есть и штатные функции GetSystemMetrics, SystemParametersInfo

← →
webpauk (2007-05-16 18:09) [3]

> к тому же есть и штатные функции GetSystemMetrics, SystemParametersInfo

меняю в реестре значение Shell Icon Size - на любое, обновляюсь:

sendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
ShowMessage(Inttostr(GetSystemMetrics(SM_CXICON)));

результат всегда 32!

← →
webpauk (2007-05-16 18:16) [4]

SystemParametersInfo(SPI_GETICONMETRICS,

SPI_ GETICONMETRICS
Только для Windows 95. Позволяет узнать метрики для иконок (структуре TIconMetrics)

Получение размера иконок Найти похожие ветки