natürlich:
wenn der User 1024x768 Pixel hat, und das Form maximiert wird, hat es ja 1024x768 Pixel, aber du brauchst 800x600.
Bildschirmauflösung ändern geht damit:
Delphi-Quellcode:
function ChangeResolution(XResolution, YResolution, Depth: DWORD): BOOL;
var
DevMode: TDeviceMode;
i: Integer;
begin
Result := False;
i := 0;
while EnumDisplaySettings(nil, i, DevMode) do
with DevMode do
begin
if (dmPelsWidth = XResolution) and
(dmPelsHeight = YResolution) and
(dmBitsPerPel = Depth) then //CDS_UPDATEREGISTRY wenn Auflösung systemweit geändert wird
if ChangeDisplaySettings(DevMode, [CDS_FULLSCREEN]) =
DISP_CHANGE_SUCCESSFUL then
begin
Result := True;
SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0);
Break;
end;
Inc(i);
end;
end;
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates