PureBasic Forums - English

Code: Select all

EnableExplicit

; https://www.purebasic.fr/english/viewtopic.php?p=61476#p61476
XIncludeFile "CreateLink.pbi"
; Protected result = 0, hres
; Protected ShellLink.IShellLinkA
; Protected PersistFile.IPersistFile

; https://www.purebasic.fr/english/viewtopic.php?f=12&t=56204
XIncludeFile "Registry.pbi"

UseModule registry

Declare StartUp(flag = 0, sName$ = "", sPathRun$ = "", sArgs$ = "", sDesc$ = "", sIcon$ = "", iIconNum = 0, state = #SW_SHOWNORMAL)

StartUp(0, "test", "C:\Windows\system32\calc.exe", "", "", "C:\Windows\system32\calc.exe", 0) ; Shortcut
StartUp(3, "test", "C:\Windows\system32\calc.exe") ; Registry

Procedure StartUp(flag = 0, sName$ = "", sPathRun$ = "", sArgs$ = "", sDesc$ = "", sIcon$ = "", iIconNum = 0, state = #SW_SHOWNORMAL)
	Protected iPos$, sKeyName$, iRes$, sPathLnk$, HK
	If Not Asc(sPathRun$)
		sPathRun$ = ProgramFilename()
	EndIf
	If Not Asc(sName$)
		sName$ =GetFilePart(ProgramFilename(), #PB_FileSystem_NoExtension)
	EndIf
	If flag & 1
		If flag & 2
			HK = #HKEY_LOCAL_MACHINE
		Else
			HK = #HKEY_CURRENT_USER
		EndIf
; 		If #OSArch = "X64"
; 			sKeyName$ + "64"
; 		EndIf
		sKeyName$ + "\Software\Microsoft\Windows\CurrentVersion\Run"
		If flag & 4
			sKeyName$ + "Once"
		ElseIf flag & 8
			sKeyName$ + "OnceEx"
		EndIf
		If flag & 32
			ProcedureReturn DeleteKey(HK, sKeyName$ + "\" + sName$)
		EndIf
		If ReadValue(HK, sKeyName$, sName$) And flag & 16 ; если существует и флаг 16, т.е. не перезаписывать, то выпрыг
			ProcedureReturn 0
		EndIf
		If sArgs$
			sArgs$ = " " + sArgs$
		EndIf
; 		iRes$ = RegWrite(sKeyName$, sName$, "REG_SZ", """ + sPathRun$ + """ + sArgs$)
		If WriteValue(HK, sKeyName$, sName$, Chr(34) + sPathRun$ + Chr(34) + sArgs$, #REG_SZ)
			ProcedureReturn 1
		EndIf
	Else
		If flag & 2
			sPathLnk$ = GetUserDirectory(#PB_Directory_AllUserData) + "Microsoft\Windows\Start Menu\Programs\StartUp\" + sName$ + ".lnk"
		Else
			sPathLnk$ = GetUserDirectory(#PB_Directory_ProgramData) + "Microsoft\Windows\Start Menu\Programs\Startup\" + sName$ + ".lnk"
		EndIf
		If flag & 32
			ProcedureReturn DeleteFile(sPathLnk$)
		EndIf
		If flag & 16 And FileSize(sPathLnk$) > 0
			ProcedureReturn 1
		EndIf
		ProcedureReturn CreateLink(sPathRun$, sPathLnk$, sArgs$, sDesc$, "", state, 0, sIcon$, iIconNum)
	EndIf
EndProcedure

Code: Select all

RunProgram("cmd", "/c mklink ...")