소프트웨어 PureBasic으로 BCD 툴 따라해보는 중

MovieName$ = OpenFileRequester("Choose the movie to play", "", "txt/cmd/bat files|*.txt;*.bat;*.cmd|All Files|*.*", 0)

Debug MovieName$

 

----- 실행 파일 만든 후에 옵션(파라미터) 입력 받는 방법 

result0$ = ProgramParameter(0)

MessageRequester("test", result0$)

result1$ = ProgramParameter(1)

MessageRequester("test", result1$)

result2$ = ProgramParameter(2)

MessageRequester("test", result2$)

result3$ = ProgramParameter(3)

MessageRequester("test", result3$)

result4$ = ProgramParameter(4)

MessageRequester("test", result4$)

result5$ = ProgramParameter(-1)

MessageRequester("test", result5$)

 

 

-- 지난 번에 올린 몇가지와 위에 것들을 하나로 합치면 참고로 아래 코드는 분석하시기 전엔 컴파일은 하시지 마세요.

-- 컴퓨터 난장판 될수도... 꼬인 상태를 풀어야 하는데 하다가 동기부여 안되서 잠정중단 상태고... 제가 어디까지 했는지 기억이 안나요;

EnableExplicit

 

Global Window_0

Global Button_0, Button_1

Global Event

Global Quit

Global BCD_Parameter

 

Procedure SetBCDValue()

  OpenConsole()

  Define dvid$

  Define guid$

  Define PE_Name$

  Define drv_l.s{1}

  Define result1

  Define result2

  

  dvid$="{11111112-1111-1111-1111-111111111111}"

  guid$="{11111111-1111-1111-1111-111111111111}"

  PE_Name$ = NextSelectedFileName()

  MessageRequester("PENAME", PE_Name$)

  Define PE_Path$ = Mid(GetCurrentDirectory(), 3, StringByteLength( GetCurrentDirectory() ) )

  MessageRequester("PEPATH", PE_Path$)

  drv_l.s{1} = GetCurrentDirectory()

  MessageRequester("drv_letter", drv_l)

  While result1 <> 1

    result1 = RunProgram("bcdedit", "/delete " + dvid$ + " /f", "", #PB_Program_Wait) 

  Wend

  

  While result2 <> 1

    result2 = RunProgram("bcdedit", "/delete " + guid$ + " /f", "", #PB_Program_Wait) 

  Wend

    

  RunProgram("bcdedit", "/create " +  dvid$ + " /device /d " + #DQUOTE$+PE_Name$+#DQUOTE$, "", #PB_Program_Wait)

  RunProgram("bcdedit", "/set " + dvid$ + " ramdisksdidevice partition="+#DQUOTE$+drv_l+#DQUOTE$+":", "", #PB_Program_Wait)

  RunProgram("bcdedit", "/set  " + dvid$ + " ramdisksdipath "+ #DQUOTE$+ drv_l + ":\" + PE_Path$ + "\boot.sdi" + #DQUOTE$, "", #PB_Program_Wait)

  RunProgram("bcdedit", "/create " +  guid$ + " /application osloader /d " + #DQUOTE$+PE_Name$+#DQUOTE$, "", #PB_Program_Wait)

  RunProgram("bcdedit", "/set " + guid$ + " device " + #DQUOTE$ + "ramdisk=["+ drv_l +":]\" +PE_Path$+ "\boot.wim," + dvid$ + #DQUOTE$, "", #PB_Program_Wait)

  RunProgram("bcdedit"," /set " + guid$ + " OSdevice "+ #DQUOTE$ + "ramdisk=["+ drv_l +":]\" +PE_Path$+ "\boot.wim," + dvid$ + #DQUOTE$, "", #PB_Program_Wait)

  RunProgram("bcdedit"," /set " + guid$ + " systemroot \windows", "", #PB_Program_Wait)

  RunProgram("bcdedit"," /set " + guid$ + " winpe yes", "", #PB_Program_Wait)

  RunProgram("bcdedit"," /set " + guid$ + " detecthal yes", "", #PB_Program_Wait)

  RunProgram("bcdedit"," /displayorder " + guid$ + " /addlast", "", #PB_Program_Wait)

  RunProgram("bcdedit","/bootsequence " + guid$ + " /addlast", "", #PB_Program_Wait)

  RunProgram("bcdedit"," /timeout 5", "", #PB_Program_Wait)

  CloseConsole()

EndProcedure

 

Procedure WriteRegKey(RootKey.l, SubKey.s, KeyName.s, KeyValue.s)

  Protected handle.l, result.l

  If RegCreateKeyEx_(RootKey, @SubKey, 0, 0, #REG_SZ, #KEY_WRITE, 0, @RootKey, @result) = 0

    If RegSetValueEx_(RootKey, KeyName, 0, #REG_SZ, KeyValue, StringByteLength(KeyValue)) = 0

      Debug "Value set successfully"

      RegCloseKey_(RootKey)

    EndIf

  EndIf

EndProcedure

 

Procedure Rclk_Registration()

  Protected OpenKey, result, handle

  If RegCreateKeyEx_(#HKEY_CLASSES_ROOT, "SystemFileAssociations\.wim\shell", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_WRITE, 0, @OpenKey, @result) = 0

    If RegCreateKeyEx_(OpenKey, "OneBoot", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_WRITE, 0, @handle, @result) = 0

      RegCloseKey_(handle)

    EndIf

    RegCloseKey_(OpenKey)

  EndIf

  

  Define RootKey.l = #HKEY_CLASSES_ROOT

  Define SubKey.s = "SystemFileAssociations\.wim\shell\OneBoot"

  WriteRegKey(RootKey, SubKey, "Icon", "C:\\Windows\\system32\\imageres.dll,147")

  WriteRegKey(RootKey, SubKey, "Position", "Top")

  WriteRegKey(RootKey, SubKey + "\Command", "", GetCurrentDirectory() + "OneBoot.exe /b")

EndProcedure

 

Procedure OpenWindow_0(x = 0, y = 0, width = 300, height = 300)

  Window_0 = OpenWindow(0, 100, 100, 300, 200, "Hello PureBasic", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  Button_0 = ButtonGadget(#PB_Any, 20, 20, 100, 40, "우클릭 등록")

  Button_1 = ButtonGadget(#PB_Any, 140, 20, 100, 40, "1회부팅 생성")

EndProcedure

 

Procedure Window_0_Events()

  Repeat

    Event = WaitWindowEvent()

    

    Select Event

      Case #PB_Event_CloseWindow

        Quit = #True

      Case #PB_Event_Gadget

        If EventGadget() = Button_0

          Rclk_Registration()  ; Call the procedure to register right-click

        ElseIf EventGadget() = Button_1

          SetBCDValue()

        EndIf

    EndSelect

  Until Quit = #True

EndProcedure

 

If ProgramParameter(0) = "/b"

  SetBCDValue()

  Rclk_Registration()

Else

  OpenWindow_0()

  Window_0_Events()

EndIf

 

------------------------------------- 이상입니다.