Смена разрешения экрана не отображает панель задач

← →
Brand2000 © (2003-04-15 06:25) [0]

Когда я меняю разрешение экрана так:

procedure TForm2.RadioButton1Click(Sender: TObject); var dm : TDEVMODE; begin ZeroMemory(@dm, sizeof(TDEVMODE)); dm.dmSize := sizeof(TDEVMODE); dm.dmPelsWidth := 800; dm.dmPelsHeight := 600; dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; ChangeDisplaySettings(dm, 0); end;
.....

разрешение меняется (на 640*480/800*600) а панель пропадает, но когда я меняю разрешение на 1024*768 всё ок (прога написана при разрешении 1024*768). Как сделать чтобы панель не пропадала.
Тут я нашёл такое:
function SetFullscreenMode:Boolean; var DeviceMode : TDevMode; begin with DeviceMode do begin dmSize:=SizeOf(DeviceMode); dmBitsPerPel:=16; dmPelsWidth:=800; dmPelsHeight:=600; dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT; result:=False; if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL then Exit; Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL; end; end; procedure RestoreDefaultMode; var T : TDevMode absolute 0 тут компилятор говорит<i/> Variable name experected Почему?; begin ChangeDisplaySettings(T,CDS_FULLSCREEN); end; procedure TForm1.Button1Click(Sender: TObject); begin if setFullScreenMode then begin sleep(7000); RestoreDefaultMode; end; Этот вариант тоже скрывает панель задач. Что мне делать.HELP!

← →
Cobalt © (2003-04-15 12:35) [1]

>тут компилятор говорит
Нельзя привязываться к конкретному адресу - это вам не ДОС, там может быть не выделена память.

Не указана версия виндовс - зависит от версии проводника - это ведь его панель. Возможно, с вашей версией виндов задача не решаема.

А что мне делать? Я незнаю.

Смена разрешения экрана не отображает панель задач Найти похожие ветки