시스템 종료함수

procedure ShutDown(dwTimeOut : DWord = 0; bForceClose : Boolean = true; bReboot : Boolean = false) ;
var
  PreviosPrivileges: ^TTokenPrivileges;
  TokenPrivileges: TTokenPrivileges;
  hToken: THandle;
  tmpReturnLength: DWord;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then begin
    if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then begin
      LookupPrivilegeValue(Nil, 'SeShutdownPrivilege', TokenPrivileges.Privileges[0].Luid); 
      TokenPrivileges.PrivilegeCount := 1;
      TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      tmpReturnLength := 0;
      PreviosPrivileges := nil;
      AdjustTokenPrivileges(hToken, False, TokenPrivileges, 0, PreviosPrivileges^, tmpReturnLength);

      if InitiateSystemShutdown(Nil, Nil, dwTimeOut, bForceClose, bReboot) then begin
        TokenPrivileges.Privileges[0].Attributes := 0;
        AdjustTokenPrivileges(hToken, False, TokenPrivileges, 0, PreviosPrivileges^, tmpReturnLength);
      end ;
    end ;
  end
  else
  ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN or EWX_POWEROFF, 0);
end ; 

OS버전 체크

procedure GetOSVersion;
var
VersionInfo: TOSVersionInfo;
Platform: string;
MajorVersion,MinorVersion,Build: DWORD;
begin
  VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
  GetVersionEx(VersionInfo);
  
  with VersionInfo do
  begin
  case dwPlatformId of
   VER_PLATFORM_WIN32s:        Platform := 'Windows 3x';
   VER_PLATFORM_WIN32_WINDOWS: Platform := 'Windows 95';
   VER_PLATFORM_WIN32_NT:      Platform := 'Windows NT';
  end;
  
  MajorVersion := dwMajorVersion;
  MinorVersion := dwMinorVersion;
  Build := dwBuildNumber;
  end;
end;

메모리 사용정보

uses
  psAPI;

function GetProcessMemorySize(_sProcessName: string; var _nMemSize: Cardinal): Boolean;
var
  l_nWndHandle, l_nProcID, l_nTmpHandle: HWND;
  l_pPMC: PPROCESS_MEMORY_COUNTERS;
  l_pPMCSize: Cardinal;
begin
  l_nWndHandle := FindWindow(nil, PChar(_sProcessName));
  if l_nWndHandle = 0 then
  begin
    Result := False;
    Exit;
  end;
  l_pPMCSize := SizeOf(PROCESS_MEMORY_COUNTERS);
  GetMem(l_pPMC, l_pPMCSize);
  l_pPMC^.cb := l_pPMCSize;
  GetWindowThreadProcessId(l_nWndHandle, @l_nProcID);
  l_nTmpHandle := OpenProcess(PROCESS_ALL_ACCESS, False, l_nProcID);
  if (GetProcessMemoryInfo(l_nTmpHandle, l_pPMC, l_pPMCSize)) then
    _nMemSize := l_pPMC^.WorkingSetSize
  else
    _nMemSize := 0;
  FreeMem(l_pPMC);
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  l_nSize: Cardinal;
begin
  if (GetProcessMemorySize('Unbenannt - Editor', l_nSize)) then
    ShowMessage('Size: ' + IntToStr(l_nSize) + ' byte')
  else
    ShowMessage('Error');
end;

function GetCPUSpeed: Double;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: Integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority      := GetThreadPriority(GetCurrentThread);
  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
  Sleep(10);
  asm
    dw 310Fh
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);
  Result := TimerLo / (1000 * DelayTime);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Your CPU speed: %f MHz', [GetCPUSpeed]));
end;

unit main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
type
  Tfrm_main = class(TForm)
    img_info: TImage;
    
procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    
procedure info(s1, s2: string);
  end;
var
  frm_main: Tfrm_main;
  gn_speed_y: Integer;
  gn_text_y: Integer;
const
  gn_speed_x: Integer = 8;
  gn_text_x: Integer  = 15;
  gl_start: Boolean   = True;
implementation
{$R *.DFM}

procedure Tfrm_main.FormShow(Sender: TObject);
var 
  _eax, _ebx, _ecx, _edx: Longword;
  i: Integer;
  b: Byte;
  b1: Word;
  s, s1, s2, s3, s_all: string;
begin
  //Set the startup colour of the image
  img_info.Canvas.Brush.Color := clblue;
  img_info.Canvas.FillRect(rect(0, 0, img_info.Width, img_info.Height));
  gn_text_y := 5; //position of the 1st text
  asm                //asm call to the CPUID inst.
    mov eax,0         //sub. func call
    db $0F,$A2         //db $0F,$A2 = CPUID instruction
    mov _ebx,ebx
    mov _ecx,ecx
    mov _edx,edx
  end;
  for i := 0 to 3 do   //extract vendor id
  begin
    b := lo(_ebx);
    s := s + chr(b);
    b := lo(_ecx);
    s1:= s1 + chr(b);
    b := lo(_edx);
    s2:= s2 + chr(b);
    _ebx := _ebx shr 8;
    _ecx := _ecx shr 8;
    _edx := _edx shr 8;
  end;
  info('CPU', '');
  info('   - ' + 'Vendor ID: ', s + s2 + s1);
  asm
    mov eax,1
    db $0F,$A2
    mov _eax,eax
    mov _ebx,ebx
    mov _ecx,ecx
    mov _edx,edx
  end;
  //06B1
  //|0000| |0000 0000| |0000| |00| |00| |0110| |1011| |0001|
  b := lo(_eax) and 15;
  info('   - ' + 'Stepping ID: ', IntToStr(b));
  b := lo(_eax) shr 4;
  info('   - ' + 'Model Number: ', IntToHex(b, 1));
  b := hi(_eax) and 15;
  info('   - ' + 'Family Code: ', IntToStr(b));
  b := hi(_eax) shr 4;
  info('   - ' + 'Processor Type: ', IntToStr(b));
  //31.   28. 27.   24. 23.   20. 19.   16.
  //  0 0 0 0   0 0 0 0   0 0 0 0   0 0 0 0
  b := lo((_eax shr 16)) and 15;
  info('   - ' + 'Extended Model: ', IntToStr(b));
  b := lo((_eax shr 20));
  info('   - ' + 'Extended Family: ', IntToStr(b));
  b := lo(_ebx);
  info('   - ' + 'Brand ID: ', IntToStr(b));
  b := hi(_ebx);
  info('   - ' + 'Chunks: ', IntToStr(b));
  b := lo(_ebx shr 16);
  info('   - ' + 'Count: ', IntToStr(b));
  b := hi(_ebx shr 16);
  info('   - ' + 'APIC ID: ', IntToStr(b));
  //Bit 18 =? 1     //is serial number enabled?
  if (_edx and $40000) = $40000 then
    info('   - ' + 'Serial Number ', 'Enabled')
  else 
    info('   - ' + 'Serial Number ', 'Disabled');
  s := IntToHex(_eax, 8);
  asm                  //determine the serial number
    mov eax,3
    db $0F,$A2
    mov _ecx,ecx
    mov _edx,edx
  end;
  s1 := IntToHex(_edx, 8);
  s2 := IntToHex(_ecx, 8);
  Insert('-', s, 5);
  Insert('-', s1, 5);
  Insert('-', s2, 5);
  info('   - ' + 'Serial Number: ', s + '-' + s1 + '-' + s2);
  asm
    mov eax,1
    db $0F,$A2
    mov _edx,edx
  end;
  info('', '');
  //Bit 23 =? 1
  if (_edx and $800000) = $800000 then
    info('MMX ', 'Supported')
  else 
    info('MMX ', 'Not Supported');
  //Bit 24 =? 1
  if (_edx and $01000000) = $01000000 then
    info('FXSAVE & FXRSTOR Instructions ', 'Supported')
  else 
    info('FXSAVE & FXRSTOR Instructions Not ', 'Supported');
  //Bit 25 =? 1
  if (_edx and $02000000) = $02000000 then
    info('SSE ', 'Supported')
  else 
    info('SSE ', 'Not Supported');
  //Bit 26 =? 1
  if (_edx and $04000000) = $04000000 then
    info('SSE2 ', 'Supported')
  else 
    info('SSE2 ', 'Not Supported');
  info('', '');
  asm     //execute the extended CPUID inst.
    mov eax,$80000000   //sub. func call
    db $0F,$A2
    mov _eax,eax
  end;
  if _eax > $80000000 then  //any other sub. funct avail. ?
  begin
    info('Extended CPUID: ', 'Supported');
    info('   - Largest Function Supported: ', IntToStr(_eax - $80000000));
    asm     //get brand ID
      mov eax,$80000002
      db $0F
      db $A2
      mov _eax,eax
      mov _ebx,ebx
      mov _ecx,ecx
      mov _edx,edx
    end;
    s  := '';
    s1 := '';
    s2 := '';
    s3 := '';
    for i := 0 to 3 do
    begin
      b := lo(_eax);
      s3:= s3 + chr(b);
      b := lo(_ebx);
      s := s + chr(b);
      b := lo(_ecx);
      s1 := s1 + chr(b);
      b := lo(_edx);
      s2 := s2 + chr(b);
      _eax := _eax shr 8;
      _ebx := _ebx shr 8;
      _ecx := _ecx shr 8;
      _edx := _edx shr 8;
    end;
    s_all := s3 + s + s1 + s2;
    asm
      mov eax,$80000003
      db $0F
      db $A2
      mov _eax,eax
      mov _ebx,ebx
      mov _ecx,ecx
    mov _edx,edx
    end;
    s  := '';
    s1 := '';
    s2 := '';
    s3 := '';
    for i := 0 to 3 do
    begin
      b := lo(_eax);
      s3 := s3 + chr(b);
      b := lo(_ebx);
      s := s + chr(b);
      b := lo(_ecx);
      s1 := s1 + chr(b);
      b := lo(_edx);
      s2 := s2 + chr(b);
      _eax := _eax shr 8;
      _ebx := _ebx shr 8;
      _ecx := _ecx shr 8;
      _edx := _edx shr 8;
    end;
    s_all := s_all + s3 + s + s1 + s2;
    asm
      mov eax,$80000004
      db $0F
      db $A2
      mov _eax,eax
      mov _ebx,ebx
      mov _ecx,ecx
      mov _edx,edx
    end;
    s  := '';
    s1 := '';
    s2 := '';
    s3 := '';
    for i := 0 to 3 do
    begin
      b  := lo(_eax);
      s3 := s3 + chr(b);
      b := lo(_ebx);
      s := s + chr(b);
      b := lo(_ecx);
      s1 := s1 + chr(b);
      b  := lo(_edx);
      s2 := s2 + chr(b);
      _eax := _eax shr 8;
      _ebx := _ebx shr 8;
      _ecx := _ecx shr 8;
      _edx := _edx shr 8;
    end;
    info('Brand String: ', '');
    if s2[Length(s2)] = #0 then setlength(s2, Length(s2) - 1);
    info('', '   - ' + s_all + s3 + s + s1 + s2);
  end
  else 
    info('   - Extended CPUID ', 'Not Supported.');
end;

procedure Tfrm_main.info(s1, s2: string);
begin
  if s1 <> '' then
  begin
    img_info.Canvas.Brush.Color := clblue;
    img_info.Canvas.Font.Color  := clyellow;
    img_info.Canvas.TextOut(gn_text_x, gn_text_y, s1);
  end;
  if s2 <> '' then
  begin
    img_info.Canvas.Brush.Color := clblue;
    img_info.Canvas.Font.Color  := clWhite;
    img_info.Canvas.TextOut(gn_text_x + img_info.Canvas.TextWidth(s1), gn_text_y, s2);
  end;
  Inc(gn_text_y, 13);
end;
end.

텍스트 문서 하나 만들어서
필요한것만 복사해서 붙여넣으시고
다른대상으로저장 ***.reg 하시고 저장
적용하시기전에 레지스트리 백업 잃지 마시고하시고 적용하세요.

컴퓨터를 잘 아시는 분만 사용하세요. 매우 위험합니다.

-----------------------------------------------------------------------------------
자신에 cpu 캐쉬와 램에 용량을 확인하시고 등록 하세요
윈도우 최적화를 위한 CPU 캐쉬 등록

cpu캐쉬64
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"SecondLevelDataCache"=dword:00000040

cpu캐쉬128
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"SecondLevelDataCache"=dword:00000080

cpu캐쉬256
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"SecondLevelDataCache"=dword:00000100

cpu캐쉬512
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"SecondLevelDataCache"=dword:00000200

cpu캐쉬1024
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"SecondLevelDataCache"=dword:00000400

윈도우 최적화를 위한 메모리용량 등록

RAM128
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:01000000

RAM192
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:01800000

RAM256
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:02000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000026

RAM384
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:03000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000026

RAM512
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:04000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000038

RAM640
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:05000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000038

RAM768
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:06000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000038

RAM1024
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management]
"IoPageLockLimit"=dword:08000000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\PriorityControl]
"Win32PrioritySeparation"=dword:00000038

****************************************************************************************

$$$$$$$$$$$$$$ 여기서부터 복사해서 ***.reg 만들어서 붙여넣으세요 그리고 위에서 자기사양에 맞는 cpu캐쉬하고 램 용량을 북사한것 중간에 넣어서 적용하시구요$$$$$$$$$$$$$$$$$$$$$

Windows Registry Editor Version 5.00

;시스템 폴더보호기능 사용안함
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\WebView\BarricadedFolders]
"shell:ControlPanelFolder"=dword:00000000
"shell:SystemDriveRootFolder"=dword:00000000
"shell:ProgramFiles"=dword:00000000
"shell:Windows"=dword:00000000
"shell:System"=dword:0000000

;비정상종료시 체크디스크 실행안함
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager]
"AutoChkTimeOut"=dword:00000002

;윈도우즈 탐색기 파일목록 보기를 - "자세히"로 설정
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams]
"Settings"=hex:08,00,00,00,04,00,00,00,01,00,00,00,00,77,7e,13,73,35,cf,11,ae, 69,08,00,2b,2e,12,62,04,00,00,00,02,00,00,00,43,00,00,00

;최근에 열었던 문서 표시(0=표시 안 함 1=표시)
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Start_ShowRecentDocs"=dword:00000000

;사용자 추적 기능 중지하기
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoInstrumentation"=dword:00000001

;멀티미디어
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
;그림 표시
"Display Inline Images"="yes"
;웹 페이지에서 비디오 재생
"Display Inline Videos"="no"
;웹페이지에서 소리 재생
"Play_Background_Sounds"="no"
;웹 페이지에서 애니매이션 재생
"Play_Animations"="yes"
;이미지 다운 로드 개체 틀 표시
"Show image placeholders"=dword:00000000
;이미지 도구 모음 사용 (다시 시작 해야 함)
"Enable_MyPics_Hoverbar"="no"

;탐색
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
;다운로드가 완료 되었을 때 알림
"NotifyDownloadComplete"="no"
;부드러운 화면 이동
"SmoothScroll"=dword:00000000
;주소 표시줄에 이동 단추 표시
"ShowGoButton"="no"
;페이지 전환 사용
"Page_Transitions"=dword:00000000
;필요할 때 추가 설치 가능(기타)
"NoWebJITSetup"=dword:00000000
;필요할 때 추가 설치 가능(internet explorer)
"NoJITSetup"=dword:00000000
;Internet explorer 업데이트 자동 확인
"NoUpdateCheck"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer]
;이미지 더더링
"SmartDithering"=dword:00000000
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
;이미지 크기 자동 조정 가능
"Enable AutoImageResize"="yes"

;모든 경고 메세지(Prompt) 사용안함
;Disable Internet Explorer Cookie "Privacy Icon" prompt
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"PrivDiscUiShown"=dword:00000001
;Disable Internet Explorer Auto-Complete prompt
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\IntelliForms]
"AskUser"=dword:00000000
;Disable Internet Explorer "You are about to view pages over a secure connection" prompt
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"WarnOnZoneCrossing"=dword:00000000
;Disable Internet Explorer "Send information to the Internet" prompt
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]
"1601"=dword:00000000
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\InformationBar]
"FirstTime"=dword:00000000

;시각 효과 (Visual Effects) : 시작-제어판-프린터 및 기타 하드웨어-시스템-고급-성능-설정-시각 효과
;0=내 컴퓨터에 가장 좋은 설정을 자동으로 선택 1=최적 모양으로 조정 2=최적 성능으로 조정 3=사용자 지정
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects]
"VisualFXSetting"=dword:00000003

;시각 효과 기본값, 설정값
;창을 최소화하거나 최대화할 때 애니메이션0000000 =사용안함 00000001 =사용함
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\AnimateMinMax]
"DefaultApplied"=dword:00000001 
"DefaultValue"=dword:00000000
;미끄러지듯 열리는 콤보 상자
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\ComboBoxAnimation]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
;마우스 포인터 아래 그림자 표시
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\CursorShadow]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
;마우스로 끄는 동안 창 내용 표시
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\DragFullWindows]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
"DefaultByAlphaTest"=dword:00000000
;메뉴 아래에 그림자 표시
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\DropShadow]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
"DefaultByAlphaTest"=dword:00000000
;화면 글꼴의 가장자리 다듬기
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\FontSmoothing]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000001
"DefaultByAlphaTest"=dword:00000001
;천천히 스크롤되는 목록 상자
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\ListBoxSmoothScrolling]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
"DefaultByAlphaTest"=dword:00000000
;투명한 선택 사각형 표시
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\ListviewAlphaSelect]
"DefaultApplied"=dword:00000001
"DefaultByAlphaTest"=dword:00000000
"DefaultValue"=dword:00000000
;바탕화면의 아이콘 레이블에 그림자 사용
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\ListviewShadow]
"DefaultApplied"=dword:00000001
"DefaultByAlphaTest"=dword:00000001
"DefaultValue"=dword:00000001
;폴더 유형별로 백그라운드 이미지 사용
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\ListviewWatermark]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
"DefaultByAlphaTest"=dword:00000000
;메뉴를 보기로 이동
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\MenuAnimation]
"DefaultApplied"=dword:00000001
"DefaultByAlphaTest"=dword:00000000
"DefaultValue"=dword:00000000
;클릭 후 메뉴 항목 천천히 지움
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\SelectionFade]
"DefaultApplied"=dword:00000001
"DefaultByAlphaTest"=dword:00000000
"DefaultValue"=dword:00000000
;슬라이드 작업 표시줄 단추
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\TaskbarAnimations]
"DefaultApplied"=dword:00000001
"DefaultByAlphaTest"=dword:00000000
"DefaultValue"=dword:00000000
;창 및 단추에 시각 스타일 사용
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\Themes]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000001
"DefaultByAlphaTest"=dword:00000001
;도구 설명을 보기로 이동
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\TooltipAnimation]
"DefaultApplied"=dword:00000001
"DefaultByAlphaTest"=dword:00000000
"DefaultValue"=dword:00000000
;폴더에 일반 작업 사용
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VisualEffects\WebView]
"DefaultApplied"=dword:00000001
"DefaultValue"=dword:00000000
"DefaultByAlphaTest"=dword:00000000
;시각 효과 설정
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
;폴더에 일반 작업 사용 (0=off 1=on)
"WebView"=dword:00000001
;투명한 선택 사각형 표시 (0=off 1=on)
"ListviewAlphaSelect"=dword:00000000
;바탕 화면의 아이콘 레이블에 그림자 사용 (0=off 1=on)
"ListviewShadow"=dword:00000001
;폴더 유형별로 백그라운드 이미지 사용 (0=off 1=on)
"ListviewWatermark"=dword:00000000
;슬라이드 작업 표시줄 단추 (0=off 1=on)
"TaskbarAnimations"=dword:00000000
;비쥬얼 테마 (0=off 1=on)
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager]
"ThemeActive"="1"
;마우스로 끄는 동안 창 내용 표시 (0=off 1=on)
[HKEY_CURRENT_USER\Control Panel\Desktop]
"DragFullWindows"="1"
;화면 글꼴의 가장자리 다듬기 (0=off 2=on)
[HKEY_CURRENT_USER\Control Panel\Desktop]
"FontSmoothing"="2"
;창을 최소화 하거나 최대화할 때 애니메이션 (0=off 1=on)
[HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics]
"MinAnimate"="0"
;메뉴 아래에 그림자 표시 & 페이드 효과 사용 안 함
[HKEY_CURRENT_USER\Control Panel\Desktop]
"UserPreferencesMask"=hex:90,12,01,80
;-----[EFFETS]-----
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoChangeAnimation"=dword:00000001

;오류보고기능 제거
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting]
"DoReport"=dword:00000000

;Windows Tour 팝업 제거
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Applets\Tour]
"RunCount"=dword:00000000

;메신저서비스항목 제거(Windows 메신저나 MSN 메신저와 상관없음)
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger]
"Start"=dword:00000004

;유니버설 플러그 앤 플레이 서비스 제거 (플러그 앤 플레이와 상관없음)
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\upnphost]
"Start"=dword:00000004

;내컴퓨터에서 공유문서 제거
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}]

;시작메뉴에서 최근 내문서 제거
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRecentDocsMenu"=dword:00000001

;디스크여유공간 부족하다는 팝업기능 제거
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoLowDiskSpaceChecks"=dword:00000001

;시작메뉴 딜레이 줄이기
[HKEY_CURRENT_USER\Control Panel\Desktop]
"MenuShowDelay"="0"

;동시 다운로드수를 50개로 늘림
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"MaxConnectionsPer1_0Server"=dword:00000050
"MaxConnectionsPerServer"=dword:00000050

;파일 미리읽기 기능 제거
[-HKEY_CLASSES_ROOT\.avi\ShellEx]
[-HKEY_CLASSES_ROOT\.mpg\ShellEx]
[-HKEY_CLASSES_ROOT\.mpe\ShellEx]
[-HKEY_CLASSES_ROOT\.mpeg\ShellEx]
[-HKEY_CLASSES_ROOT\.asf\ShellEx]
[-HKEY_CLASSES_ROOT\.asx\ShellEx]
[-HKEY_CLASSES_ROOT\.wmv\ShellEx]
[-HKEY_CLASSES_ROOT\.mp3\ShellEx]
[-HKEY_CLASSES_ROOT\.ogg\ShellEx]

;오류발생시 자동재부팅 기능 제거
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl]
"AutoReboot"=dword:00000000

; 바탕화면 정리 마법사 기능 제거
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz]
"NoRun"=dword:00000001

;종료 빠르게 하기
[HKEY_CURRENT_USER\Control Panel\Desktop]
"WaitToKillAppTimeout"="100"

;지렁이 줄이기 <먼저 Prefetch 폴더에 2개정도 파일만 남겨둬야 함.레지등록전에>
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters]
"VideoInitTime"=dword:00000782
"EnablePrefetcher"=dword:00000001
"AppLaunchMaxNumPages"=dword:00000800
"AppLaunchMaxNumSections"=dword:00000800
"AppLaunchTimerPeriod"=hex:80,69,67,ff,ff,ff,ff,ff
"BootMaxNumPages"=dword:0002f800
"BootMaxNumSections"=dword:00000ff0
"BootTimerPeriod"=hex:00,f2,d8,f8,ff,ff,ff,ff
"MaxNumActiveTraces"=dword:00000000
"MaxNumSavedTraces"=dword:00000000
"RootDirPath"="Prefetch"
"HostingAppList"="DLLHOST.EXE,MMC.EXE,RUNDLL32.EXE"
"EnableSuperfetch"=dword:00000001

;익스플로러 오류 안나게
[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main]
"IEWatsonEnabled"=dword:00000000

;언어표시 제거
[HKEY_CURRENT_USER\Control Panel\Input Method]
"show status"="0"

[HKEY_USERS\.DEFAULT\Control Panel\Input Method]
"show status"="0"

;네트워크 환경 지우기
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"ClearRecentDocsOnExit"=dword:00000001

;윈도우 창이 뜨는 속도 높이기
[HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics]
"MinAnimate"="0"

;쓸모없는 화면 무늬 싹 지우기
[HKEY_CURRENT_USER\Control Panel\Patterns]
[HKEY_USERS\.DEFAULT\Control Panel\Patterns]

;쓸모없는 소리설정 싹 지우기(소리없음만 제외)
[HKEY_CURRENT_USER\AppEvents\Schemes\Names\Utopia0]
[HKEY_CURRENT_USER\AppEvents\Schemes\Names\.Default]

;인터넷 속도 높이기
[HKEY_CURRENT_USER/Sofware/Microsoft/InternetExplorer/Setting]
"DontUseDNSLoadBalancing"=hex:01,00,00,00

;웹페이지 로딩속도도 향상됨.
[HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"MaxConnectionsPerServer"=dword:00000014
"MaxConnectionsPer1_0Server"=dword:00000014 

;자바 사용기록 지우기
[HKEY_CURRENT_USER\SOFTWARE\\Microsoft\\Java VM]
"EnableLogging"=:hex:00,00,00,00

; ~의 바로가기 없애기
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"link"=hex:00,00,00,00

;시작메뉴에서 "문서" 메뉴 없애고 문서메뉴에 쌓인 쓰레기들 영영 안쌓이게 하기
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRecentDocsMenu"=dword:00000001
"NoRecentDocsHistory"=dword:00000001

;시작메뉴에서 "도움말" 메뉴 없애기
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSMHelp"=dword:00000001

;디스플레이등록정보의 메뉴 및 도구 설명에 전환 효과 사용 끔. 탐색기나 프로그램이 뜨는 속도가 빨라진다.
[HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics]
"MinAnimate"="0"

;종료빠르게2
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control]
"CurrentUser"="USERNAME"
"WaitToKillServiceTimeout"="100"
"SystemStartOptions"="FASTDETECT NOGUIBOOT"
"SystemBootDevice"="multi(0)disk(0)rdisk(0)partition(1)"

;num키 활성화
[HKEY_CURRENT_USER\Control Panel\Keyboard]
"InitialKeyboardIndicators"="2"

;대한민국만 나두고 국가코드 삭제
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Telephony\Country List]
"CountryListVersion"=dword:0000001e

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Telephony\Country List\82]
"CountryCode"=dword:00000052
"Name"="대한민국"
"SameAreaRule"="G"
"LongDistanceRule"="0FG"
"InternationalRule"="001EFG"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\Korea Standard Time]
"Display"="(GMT+09:00) 서울"
"Dlt"="대한민국 일광 절약 시간제"
"Std"="대한민국 표준시"
"MapID"="18,19"
"Index"=dword:000000e6
"TZI"=hex:e4,fd,ff,ff,00,00,00,00,c4,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00, 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,

;<36>메모리로부터 불필요한 DLL 제거하기
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer]
"AlwaysUnloadDLL"=dword:00000001

;<37>영어하고 한국어 빼고 전부 삭제
[-HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts]

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000409]
"Layout File"="KBDUS.DLL"
"Layout Text"="미국 영어"
"Layout Display Name"="@%SystemRoot%\\system32\\input.dll,-5000"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000412]
"Layout Text"="한국어"
"Layout File"="KBDKOR.DLL"
"Layout Display Name"="@%SystemRoot%\\system32\\input.dll,-5063"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00020409]
"Layout File"="KBDUSX.DLL"
"Layout Id"="0001"
"Layout Text"="영어 (국제)"
"Layout Display Name"="@%SystemRoot%\\system32\\input.dll,-5026"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\E0010412]
"Layout Text"="한국어 입력 시스템 (IME 2000)"
"Layout File"="KBDKOR.DLL"
"IME File"="imekr61.ime"
"Layout Display Name"="@%SystemRoot%\\system32\\input.dll,-5064"

;<38>LoadConIme 제거

[HKEY_CURRENT_USER\Console]
"LoadConIme"=dword:00000000

;<39>즐겨찾기 변경

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders]
"Favorites"=hex(2):44,00,3a,00,5c,00,90,c9,a8,ac,3e,cc,30,ae,00,00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"Favorites"="D:\\즐겨찾기"

;<40>화일아이콘의 화면출력의 속도를 향상

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Update]
"UpdateMode"=dword:00000000

; CD 삽입 후 자동실행 해제 (0= 해제 1=사용)
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Cdrom]
"AutoRun"=dword:00000001
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Cdrom]
"AutoRun"=dword:00000001

; 보안센터관련 (방화벽, 안티바이러스, 자동 업데이트) 제거
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Security Center]
"FirstRunDisabled"=dword:00000001
"AntiVirusDisableNotify"=dword:00000001
"FirewallDisableNotify"=dword:00000001
"UpdatesDisableNotify"=dword:00000001
"AntiVirusOverride"=dword:00000001
"FirewallOverride"=dword:00000001
"Start"=dword:00000004

; 유휴대역폭에 부트섹터 디스크조각모음 사용 안 함
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction]
"Enable"="no"

; 한글입력정보바 없애기
;[HKEY_CURRENT_USER\Software\Microsoft\CTF\LangBar]
;"ShowStatus"=dword:00000003

;검색 강아지 삭제
[HKEY_CURRENT_USER\Software\Microsoft\Search Assistant]
;----- Use Advanced Search - 파일 및 폴더 검색 동작: "고급"으로 사용
"UseAdvancedSearchAlways"=dword:00000001
"Actor"=""
"SocialUI"=dword:00000000
"UsageCount"=dword:00000000

; 파일 검색시 모든 폴더 검색
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"SearchSystemDirs"=dword:00000001
"SearchHidden"=dword:00000001
"IncludeSubFolders"=dword:00000001
"CaseSensitive"=dword:00000000
"SearchSlowFiles"=dword:00000000

; 스크린세이버 해제 후 암호 묻지 않기/로그인 안보이기
[HKEY_CURRENT_USER\Control Panel\Desktop]
"ScreenSaverIsSecure"="0"
"NoAutoReturnToWelcome"="1"

; 탐색기에서 마우스 오른쪽 버튼에 명령프롬프트 추가
[HKEY_CLASSES_ROOT\Directory\shell\Cmd.Open]
@="명령 프롬프트(&F)"
[HKEY_CLASSES_ROOT\Directory\shell\Cmd.Open\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25, 00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,63,00,6d,00, 64,00,2e,00,65,00,78,00,65,00,20,00,2f,00,6b,00,20,00,74,00,69,00,74,00,6c, 00,65,00,20,00,85,ba,39,b8,20,00,04,d5,6c,b8,04,d5,b8,d2,20,00,26,00,26,00, 20,00,76,00,65,00,72,00,20,00,26,00,26,00,20,00,63,00,64,00,20,00,22,00,25, 00,31,00,22,00,00,00

; 명령 프롬프트 창에서 마우스로 복사하기, 붙여넣기
; (타이틀 바에서 우클릭>속성>빠른 편집모드 체크와 같음)
[HKEY_USERS\.DEFAULT\Console]
"QuickEdit"=dword:00000001

; 윈도우 업데이트 사이트에서 드라이버를 찾지 않음
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\DriverSearching]
"DontSearchWindowsUpdate"=dword:00000001
"DontPromptForWindowsUpdate"=dword:00000001

;시스템종료 스피드 향상
[HKEY_CURRENT_USER\Control Panel\Desktop]
"AutoEndTasks"="1"
"HungAppTimeout"="100"
"WaitToKillAppTimeout"="1000"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control]
"WaitToKillServiceTimeout"="1000"

; 종료 이벤트 기록을 안함
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\Reliability]
"ShutdownReasonOn"=dword:00000000
"ShutdownReasonUI"=dword:00000000

; 시스템 오류시 기록 및 다시 시작 사용 안하기
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl]
"AutoReboot"=dword:00000000
"CrashDumpEnabled"=dword:00000000
"LogEvent"=dword:00000000
"SendAlert"=dword:00000000

; 메뉴 출력 속도 향상
[HKEY_CURRENT_USER\Control Panel\Desktop]
"MenuShowDelay"="50"

; 작업표시줄 관련 (도움말, 내문서, 풍선도움말 등등)
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSMMyPictures"=dword:00000001
"NoStartMenuMyMusic"=dword:00000001
"NoSMHelp"=dword:00000001
"NoSMConfigurePrograms"=dword:00000001
"NoSharedDocuments"=dword:00000001
; 클래식 제어판 사용
"ForceClassicControlPanel"=dword:00000001
; 종료시 최근문서 지우기
"ClearRecentDocsOnExit"=dword:00000000
; 같은 종류의 작업 표시줄 단추를 그룹으로 표시
"NoTaskGrouping"=dword:00000000

; 내 컴퓨터 탐색기 창 속도 향상
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\stisvc]
"Start"=dword:00000004
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"NoNetCrawling"=dword:00000001
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoRemoteRecursiveEvents"=dword:00000001

; 문서파일 자동 연결
; .nfo 확장자 노트패드 에 연결
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.nfo]
"Application"="NOTEPAD.EXE"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.nfo\OpenWithList]
"a"="Explorer.exe"
"MRUList"="ba"
"b"="NOTEPAD.EXE"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.nfo\OpenWithProgids]
"MSInfo.Document"=hex(0):
; .oem 확장자 텍스트 편집기에 연결
[HKEY_CLASSES_ROOT\.oem]
@="txtfile"
; .sif 확장자 텍스트 편집기에 연결
[HKEY_CLASSES_ROOT\.sif]
@="txtfile"

; 폴더 팁에 파일 크기 정보 표시 (0=사용 안 함 1=사용)
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"FolderContentsInfoTip"=dword:00000001
; 폴더 및 바탕화면 항목에 팝업 설명 표시 (0=사용 안 함 1=사용)
"ShowInfoTip"=dword:00000001
; 풍선 도움말 (0=사용 안 함 1=사용)
"EnableBalloonTips"=dword:00000001
; 암호화되거나 압축된 NTFS 파일을 컬러로 표시 (0=표시 안 함 1=표시)
"ShowCompColor"=dword:00000001
; 미리 보기 캐쉬 (0=사용 1=사용 안함)
"DisableThumbnailCache"=dword:00000001
; 클래식 폴더 사용 (0=사용 1=사용 안함)
"WebView"=dword:00000000
; 네트워크 폴더 및 프린터 자동 검색 (0=자동 검색 1=자동 검색 안 함)
"NoNetCrawling"=dword:00000001

; 팝업이 차단될 때 소리재생 사용
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\New Windows]
"PlaySound"=dword:00000001

; 자동 완성 설정 관련 (no=사용 안 함 yes=사용)
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Use FormSuggest"="yes"
"FormSuggest Passwords"="no"
"FormSuggest PW Ask"="no"
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete]
"AutoSuggest"="yes"
"Append Completion"="no"

; 인터넷 익스플로러 고급 옵션
; 다운로드가 완료 되었을 때 알림
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"NotifyDownloadComplete"="yes"
; 부드러운 화면 이동
"SmoothScroll"=dword:00000000
; 주소 표시줄에 이동 단추 표시 안함
"ShowGoButton"="no"
; 페이지 전환 사용
"Page_Transitions"=dword:00000000
; Internet explorer 업데이트 자동 확인
"NoUpdateCheck"=dword:00000001
; 이미지 크기 자동 조정 가능
"Enable AutoImageResize"="yes"
; 모든 경고 메세지(Prompt) 사용 안함
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"PrivDiscUiShown"=dword:00000001
; 보안 연결 페이지로 전환 메세지(Prompt) 사용 안함
"WarnOnZoneCrossing"=dword:00000000
; 기타 고급 설정
"NoJITSetup"=dword:00000001
"Disable Script Debugger"="yes"
"ControlTooltipCount"=dword:00000005
;페이지 보관 일 수: 하루
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History]
"DaysToKeep"=dword:00000001

;검색리스트 삭제
[-HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5603]
[HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5603]
[-HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5604]
[HKEY_CURRENT_USER\Software\Microsoft\Search Assistant\ACMru\5604]

;내컴퓨터 공유문서 제거
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders\{59031a47-3f72-44a7-89c5-5595fe6b30ee}]

;사용중이라며 삭제가 되지 않는 파일을 삭제되기 하기
[-HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{87D62D94-71B3-4b9a-9489-5FE6850DC73E}\InProcServer32]

;시작 메뉴에 내 그림,내 음악 아이콘 지우기
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSMMyPictures"=dword:00000001
"NoStartMenuMyMusic"=dword:00000001

;아웃룩,핫메일 사이트 실행시 MSN메신저 자동실행 막기
[HKEY_CLASSES_ROOT\CLSID\{F3A614DC-ABE0-11d2-A441-00C04F795683}\LocalServer32]
@=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express]
"Hide Messenger"=dword:00000002

[HKEY_CLASSES_ROOT\CLSID\{FB7199AB-79BF-11d2-8D94-0000F875C541}\InProcServer32]
@=""
"ThreadingModel"=""

[HKEY_CLASSES_ROOT\CLSID\{FB7199AB-79BF-11d2-8D94-0000F875C541}\LocalServer32]
@=""

;알림 영역에서 과거 항목(아이콘)지우기
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify]
"PastIconsStream"=-
"IconStreams"=-

;이유없이 하드디스크가 파일을 읽을때
;인덱싱 서비스 제거

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\CiSvc]
"Start"=dword:00000004

;브라우저 로딩속도 향상
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects]

;넷피아 자동 이동 막기

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\URLSearchHooks]
"{CFBFAE00-17A6-11D0-99CB-00C04FD64497}"=-

; ◀05▶ 유니버설 플러그 앤 플레이 서비스 제거 (플러그 앤 플레이와 상관없음)
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\upnphost]
"Start"=dword:00000004

; 윈도우 서비스 관련, (2)자동 (3)수동 (4)사용 안 함

; Alerter / 사용자에게 관리경고를 보내기
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UPS]
"Start"=dword:00000004

; Application Layer Gateway Service / 인터넷 공유 및 방화벽에 다른 회사의 프로토콜을 지원하게 함
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ALG]
"Start"=dword:00000004

; Automatic Updates / 윈도 자동 업데이트
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wuauserv]
"Start"=dword:00000004

; Background Intelligent Transfer Service
; http 1.1서버를 통해 비동기 데이터를 전송하는 서비스
; 윈도 자동 업데이트를 사용하지 않으면 사용 안 함으로 설정
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\BITS]
"Start"=dword:00000004

; ClipBook
; 클립보드에 저장된 내용을 다른 PC의 사용자와 공유하는데 사용되는 서비스
; Network DDE 서비스에 종속
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ClipSrv]
"Start"=dword:00000004

; Computer Browser / 네트워크 상의 컴퓨터와 공유폴더 목록을 항상 최신으로 유지
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Browser]
"Start"=dword:00000004

; Distributed Link Tracking Client / 네트워크 상의 컴퓨터 사이의 NTFS 파일연결을 관리
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TrkWks]
"Start"=dword:00000004

; Error Reporting Service / MS에 에러 보고 서비스
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ERSvc]
"Start"=dword:00000004

; Fast User Switching Compatibility / 빠른 사용자 전화
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\FastUserSwitchingCompatibility]
"Start"=dword:00000004

; Fax Service / 팩스 서비스, 모뎀 사용자용
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Fax]
"Start"=dword:00000004

; Messenger / 네트워크상의 사용자 간의 쪽지 교환, 광고용으로 쓰임
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Messenger]
"Start"=dword:00000004

; IMAPI CD-BURNIG COM Service / CD굽기 기능 사용
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ImapiService]
"Start"=dword:00000004

; Indexing Service / 네트워크상의 컴퓨터들의 파일 목록을 최신으로 유지
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\CiSvc]
"Start"=dword:00000004

; MS Software Shadow Copy Provider / 백업용 쉐도우 복사복을 관리
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SwPrv]
"Start"=dword:00000004

; Portable Media Serial Number / 이동형 플레이어의 고유번호 추적
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WmdmPmSN]
"Start"=dword:00000004

; Performance Logs and Alerts / 포퍼먼스 정보를 주기적으로 수집하여 로그정보로 생성
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SysmonLog]
"Start"=dword:00000004

; Protected Storage
; 개인 키 같은 중요한 데이터를 보호된 저장소에 저장. 서비스를 중지시 암호를 저장할 수 없으므로 매번 암호를 입력해야한다.
; 아웃룩이나 폼의 암호저장이나 자동완성을 사용할 수 없다. 기본값은 자동.
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\ProtectedStorage]
"Start"=dword:00000004

; Remote Registry Service / 원격지에서 로컬 컴퓨터의 레지스트리를 수정할 수 있게 함
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteRegistry]
"Start"=dword:00000004

; Routing and Remote Access / 다른 사업체에 라우팅 서비스 제공
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\RemoteAccess]
"Start"=dword:00000004

; System Restore Service / 시스템 복원 서비스
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\srservice]
"Start"=dword:00000004

; Task Scheduler / 작업 예약 서비스. 자동 업데이트 등에 쓰임, Prefetch 사용시 필요
;[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Schedule]
;"Start"=dword:00000004

; Volume Shadow Copy / 윈도 쉐도우 백업을 실행하고 관리. 윈도 자체의 백업 프로그램을 사용시 자동.
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\VSS]
"Start"=dword:00000004

; Uninterruptible Power Supply / 무전원 유지장치(UPS) 관리
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UPS]
"Start"=dword:00000004

; WebClient / 윈도에서 인터넷에 접속해서 파일 관리. 자주 사용 안 함
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WebClient]
"Start"=dword:00000004

; Windows Time / 자동으로 시스템 시간 동기화
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time]
"Start"=dword:00000004

; WMI Performance Adapter / WM HiPerf 공급자로부터 성능 라이브러리 정보를 제공
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\WmiApSrv]
"Start"=dword:00000004

;종료시 내 최근 문서 기록 지우기
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"ClearRecentDocsOnExit"=dword:00000001

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit5: TEdit;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    EditTime1 : TDateTime;
    EditTime2 : TDateTime;
    EditTime3 : TDateTime;
    EditTime4 : TDateTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// 날짜 차이 계산
function DayBetween(Date1, Date2: TDateTime): integer;
var
   Day1, Day2 : TDateTime;
begin
   //Day1 := StrToDate( `2009-12-31` );
   //Day2 := StrToDate( `2009-11-30` );

   Day1 := StrToDate( FormatDateTime('YYYY-MM-DD', Date1) );
   Day2 := StrToDate( FormatDateTime('YYYY-MM-DD', Date2) );

   Result := integer( Trunc( Day1 - Day2 ));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  // 현재 시간
  EditTime1  := Now;
  Edit1.Text := FormatDateTime('YYYY-MM-DD  HH:NN:SS', EditTime1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  // 들어온 시간
  EditTime2  := EditTime1;
  Edit2.Text := Edit1.Text;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  // 나간 시간
  EditTime3  := EditTime1;
  Edit3.Text := Edit1.Text;

  // 주차한 시간

  EditTime4  := EditTime3 - EditTime2;
  Edit4.Text := FormatDateTime('HH:NN:SS', EditTime4);

  // 날짜 차이

  Edit5.Text := IntToStr( DayBetween(EditTime3, EditTime2) );
end;

end. 

델마당에 오랜만에 들어왔습니다.. 그때나 지금이나 유령회원 인데요...

네...


첨부된 코드는
우체국에서 제공하는 api를 사용하여 도로명 주소를 delphi에서 사용할수있게 수정하였습니다.

여기 저기 짜집기 한 코드입니다. 오랜만에 델파이를 하려니 왜이리 막히는지 ㅠㅠ

여기까지 잡설이고

먼저 data.go.kr에서 인증키를 받으시고 만드시면 될것 같습니다.

가입 로그인후 > openapi 메뉴 > 전체검색메뉴 > 도로명주소 으로 검색 > 오른쪽 활용신청 하시면 인증키를 받을수 있습니다.


아래 code부분에 넣어주시면 됩니다.
(참고로 첨부된 파일의 인증키는 작동하지 않습니다.)

delphi 7에서 테스트 되었습니다.

추가 내용입니다.
1. 인증키는 인증키 발급 프로그램을 받으셔서 압축해제후 아이디 패스워드를 넣고 인증키를 발급받으시면 됩니다.
2. 인증키 발급후 바로 사용하실수 없고 서버동기화시간 (1~3시간후) 이후에 사용 가능합니다. 

[소스]

procedure TForm1.Button6Click(Sender: TObject);
var

  Url , code ,searchword , searchoption : AnsiString ;

  Data    : TStringStream;
  DResult : TStringStream;
  Indy    : TIdHTTP;

  OuterRoot,EntryNode:IXmlNode;
  i,j:Integer;
begin

  memo1.clear;

  Data := TStringStream.Create('');
  DResult := TStringStream.Create('');
  Indy := TIdHttp.Create(nil);

  try

    // Indy를 이용해서 get
    //Indy.Request.ContentType := 'application/x-www-form-urlencoded'; // post방식
    Indy.Request.ContentType := 'application/json';

    code :=  HttpEncode(UTF8Encode('ojcKEw49AjaE1IT112E224449icpS/X7Ww8FMemV/2323+XJo9wbi56HQ=='));
    //data.or.kr에서 받은 인증키

    searchword := HttpEncode(UTF8Encode(edit1.text));
    if (RadioGroup1.ItemIndex = 0 )  then  begin
      searchoption :='&searchSe=road';
    end else if (RadioGroup1.ItemIndex = 1 )then begin
      searchoption :='&searchSe=dong';
    end;

    Url:= 'http://openapi.epost.go.kr/postal/retrieveNewAdressService/retrieveNewAdressService/getNewAddressList';

    Indy.get(Url+'?ServiceKey='+code+'&srchwrd='+searchword+searchoption,DResult);

    XMLDocument1.LoadFromStream(DResult);

    XMLDocument1.Active:=True;

    // stream 된 내용 파일 생성합니다.
    //XMLDocument1.SaveToFile('C:\Documents and Settings\tigger\바탕 화면\1.xml');

  OuterRoot := xmldocument1.DocumentElement;
  for i := 0 to OuterRoot.ChildNodes.Count -1 do
  begin
    if OuterRoot.ChildNodes[i].NodeName='newAddressList' then
      begin
        Memo1.Lines.Add(StringOfChar('-',20));
        Memo1.Lines.Add(OuterRoot.ChildNodes[i].NodeName +':');
        EntryNode := OuterRoot.ChildNodes[i];
        for j := 0 to EntryNode.ChildNodes.Count -1 do
        begin
          Memo1.Lines.Add( EntryNode.ChildNodes[j].NodeName + '-'  + EntryNode.ChildNodes[j].Text);
        end;
      end;
  end;

  finally
    // 메모리에서 해제
    Data.Free;
    DResult.Free;
    Indy.Free;

  end;

end; 

XE4에서 MySQL 연결시 접속 오류및 한글 문제로 고생을 했는데 여러 시행착오 끝에 거의 해결 되어 정보 공유 합니다.

XE4에서 발생한 문제이나 하위버전도 비슷할 것으로 판단 됩니다.

* DBExpress MySQL 접속오류

- MySQL 최신버전은 DBExpress 에서 완벽하게 지원을 못하는듯 합니다.

XE4에서는 MySQL 5.1.71(win32) 을 설치하니 접속 됩니다. 따라서 연결 오류시 MySQL 하위버전으로 해보시기 바랍니다.

- MySQL 설치후 libmySQL.dll 파일을 찾아서 Delphi\Bin 폴더나 Windows\system32 폴더에 복사해야 합니다.

때로는 libmySQL.dll 파일만 하위버전으로 맞춰도 되는 경우가 있을수 있습니다.

* 한글깨짐 문제 해결

- 데이터베이스 스키마 생성과 테이블 컬럼 모두 character Set = utf8 / collation = utf8_unicode_ci 로 설정합니다.

인터넷검색해보면 utf8 이니 euckr 이니 여러 의견들이 많은데 utf8로 통일 시키는것이 맞는것 같네요

(euckr로 하면 조회는 되나 입력이 안됩니다.)

MySQL 사이트에서 Workbench를 다운받아 설치하면 좀더 쉽게 설정 할수 있습니다.

- 델파이 소스에서 최초 DB 접속시

SQLConnection1.Params.Append('ServerCharSet=utf8');

SQLConnection1.Connected := True;

와 같이 커넥션 속성을 추가 합니다.

- 델파이 소스 파일 포멧을 UTF-8 로 바꿉니다. (소스 에디터 바탕화면 > 마우스우클릭 > File Format )

[참고] 델파이의 Data Explorer 에서 MySQL 테이블을 View 해보면 한글이 여전히 깨져 보이나 실제 입출력과는 무관하므로 무시해도 됩니다. MySQL Workbench를 사용하면 한글이 깔끔하게 조회/입력 됩니다.

E1026 File not found: Controls.res

1.  «Tools» — «Options» 이동

Рис. 1 Окно настроек Delphi XE4

2. library항목을 선택하면 아래와 같은 창이 뜬다.

Рис. 2 Library Path

3. 아래의 경로중에 빠진걸 추가하면  된다.

$(BDSLIB)\$(Platform)\release
$(BDSUSERDIR)\Imports
$(BDS)\Imports
$(BDSCOMMONDIR)\Dcp
$(BDS)\include

결론. 어찌보면 참 간단한건데..하루종일 삽질한 느낌...