Скачать: CL | DM;

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

← →
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)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c