QRun Composant

QRun Proprietés

Champs	Type	L/E	Defaut

QRun Methodes

Methode	Type	Description	Parametres
FindApplication	SUB(FileName$)	Retourne le nom et chemin de l'application associé.	1
FileRun	SUB	Colle l'image du presse papier	0
LoadFromFile	SUB(FileName$,cmdShow%)	Lance un fichier associé ou une application. cmdShow peut etre SW_HIDE SW_SHOWNORMAL SW_NORMAL SW_SHOWMINIMIZED SW_SHOWMAXIMIZED SW_MAXIMIZE SW_SHOWNOACTIVATE SW_SHOW SW_MINIMIZE SW_SHOWMINNOACTIVE SW_SHOWNA SW_RESTORE SW_SHOWDEFAULT SW_MAX	2
ExeRun	SUB(ExeName$,Param$,cmdShow%)	Lance une application avec parametre.	3

QRun Evenements

Evenement	Type	Déclenchement	Parametres

QRun Exemples

$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