PureBasic Forums - English

Code: Select all

EnableExplicit
;
Procedure   ShowFileProperties(filename.s)
  Protected.SHELLEXECUTEINFO SHEX
  
  With SHEX
    \cbSize = SizeOf(SHELLEXECUTEINFO)
    \fMask = #SEE_MASK_INVOKEIDLIST
    \hwnd = 0
    \lpVerb = @"properties"
    \lpFile = @fileName
    \lpParameters = 0
    \lpDirectory = 0
    \nShow = #SW_SHOWNORMAL
    \hInstApp = 0
    \lpIDList = 0
    \lpClass = 0
    \hkeyClass = 0
    \dwHotKey = 0
    \hIcon = 0
    \hProcess = 0
  EndWith
    
  If ShellExecuteEx_(@SHEX) = 0
    MessageRequester("File properties","Error "+Str(GetLastError_()) + Chr(10) + "Unable to open file properties")
  EndIf
EndProcedure
;
Define.l Event
If OpenWindow(0, 0, 0, 222, 70, "File properties", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ButtonGadget(0, 10,  10, 200, 20, "File #1 properties")
  ButtonGadget(1, 10,  40, 200, 20, "File #2 properties")
  Repeat 
    Event=WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow : Break
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0 : ShowFileProperties(#PB_Compiler_Home+"Examples\Sources\Data\PureBasic.bmp")
          Case 1 : ShowFileProperties(#PB_Compiler_Home+"Examples\Sources\Data\PureBasicLogo.bmp")
        EndSelect
    EndSelect
  ForEver
EndIf

Code: Select all

Procedure FileProperty(File$)
  verb$ = "properties" 
  SEI.SHELLEXECUTEINFO 
  SEI\cbSize = SizeOf(SHELLEXECUTEINFO) 
  SEI\fMask = #SEE_MASK_NOCLOSEPROCESS | #SEE_MASK_INVOKEIDLIST | #SEE_MASK_FLAG_NO_UI 
  SEI\lpVerb = @verb$ 
  SEI\lpFile = @File$ 
  ShellExecuteEx_(@SEI)
EndProcedure

Define.l Event
If OpenWindow(0, 0, 0, 222, 70, "File properties", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)   
  ButtonGadget(0,10,10,200,50,"Select a file to know its properties")
  Repeat 
    Event=WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow : Break
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            File$ = OpenFileRequester("Select a file","c:\","*.*",WindowID(0))
            If File$ 
              FileProperty(File$)
            EndIf            
        EndSelect
    EndSelect
  ForEver
EndIf

Code: Select all

EnableExplicit

Structure daResults : Out.s : Err.s : ExC.w : EndStructure
Global Sh.daResults

Procedure shShell(ShellCommand$, AddLF = #False)
   Protected Err$, tmper$, Output$, shell, Exc.w =-1 ; exit code -1 on failed launch
   shell = RunProgram("/bin/sh","","",
      #PB_Program_Open | #PB_Program_Write | #PB_Program_Read | #PB_Program_Error)
   If shell
      WriteProgramStringN(shell,ShellCommand$)
      WriteProgramData(shell,#PB_Program_Eof,0)
      While ProgramRunning(shell)
         If AvailableProgramOutput(shell)
            Output$ + ReadProgramString(shell)
            If AddLF : Output$ + "\n" : EndIf
         EndIf
         tmper$ = ReadProgramError(shell)
         If tmper$ : Err$ + tmper$ + "\n" : EndIf
      Wend
      Exc = ProgramExitCode(shell) : CloseProgram(shell)
   EndIf
   Sh\Out = Output$ : Sh\Err = Err$ : Sh\ExC = Exc
EndProcedure

; Translates AppleScript code on clipboard to obtain a PB string like below
; AppleScript MUST use TABS to indent. Better compile your AppleScript code, before copying it…
Define MyAScr.s = ~"osascript\n"+
                  ~"tell application \"Finder\"\n"+
                  ~"set mySelection to selection\n"+
                  ~"repeat with i in mySelection\n"+
                  ~"set i to contents of i\n"+
                  ~"open information window of i\n"+
                  ~"end repeat\n"+
                  ~"end tell\n"+
                  ~"return"
shShell(MyAScr, #True) ; Eventual AppleScript returned output will be in Sh\Out
Debug Sh\Out
Debug Sh\ExC