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; 

원격 저장소 URL 변경하기

기존 원격 저장소 URL을 변경하기 위해 git remote set-url 명령어를 사용합니다:

$ git remote -v # View existing remotes origin https://github.com/user/repo.git (fetch) origin https://github.com/user/repo.git (push) $ git remote set-url origin https://github.com/user/repo2.git # Change the 'origin' remote's URL

$ git remote -v

# Verify new remote URL origin https://github.com/user/repo2.git (fetch) origin https://github.com/user/repo2.git (push)

​

두 개의 인자를 가집니다:

기존 원격 저장소 이름: origin

새로운 원격 저장소 URL : https://github.com/user/repo2.git

Troubleshooting 문제 해결

No such remote ‘[name]’

이 에러는 이름을 변경할 원격 저장소가 없음을 의미합니다.

관련 문서

Git remote man page

Pro Git - Working with Remotes

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

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

VK_LBUTTON = $1, //Dec 1; The left mouse button
VK_RBUTTON = $2, //Dec 2; The right mouse button
VK_CANCEL = $3, //Dec 3; The Cancel virtual key, used for control-break processing
VK_MBUTTON = $4, //Dec 4; The middle mouse button
VK_BACK = $8, //Dec 8; Backspace
VK_TAB = $9, //Dec 9; Tab
VK_CLEAR = $C, //Dec 12; 5 (keypad without Num Lock)
VK_RETURN = $D, //Dec 13; Enter
VK_SHIFT = $10, //Dec 16; Shift (either one)
VK_CONTROL = $11, //Dec 17; Ctrl (either one)
VK_MENU = $12, //Dec 18; Alt (either one)
VK_PAUSE = $13, //Dec 19; Pause Break
VK_CAPITAL = $14, //Dec 20; Caps Lock
VK_ESCAPE = $1B, //Dec 27; Esc
VK_SPACE = $20, //Dec 32; Spacebar
VK_PRIOR = $21, //Dec 33; Page Up
VK_NEXT = $22, //Dec 34; Page Down
VK_END = $23, //Dec 35; End
VK_HOME = $24, //Dec 36; Home
VK_LEFT = $25, //Dec 37; Left Arrow
VK_UP = $26, //Dec 38; Up Arrow
VK_RIGHT = $27, //Dec 39; Right Arrow
VK_DOWN = $28, //Dec 40; Down Arrow
VK_SELECT = $29, //Dec 41; Select
VK_PRINT = $2A, //Dec 42; Print (only used by Nokia keyboards)
VK_EXECUTE = $2B, //Dec 43; Execute (not used)
VK_SNAPSHOT = $2C, //Dec 44; Print Screen
VK_INSERT = $2D, //Dec 45; Insert
VK_DELETE = $2E, //Dec 46; Delete
VK_HELP = $2F, //Dec 47; Help
VK_0 = $30, //Dec 48; 0
VK_1 = $31, //Dec 49; 1
VK_2 = $32, //Dec 50; 2
VK_3 = $33, //Dec 51; 3
VK_4 = $34, //Dec 52; 4
VK_5 = $35, //Dec 53; 5
VK_6 = $36, //Dec 54; 6
VK_7 = $37, //Dec 55; 7
VK_8 = $38, //Dec 56; 8
VK_9 = $39, //Dec 57; 9
VK_A = $41, //Dec 65; A
VK_B = $42, //Dec 66; B
VK_C = $43, //Dec 67; C
VK_D = $44, //Dec 68; D
VK_E = $45, //Dec 69; E
VK_F = $46, //Dec 70; F
VK_G = $47, //Dec 71; G
VK_H = $48, //Dec 72; H
VK_I = $49, //Dec 73; I
VK_J = $4A, //Dec 74; J
VK_K = $4B, //Dec 75; K
VK_L = $4C, //Dec 76; L
VK_M = $4D, //Dec 77; M
VK_N = $4E, //Dec 78; N
VK_O = $4F, //Dec 79; O
VK_P = $50, //Dec 80; P
VK_Q = $51, //Dec 81; Q
VK_R = $52, //Dec 82; R
VK_S = $53, //Dec 83; S
VK_T = $54, //Dec 84; T
VK_U = $55, //Dec 85; U
VK_V = $56, //Dec 86; V
VK_W = $57, //Dec 87; W
VK_X = $58, //Dec 88; X
VK_Y = $59, //Dec 89; Y
VK_Z = $5A, //Dec 90; Z
VK_STARTKEY = $5B, //Dec 91; Start Menu key
VK_CONTEXTKEY = $5D, //Dec 93; Context Menu key
VK_NUMPAD0 = $60, //Dec 96; 0 (keypad with Num Lock)
VK_NUMPAD1 = $61, //Dec 97; 1 (keypad with Num Lock)
VK_NUMPAD2 = $62, //Dec 98; 2 (keypad with Num Lock)
VK_NUMPAD3 = $63, //Dec 99; 3 (keypad with Num Lock)
VK_NUMPAD4 = $64, //Dec 100; 4 (keypad with Num Lock)
VK_NUMPAD5 = $65, //Dec 101; 5 (keypad with Num Lock)
VK_NUMPAD6 = $66, //Dec 102; 6 (keypad with Num Lock)
VK_NUMPAD7 = $67, //Dec 103; 7 (keypad with Num Lock)
VK_NUMPAD8 = $68, //Dec 104; 8 (keypad with Num Lock)
VK_NUMPAD9 = $69, //Dec 105; 9 (keypad with Num Lock)
VK_MULTIPLY = $6A, //Dec 106; * (keypad)
VK_ADD = $6B, //Dec 107; + (keypad)
VK_SEPARATOR = $6C, //Dec 108; Separator (never generated by the keyboard)
VK_SUBTRACT = $6D, //Dec 109; - (keypad)
VK_DECIMAL = $6E, //Dec 110; . (keypad with Num Lock)
VK_DIVIDE = $6F, //Dec 111; / (keypad)
VK_F1 = $70, //Dec 112; F1
VK_F2 = $71, //Dec 113; F2
VK_F3 = $72, //Dec 114; F3
VK_F4 = $73, //Dec 115; F4
VK_F5 = $74, //Dec 116; F5
VK_F6 = $75, //Dec 117; F6
VK_F7 = $76, //Dec 118; F7
VK_F8 = $77, //Dec 119; F8
VK_F9 = $78, //Dec 120; F9
VK_F10 = $79, //Dec 121; F10
VK_F11 = $7A, //Dec 122; F11
VK_F12 = $7B, //Dec 123; F12
VK_F13 = $7C, //Dec 124; F13
VK_F14 = $7D, //Dec 125; F14
VK_F15 = $7E, //Dec 126; F15
VK_F16 = $7F, //Dec 127; F16
VK_F17 = $80, //Dec 128; F17
VK_F18 = $81, //Dec 129; F18
VK_F19 = $82, //Dec 130; F19
VK_F20 = $83, //Dec 131; F20
VK_F21 = $84, //Dec 132; F21
VK_F22 = $85, //Dec 133; F22
VK_F23 = $86, //Dec 134; F23
VK_F24 = $87, //Dec 135; F24
VK_NUMLOCK = $90, //Dec 144; Num Lock
VK_OEM_SCROLL = $91, //Dec 145; Scroll Lock
VK_OEM_1 = $BA, //Dec 186; ;
VK_OEM_PLUS = $BB, //Dec 187; =
VK_OEM_COMMA = $BC, //Dec 188;,
VK_OEM_MINUS = $BD, //Dec 189; -
VK_OEM_PERIOD = $BE, //Dec 190; .
VK_OEM_2 = $BF, //Dec 191; /
VK_OEM_3 = $C0, //Dec 192; `
VK_OEM_4 = $DB, //Dec 219; [
VK_OEM_5 = $DC, //Dec 220; \
VK_OEM_6 = $DD, //Dec 221; ]
VK_OEM_7 = $DE, //Dec 222; '
VK_OEM_8 = $DF, //Dec 223; (unknown)
VK_ICO_F17 = $E0, //Dec 224; F17 on Olivetti extended keyboard (internal use only)
VK_ICO_F18 = $E1, //Dec 225; F18 on Olivetti extended keyboard (internal use only)
VK_OEM_102 = $E2, //Dec 226; < or | on IBM-compatible 102 enhanced non-U.S. keyboard
VK_ICO_HELP = $E3, //Dec 227; Help on Olivetti extended keyboard (internal use only)
VK_ICO_00 = $E4, //Dec 228; 00 on Olivetti extended keyboard (internal use only)
VK_ICO_CLEAR = $E6, //Dec 230; Clear on Olivette extended keyboard (internal use only)
VK_OEM_RESET = $E9, //Dec 233; Reset (Nokia keyboards only)
VK_OEM_JUMP = $EA, //Dec 234; Jump (Nokia keyboards only)
VK_OEM_PA1 = $EB, //Dec 235; PA1 (Nokia keyboards only)
VK_OEM_PA2 = $EC, //Dec 236; PA2 (Nokia keyboards only)
VK_OEM_PA3 = $ED, //Dec 237; PA3 (Nokia keyboards only)
VK_OEM_WSCTRL = $EE, //Dec 238; WSCTRL (Nokia keyboards only)
VK_OEM_CUSEL = $EF, //Dec 239; CUSEL (Nokia keyboards only)
VK_OEM_ATTN = $F0, //Dec 240; ATTN (Nokia keyboards only)
VK_OEM_FINNISH = $F1, //Dec 241; FINNISH (Nokia keyboards only)
VK_OEM_COPY = $F2, //Dec 242; COPY (Nokia keyboards only)
VK_OEM_AUTO = $F3, //Dec 243; AUTO (Nokia keyboards only)
VK_OEM_ENLW = $F4, //Dec 244; ENLW (Nokia keyboards only)
VK_OEM_BACKTAB = $F5, //Dec 245; BACKTAB (Nokia keyboards only)
VK_ATTN = $F6, //Dec 246; ATTN
VK_CRSEL = $F7, //Dec 247; CRSEL
VK_EXSEL = $F8, //Dec 248; EXSEL
VK_EREOF = $F9, //Dec 249; EREOF
VK_PLAY = $FA, //Dec 250; PLAY
VK_ZOOM = $FB, //Dec 251; ZOOM
VK_NONAME = $FC, //Dec 252; NONAME
VK_PA1 = $FD, //Dec 253; PA1
VK_OEM_CLEAR = $FE //Dec 254; CLEAR

procedure TFPAT070M.CaptureForm; 
var 
    Pt  :TPoint;     // 캡쳐할 화면의 Left, Top 좌표 
    DC  :HDC; 
    Bmp :TBitmap; 
begin 
 
  // 폼전체를 하기 위해 (0, 0) 으로 설정하였다. 
  Pt.x := 0;   // x => 폼에서의 Left 값 
  Pt.y := 0;   // y => 폼에서의 Top  값 
 
  // 폼의 좌표를 스크린 좌표로 변환한다. 
  Pt := ClientToScreen(Pt);                    
 
  // 캡쳐할 비트맵 생성 
  Bmp := TBitMap.Create; 
 
  try 
     // 비트맵 크기 지정 => 폼전체를 하기위해 폼의 크기를 지정하였다. 
     Bmp.Width  := Width; 
     Bmp.Height := Height; 
     DC := GetDC(0); 
     BitBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, DC, Pt.x , Pt.y, SRCCOPY); 
     ReleaseDC(0,DC); 
 
     Bmp.SaveToFile(Name + '.bmp')    // 비트맵 파일로 저장 
     // Clipboard.Assign(Bmp);        // 클립보드로 복사 
  finally 
     Bmp.Free; 
  end; 
 
end; 

사진 삭제

사진 설명을 입력하세요.

텍스트 추가

레슬링 국가대표 출신 심권호(47)가 개인사정으로 당분간 JTBC 예능 프로그램 '뭉쳐야 찬다'에서 빠진다. 사실상 하차다. 

축구 국가대표 출신 안정환(43)이 19일 방송된 '뭉쳐야 찬다' 제14회에서 열린 감독에 대한 청문회에서 이같이 밝혔다.

축구팀 '어쩌다 FC' 감독을 맡은 안정환은 청문회에서 멤버들의 질문과 건의 사항에 응했다. 멤버들에게 직접 구입한 새 유니폼도 전달했다.

모든 멤버가 보이지 않는 심권호의 모습에 대해 궁금했다. 이에 안정환은 "개인적인 사정으로 전력에서 이탈했다"고 답했다.

멤버들이 "선수가 모자라지 않냐"고 묻자 안정환은 "선수를 보강할 수 있으면 좋겠지만 안 되면 우리끼리 해야 한다"고 설명했다

'뭉쳐야 찬다'는 대한민국 스포츠 1인자들이 전국 축구 고수와의 대결을 통해 조기축구계 전설로 거듭나기까지 승부욕, 실패, 좌절, 값진 승리의 순간을 함께 할 스포츠 레전드들의 성장 이야기를 담은 예능 프로그램이다.

1994년 히로시마 아시안게임을 시작으로 2000년 시드니 올림픽까지 레슬링에서 금메달을 석권한 심권호의 사실상 하차에 대해 '건강 이상설' 등 다양한 추측이 나왔다. 심권호는 2015년 TV 조선 예능 프로그램 '애정 통일 남남북녀'에 출연할 당시 알코올 의존증 진단을 받은 바 있다.