하드웨어 가속 기능 끄기

procedure HardwareAcceleration(level: integer);
var
Reg: TRegistry;
reg_key: string;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
reg_key := '\HARDWARE\DEVICEMAP\VIDEO\';
if reg.OpenKey(reg_key, false) then
begin
reg_key := reg.ReadString('\Device\Video0');
reg_key := StringReplace(reg_key, '\Registry\Machine', '', [rfReplaceAll]);
if reg.OpenKey(reg_key, false) then
begin
if level = 0 then reg.DeleteValue('Acceleration.Level')
else reg.WriteInteger('Acceleration.Level', level);
end;
end;
finally
reg.CloseKey;
reg.Destroy;
ChangeDisplaySettings( TDevMode( nil^ ), CDS_UPDATEREGISTRY );
end;
end;