WINDOWS/w10install
0
Fork 0
Code Issues 2 Releases 5 Activity

.

Browse Source
This commit is contained in:
Michael H.G. Schmidt 2023-03-09 21:13:11 +01:00
parent b6749a3470
commit 89bc82e5cd
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
optional/install-chrome.cmd
View File

@ -16,25 +16,33 @@ if NOT EXIST %SOFTWARE%\%MSI% (
echo ####### %0 #######
cd %SOFTWARE%
@echo on
msiexec /uninstall %MSI% /passive
@echo on
msiexec /i %MSI% /passive
@echo off
cd %OPT%
echo renaming Chrome desktop shortcut ...
move /Y %PUBLIC%\Desktop\"Google Chrome.lnk" %PUBLIC%\Desktop\Chrome.lnk 2>nul
echo importing registry settings ...
reg import %CONFIG%
rem unpin chrome icon frpom taskbar ...
rem unpin chrome icon from taskbar ...
echo.
call %SCRIPTS%\unpin-taskbar-icons.cmd
echo.
echo disabling update tasks ...
schtasks /Change /TN "GoogleUpdateTaskMachineCore{FF03DE7D-B6BB-4BD9-B599-5500A9284F84}" /disable
schtasks /Change /TN "GoogleUpdateTaskMachineUA{947CFA0A-AC3E-424D-99CD-38EE819AB072}" /disable
echo renaming chrome desktop shortcut ...
move /Y %PUBLIC%\Desktop\"Google Chrome.lnk" %PUBLIC%\Desktop\Chrome.lnk 2>nul
echo sleeping 5 seconds ...
ping 127.0.0.1 -n 5 > NUL 2>&1
echo cleanup ...
del /F /Q "%USERPROFILE%\Desktop\Google Chrome.lnk" 2>nul
rem refresh desktop (W10 style)
ie4uinit.exe -show

11
source/minibrowser.pb
View File

@ -5,14 +5,14 @@
; LICENSE : GPL
; AUTHOR : Michael H.G. Schmidt
; EMAIL : michael@schmidt2.de
; DATE : 20230214
; DATE : 20230309
; ------------------------------------------------------------
;
; VARIABLES
Global Security=#True
Global DefaultStartPage$="http://Bing.de"
Global DefaultStartPage$="https://duckduckgo.com"
Global StartPage$=DefaultStartPage$
Procedure ResizeWebWindow()
@ -94,7 +94,7 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
ButtonGadget(5, 0, 3, 25, 25, "Go")
FrameGadget(6, 0, 30, 0, 2, "", 2) ; Nice little separator
WebGadget(10, 1, 37, 1278, 732,"")
WebGadget(10, 1, 37, 1278, 732, "")
AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
; Use bindevent() to have a realtime window resize
@ -125,7 +125,7 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
EndSelect
Case #PB_Event_Menu ; We only have one shortcut
SetGadgetText(10, GetGadgetText(4))
SetGadgetText(10, GetGadgetText(4))
EndSelect
@ -134,8 +134,7 @@ If OpenWindow(0, 100, 200, 800, 600, "MiniBrowser", #PB_Window_MinimizeGadget |
EndIf
; IDE Options = PureBasic 5.73 LTS (Windows - x64)
; CursorPosition = 98
; FirstLine = 77
; CursorPosition = 16
; Folding = -
; EnableXP
; UseIcon = internet_free_icon.ico