Windows 任务栏和分辨率

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
我在程序中将屏幕分辨率由低改到高后,Windows 任务栏总是停留在屏幕中央,我想用 以下代码将它放到屏幕底部,却总是不行,请各位告诉我应该怎样做才行,最好给出代码,
谢谢。
var abp:Tappbardata;
begin
……
abp.hWnd:=FindWindow('shell_traywnd',0);
abp.uEdge:=ABE_BOTTOM;
SHAppBarMessage(ABM_SetPos,abp);
……
end;
因为你修改分辨率时,没有更新注册表
function TForm1.DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL;
// ^^^^^^^^^^^^^^^^^^
end;
end;
 
顶部