Holde styr på ikoner på skrivebordet

Hvis du via DirectX skifter skærm mode går det af sig selv. Jeg ved ikke rigtigt noget om det. Derfor kun en kommentar.

Jens B

Jeg skifter ikke via DirectX men bruger denne funktion:

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
        if ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL then
        begin
          Result := True;
          SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0);
          Application.ProcessMessages;
          break;
        end;
      Inc(i);
    end;
end;

Ja det er det der er "problemet"

Jeg fandt svaret på

http://www.swissdelphicenter.com/en/showcode.php?id=1897