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

 

Поместите следующий код в файл проекта (.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;

 

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!