마음 속 하늘은 항상 맑음~!

윈도우즈 검색창 웹검색 막기 본문

카테고리 없음

윈도우즈 검색창 웹검색 막기

파르셀수스 2022. 1. 29. 21:50

 이미 웹을 검색해보면 Regedit으로 하는 방법이 있지만, 그 과정이 복잡한 편.

 그래서 간단히 innosetup 인스톨러를 이용해 스크립트도 붙이고 해서 만들었다.

 스크립트 코드는 윈10 이상을 체크하는 것 말곤 특별한게 없다.

 

Win_Web_Disable_Search.exe
1.59MB
Win_Disable_web_search.iss
0.00MB

 

더보기
; Script generated by the Inno Script Studio Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "Win_web_disable_search"
#define MyAppVersion "1.0"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{077C809B-7EDE-4D51-BE71-D3C736CC993B}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
CreateAppDir=no
OutputBaseFilename=Win_Web_Disable_Search
Compression=lzma2/max
SolidCompression=yes
PrivilegesRequired=lowest
Uninstallable=no
InternalCompressLevel=max
ShowLanguageDialog=no

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "korean"; MessagesFile: "compiler:Languages\Korean.isl"

[Code]
function IsWindowsVersionOrNewer(Major, Minor: Integer): Boolean;
var
  Version: TWindowsVersion;
begin
  GetWindowsVersionEx(Version);
  Result :=
    (Version.Major > Major) or
    ((Version.Major = Major) and (Version.Minor >= Minor));
end;

function IsWindowsXPOrNewer: Boolean;
begin
  Result := IsWindowsVersionOrNewer(5, 1);
end;

function IsWindowsVistaOrNewer: Boolean;
begin
  Result := IsWindowsVersionOrNewer(6, 0);
end;

function IsWindows7OrNewer: Boolean;
begin
  Result := IsWindowsVersionOrNewer(6, 1);
end;

function IsWindows8OrNewer: Boolean;
begin
  Result := IsWindowsVersionOrNewer(6, 2);
end;

function IsWindows10OrNewer: Boolean;
begin
  Result := IsWindowsVersionOrNewer(10, 0);
end;

function InitializeSetup: Boolean;
begin
  if not IsWindows10OrNewer then
  begin 
    MsgBox(
      '이 레지스트리 트윅은 윈도우즈 10이상에서만 작동합니다. '#13#10'이 메세지가 보인다면 제대로 작동하지 않을겁니다.',
      mbCriticalError, MB_OK);
  end;  

  Result := True;
end;

[Registry]
Root: HKCU; Subkey: "SOFTWARE\Microsoft\Windows\CurrentVersion\Search"; ValueName: "BingSearchEnabled"; ValueType: dword; ValueData: "0"; Flags: createvalueifdoesntexist;
0 Comments
댓글쓰기 폼