Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: 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 вся ветка

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
11-1165910389
КВАНТ
2006-12-12 10:59
2007.07.22
KOLRichEdit.URL & VCLRichEdit.URL


15-1182710878
FIL-23
2007-06-24 22:47
2007.07.22
сканер кода


15-1182442216
oxffff
2007-06-21 20:10
2007.07.22
Codegear Roadmap


15-1182770012
DrAndrew
2007-06-25 15:13
2007.07.22
Как записать значение языка в ini файл при инсталляции Inno Setup


15-1182025715
rumpelshtilchen
2007-06-17 00:28
2007.07.22
Язык