Главная страница
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.027 c
15-1182259369
Rponsh
2007-06-19 17:22
2007.07.22
Танчики(на Turbo pascal)


2-1182842469
;
2007-06-26 11:21
2007.07.22
Как Dump-нуть процесс в файл?


2-1182771451
юзар
2007-06-25 15:37
2007.07.22
юзернаме


15-1182484847
db2admin
2007-06-22 08:00
2007.07.22
Новая услуга Гугла, поиск кода


1-1179470162
DELORAC
2007-05-18 10:36
2007.07.22
GetDesktopWindow и Application.MessageBox