[BCB] Vista 이상의 운영체제에서 폼 스크롤 생성 시 스킨이 바뀌는 문제 (6이하버전)

폼의 크기를 변경할 때 내부 컨트롤이 폼 크기 안에서 다 보여지지 않을 경우 자동으로 스크롤이 생긴다. (TScrollingWinControl 의 기능)
이때, 6버전 이하의 경우 폼의 스킨이 윈도우에 설정 된 스킨이 아닌 XP 스킨 비슷한 것으로 바뀐다. (Delphi7 에서는 발생하지 않아 6버전 이하라고 추측함)
이에 대한 해결책은 호환 모드를 변경하여 실행시 하위 OS 호환 모드로 실행하는 것으로,
레지스트리에 키를 하나 만들어 주는 것으로 해결된다.
(그래도, 최고의 해결책은 Aero 를 지원하는 상위버전(최신 버전이 가장 좋을 듯)의 개발툴을 사용하는 것이다.) 

아래는 실행 시 자동으로 실행파일을 WinXP SP3 호환 모드로 바꿔주는 코드이다.

#include <Registry.hpp>

    bool bAllUser = true; // TODO: 전체유저에 대해 변경하지 않을 경우 false
    TRegistry *pRegistry = new TRegistry;
    try
    {
        pRegistry->RootKey = (bAllUser == false? HKEY_CURRENT_USER: HKEY_LOCAL_MACHINE);
        if (pRegistry->OpenKey("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\AppCompatFlags\\Layers", false) == true)
        {
            String sName = ParamStr(0);
            String sCompatible = pRegistry->ReadString(sName);
            if (sCompatible.IsEmpty() == true)
                sCompatible = "WINXPSP3";
            else if (sCompatible.Pos("WINXPSP3") == 0)
                sCompatible.cat_sprintf(" WINXPSP3");
            else
            {
                // TODO: 호환모드가 아니므로 재실행
            }
            pRegistry->WriteString(sName, sCompatible);
        }
        else
        {
            // TODO: 레지스트리 키 열기 실패
        }
    }
    __finally
    {
        delete pRegistry;
    }