Appendix A: QRun
| Documentation component by D.Glodt (c)2001-2002 |
Appendix A: QRun |
|
QRun Component
QRun is a coponent no visible to éxecute applications or associated
files.
QRun Properties
QRun Methods
| Method |
Type |
Description |
Params |
|
|
|
|
| FindApplication |
FUNCTION(FileName$) AS STRING |
Return the name and path of associated application. |
1 |
| FileRun |
SUB(FileName$,cmdShow%) |
Run a associated file or an exe file.
cmdShow can be
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%) |
Run an exe file with parameters. |
3 |
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
| 
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2002-09-03 18:33:08
