' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' QRun

****** QRun Component ******
QRun is a coponent no visible to éxecute applications or associated files.
 
 
QRun Properties
Field               Type                R/W                 Default
=================== =================== =================== ===================
QRun Methods
Method           Type                       Description        Params
================ ========================== ================== ================
                                            Return the name
FindApplication  FUNCTION(FileName$) AS     and path of        1
                 STRING                     associated
                                            application.
                                            Run a associated
                                            file or an exe
                                            file.
                                            cmdShow can be
                                            SW_HIDE
                                            SW_SHOWNORMAL
                                            SW_NORMAL
                                            SW_SHOWMINIMIZED
                                            SW_SHOWMAXIMIZED
FileRun          SUB(FileName$,cmdShow%)    SW_MAXIMIZE        2
                                            SW_SHOWNOACTIVATE
                                            SW_SHOW
                                            SW_MINIMIZE
                                            SW_SHOWMINNOACTIVE

                                            SW_SHOWNA
                                            SW_RESTORE
                                            SW_SHOWDEFAULT
                                            SW_MAX
ExeRun           SUB                        Run an exe file    3
                 (ExeName$,Param$,cmdShow%) with parameters.
QRun Events
Event               Type                Occurs when...      Params
=================== =================== =================== ===================
QRun Examples
$typecheck on
$INCLUDE "Rapidq.inc"
$INCLUDE "Object\QRun.inc"

declare sub OuvrirClick
declare sub QuitterClick

dim App as QRun
CREATE Form AS QFORM
    Caption ="Execute"
    Width = 200
    Height = 200
    Center
    CREATE Menu AS QMAINMENU
      CREATE item1 AS QMENUITEM
        Caption="&Fichier"
        CREATE item2 AS QMENUITEM
          Caption="&Ouvrir"
          OnClick=OuvrirClick
        END CREATE
        CREATE item5 AS QMENUITEM
          Caption="-"
        END CREATE
        CREATE item6 AS QMENUITEM
          Caption="&Quitter"
          OnClick=QuitterClick
        END CREATE
      END CREATE
    END CREATE
END CREATE

Form.ShowModal

sub OuvrirClick
  dim file as QOPENDIALOG
  
  file.Filter="Fichiers(*.*)|*.*"
  file.InitialDir=CurDir$

  if file.Execute then
    if App.FindApplication(file.fileName)<>"" then
      App.fileRun(file.fileName,SW_SHOW)
    end if
  end if
end sub

sub QuitterClick
  Form.Close
end sub



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb