Notice
Recent Posts
Recent Comments
마음 속 하늘은 항상 맑음~!
윈도우즈 검색창 웹검색 막기 본문
이미 웹을 검색해보면 Regedit으로 하는 방법이 있지만, 그 과정이 복잡한 편.
그래서 간단히 innosetup 인스톨러를 이용해 스크립트도 붙이고 해서 만들었다.
스크립트 코드는 윈10 이상을 체크하는 것 말곤 특별한게 없다.
더보기
; 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;