[MAXIUM]

Ok, resolví lo siguiente:

Código Delphi [-]
     WinExec(PChar('control desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\WINDOWS\Resources\Themes\Windows Classic.theme"'), SW_NORMAL);
     SetForegroundWindow(FindWindow(nil, 'Propiedades de Pantalla'));
     keybd_event(VK_RETURN, 0, 0, 0);
     keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);

Funciona. Si alguien se anima a depurarlo, se agradece