Code: Select all
Procedure Copy2tmp()
DeleteDirectory(ExePath()+"firefox", "", #PB_FileSystem_Recursive)
CopyDirectory(GetPathPart(FirefoxFile), ExePath()+"firefox", "", #PB_FileSystem_Recursive)
CopyDirectory(ProfileDir, ExePath()+"firefox\profile","", #PB_FileSystem_Recursive)
DeleteDirectory(ExePath()+"firefox\profile\Cache", "", #PB_FileSystem_Recursive)
DeleteDirectory(ExePath()+"firefox\profile\Cache.Trash", "", #PB_FileSystem_Recursive)
DeleteDirectory(ExePath()+"firefox\uninstall", "", #PB_FileSystem_Recursive)
If ReadFile(1, ExePath()+"firefox\profile\prefs.js")
CreateFile(2, ExePath()+"firefox\profile\prefs.js.new")
While Eof(1)=0
UseFile(1)
A$ = ReadString() +Chr(13)+ Chr(10)
If FindString(A$, "C:\", 0)
ElseIf FindString(A$, "browser.cache.disk.capacity", 0)
ElseIf FindString(A$, "browser.download.manager.retention", 0)
ElseIf FindString(A$, "browser.download.useDownloadDir", 0)
ElseIf FindString(A$, "browser.formfill.enable", 0)
ElseIf FindString(A$, "browser.history_expire_days", 0)
ElseIf FindString(A$, "browser.Buffererences.lastpanel", 0)
ElseIf FindString(A$, "browser.shell.checkDefaultBrowser", 0)
ElseIf FindString(A$, "extensions.disabledObsolete", 0)
ElseIf FindString(A$, "network.cookie.lifetimePolicy", 0)
ElseIf FindString(A$, "network.cookie.BuffersMigrated", 0)
Else
Debug A$
UseFile(2)
WriteString(A$)
UseFile(1)
EndIf
Wend
CloseFile(1)
UseFile(2)
WriteStringN("user_pref("+Chr(34)+"browser.cache.disk.capacity"+Chr(34)+", 0);")
WriteStringN("user_pref("+Chr(34)+"browser.download.manager.retention"+Chr(34)+", 1);")
WriteStringN("user_pref("+Chr(34)+"browser.download.useDownloadDir"+Chr(34)+", false);")
WriteStringN("user_pref("+Chr(34)+"browser.formfill.enable"+Chr(34)+", false);")
WriteStringN("user_pref("+Chr(34)+"browser.history_expire_days"+Chr(34)+", 0);")
WriteStringN("user_pref("+Chr(34)+"browser.preferences.lastpanel"+Chr(34)+", 0);")
WriteStringN("user_pref("+Chr(34)+"browser.shell.checkDefaultBrowser"+Chr(34)+", false);")
WriteStringN("user_pref("+Chr(34)+"extensions.disabledObsolete"+Chr(34)+", true);")
WriteStringN("user_pref("+Chr(34)+"network.cookie.lifetimePolicy"+Chr(34)+", 2);")
WriteStringN("user_pref("+Chr(34)+"network.cookie.prefsMigrated"+Chr(34)+", true);")
CloseFile(2)
Delay(500)
RenameFile(ExePath()+"firefox\profile\prefs.js", ExePath()+"firefox\profile\prefs.js.old")
RenameFile(ExePath()+"firefox\profile\prefs.js.new",ExePath()+"firefox\profile\prefs.js")
DeleteFile(ExePath()+"firefox\profile\prefs.js.old")
EndIf
If ReadFile(3, ExePath()+"firefox\profile\chrome\chrome.rdf")
CreateFile(4, ExePath()+"firefox\profile\chrome\chrome.rdf.new")
While Eof(3)=0
UseFile(3)
A$ = ReadString() +Chr(13)+ Chr(10)
Debug A$
MS1=FindString(A$, "jar:file:",0)
If MS1>0
MS2=FindString(A$, "extensions",MS1)
MS3.s=Mid(A$, MS1, MS2-MS1)
A$=ReplaceString(A$, MS3, "jar:resource:/profile/")
EndIf
UseFile(4)
WriteString(A$)
UseFile(3)
Wend
CloseFile(3)
CloseFile(4)
Delay(500)
RenameFile(ExePath()+"firefox\profile\chrome\chrome.rdf", ExePath()+"firefox\profile\chrome\chrome.rdf.old")
RenameFile(ExePath()+"firefox\profile\chrome\chrome.rdf.new",ExePath()+"firefox\profile\chrome\chrome.rdf")
DeleteFile(ExePath()+"firefox\profile\chrome\chrome.rdf.old")
EndIf
If ReadFile(5, ExePath()+"firefox\chrome\chrome.rdf")
CreateFile(6, ExePath()+"firefox\chrome\chrome.rdf.new")
While Eof(5)=0
UseFile(5)
A$ = ReadString() +Chr(13)+ Chr(10)
Debug A$
MS1=FindString(A$, "jar:file:",0)
If MS1>0
MS2=FindString(A$, "extensions",MS1)
MS3.s=Mid(A$, MS1, MS2-MS1)
A$=ReplaceString(A$, MS3, "jar:resource:/")
EndIf
UseFile(6)
WriteString(A$)
UseFile(5)
Wend
CloseFile(5)
CloseFile(6)
Delay(500)
RenameFile(ExePath()+"firefox\chrome\chrome.rdf", ExePath()+"firefox\chrome\chrome.rdf.old")
RenameFile(ExePath()+"firefox\chrome\chrome.rdf.new",ExePath()+"firefox\chrome\chrome.rdf")
DeleteFile(ExePath()+"firefox\chrome\chrome.rdf.old")
EndIf
If UPXFile<>""
SetGadgetText(#Button_Run,"UPX")
Else
SetGadgetText(#Button_Run,"MOVE")
EndIf
EndProcedure