
Code: Select all
; Workaround, around,... uncomment to start a new program instance while keeping the same CurrentDirectory
;SetCurrentDirectory(GetPathPart(ProgramFilename()))
MessageRequester("CurrentDir", "CurrentDirectory: " + GetCurrentDirectory() +#CRLF$+ "vs" +#CRLF$+ "ProgramPath: " + GetPathPart(ProgramFilename()), #PB_MessageRequester_Ok|#PB_MessageRequester_Info)
If CreatePreferences("~Test.pref", #PB_Preference_GroupSeparator)
PreferenceGroup("General")
WritePreferenceLong("Run", 1)
ClosePreferences()
Else
MessageRequester("Pref not created", "~Test.pref not created in CurrentDirectory (Read only):" +#CRLF$+#CRLF$+ GetCurrentDirectory(), #PB_MessageRequester_Ok|#PB_MessageRequester_Info)
EndIf
If OpenWindow(0, 0, 0, 340, 180, "Run from taskbar context Menu", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
TextGadget(0, 40, 60, 260, 60, "Run a new program instance using the taskbar context menu (right-click)", #PB_Text_Center)
If OpenPreferences("~Test.pref", #PB_Preference_GroupSeparator)
ClosePreferences()
Else
MessageRequester("Pref not Found", "~Test.pref not Found in CurrentDirectory:" +#CRLF$+#CRLF$+ GetCurrentDirectory(), #PB_MessageRequester_Ok|#PB_MessageRequester_Info)
EndIf
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
DeleteFile(GetCurrentDirectory() + "~Test.pref")