Изменить тему без предупреждения?

[dplz]

Всем день добрый. Делаю программу, которая изменяет файл текущей темы и применяет его без предупреждения. Так вот два вопроса:
1. Как узнать какая тема установлена?
2. Как применить её без предупреждения. Нажал на кнопку, она применилась...
спасиб.

 

[dplz]

Решил делать все через реестр, сделал так:

procedure TForm1.btn1Click(Sender: TObject);
var
R: TRegistry;
begin
R := TRegistry.Create;
R.RootKey := HKEY_CURRENT_USER;
R.OpenKey('Control Panel\Colors', True);
R.WriteString('Hilight', 0 0 0);
R.CloseKey;
R.Free;
end;

В итоге что бы применился параметр темы, то нужно перезагрузить пк. Как сделать переход мгновенным? Перезагрузка explorer'a не помогает