Как заставить приложение показывать различные иконки при различных разрешениях дисплея?

Previous Top Next

Для этого достаточно текущее разрешение экрана и в соответствии с ним изменить дескриптор иконки приложения. Естевственно, что Вам прийдётся создать в ресурсах новые иконки.

Поместите следующий код в файл проекта (.DPR) Вашего приложения:

Code:

Application.Initialize;

Application.CreateForm(TForm1, Form1);

case GetDeviceCaps(GetDC(Form1.Handle), HORZRES) of

640: Application.Icon.Handle := LoadIcon(hInstance, 'ICON640');

800: Application.Icon.Handle := LoadIcon(hInstance, 'ICON800');

1024: Application.Icon.Handle := LoadIcon(hInstance, 'ICON1024');

1280: Application.Icon.Handle := LoadIcon(hInstance, 'ICON1280');

end;

Application.Run;

©Drkb::00339

Взято из http://forum.sources.ru