update on thinclient

source/thinclient.pb

@@ -4,10 +4,15 @@
 ; LICENSE  : GPL
 ; AUTHOR   : Michael H.G. Schmidt
 ; EMAIL    : michael@schmidt2.de
-; DATE     : 20240130
+; DATE     : 20240201
 ; ------------------------------------------------------------
 ;
 
+; preparations to use native "system" command ...
+ImportC "msvcrt.lib"
+  system(str.p-ascii)
+EndImport
+
 ; Get system drive
 Global SYS$=GetEnvironmentVariable("SystemDrive")
 
@@ -21,6 +26,15 @@ Procedure StartVNC()
   dummy=RunProgram(SYS$ + "\tools\tvnviewer.exe")
 EndProcedure
 
+Procedure Settings()
+  ; start SYSTEM settings ...
+  dummy=system("start ms-settings:")
+EndProcedure
+
+Procedure Poweroff()
+  ; Poweroff ...
+  dummy=system("shutdown /s /f /t 0 /d p:0:0")
+EndProcedure
 
 ; Button handler procedure
 Procedure ButtonHandler()
@@ -28,10 +42,12 @@ Procedure ButtonHandler()
   Select EventGadget()    
     Case 0
       StartRDP()
-      
     Case 1
       StartVNC()
-      
+    Case 2
+      Settings()
+    Case 3
+      Poweroff()
   EndSelect
 
 EndProcedure
@@ -62,8 +78,11 @@ ButtonH=H*0.1
 
 BX0=X0 - (ButtonW*2 + GAP)/2
 BX1=BX0 + ButtonW + GAP
+BX2=W/100
+BX3=W - ButtonW - W/100
 
 BY=H/2-ButtonH/2
+BY2=H-ButtonH - ButtonH/10
 
 ; use a bigger font the buttons
 LoadFont(0, "MS Shell Dlg", 16)
@@ -76,10 +95,17 @@ BindGadgetEvent(0, @ButtonHandler())
 ButtonGadget(1, BX1, BY, ButtonW, ButtonH, "VNC viewer", #PB_Button_MultiLine)
 BindGadgetEvent(1, @ButtonHandler())
 
+ButtonGadget(2, BX2, BY2, ButtonW, ButtonH, "Settings", #PB_Button_MultiLine)
+BindGadgetEvent(2, @ButtonHandler())
+
+ButtonGadget(3, BX3, BY2, ButtonW, ButtonH, "Poweroff", #PB_Button_MultiLine)
+BindGadgetEvent(3, @ButtonHandler())
+
 ; MAIN LOOP
 Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
 
 ; IDE Options = PureBasic 5.73 LTS (Windows - x64)
-; CursorPosition = 22
+; CursorPosition = 69
+; FirstLine = 60
 ; Folding = -
 ; EnableXP