Change Screan REsolution

Imam edna funkcia koqto mi smenq resolution'a na desktopa no kogato q smenq se smenq samo razmera na ekrana a ne na ikoite i na ToolBara Ako nqkoy mi pomogne w slucaq shte mu buda priznat :

Eto q i procedurata

var
DevMode : TDeviceMode;
liRetValue : Longint;
begin

if EnumDisplaySettings(nil,ComboBox1.ItemIndex,Devmode) then
liRetValue := ChangeDisplaySettings(DevMode, 0);

W ComboBoxa predwaritelno se zarejdat razlichni sto\ynostti ot tipa

640x480 16777216 Colors
800x600 16777216 Colors
1024x768 16777216 Colors
1152x864 16777216 Colors
1280x1024 16777216 Colors
1600x1200 16777216 Colors



10x predwaritelno;

Виж [линк]
За да "усетят" другите програми, че си сменил резолюцията, трябва да им пуснеш съобщение:
SendMessage(HWND_BROADCAST,WM_DISPLAYCHANGE,SPI_SETNONCLIENTMETRICS,0);

чети и дишай по-леко

10X mngo ama neshto pak ne raboti kakto trqbwa az tozi primer go bql wzel ot Delphi3000 i kato gledam toy si e napulno sushtia bez nikakwa razlika samo deto sa dobavili nakraya SendMessage!!

Wse pak blagodarq!!!

Interstnoto e che ne promenq cwetowete w 256 a ne kakto se zadawa 16bit; I hercite na monitora si gi ostawq na twyrdo 65 i tolkowa
:((
Mnogo chudno kak taka????