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

' Mostra-nascondi_applicazione

'Show hide



Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _

(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

(ByVal lpClassName As Long, ByVal lpWindowName As String) As Long

declare SUB OvalBtn1Click (Sender AS QOVALBTN)



DECLARE SUB OvalBtn2Click (Sender AS QOVALBTN)

DECLARE SUB OvalBtn3Click (Sender AS QOVALBTN)



CREATE Form AS QFORM

                Caption = "ShowHide"

                Width = 413

                Height = 103

                color=rgb(100,100,255)

                Center

                CREATE Label1 AS QLABEL

                               Caption = "Window Caption :"

                               Left = 3

                               Top = 6

                               Width = 88

                               Transparent = 1

                END CREATE

                CREATE OvalBtn1 AS QOVALBTN

                               Caption = "&Hide"

                               Left = 12

                               Top = 36

                               Width = 100

                               Height = 34

                               OnClick = OvalBtn1Click

                END CREATE

                CREATE OvalBtn2 AS QOVALBTN

                               Caption = "&Show" Left = 156 Top = 36 Width = 100 Height = 34 OnClick = OvalBtn2Click END CREATE

                CREATE OvalBtn3 AS QOVALBTN

                               Caption = "&Close"

                               Left = 292

                               Top = 36

                               Width = 100

                               Height = 34

                               OnClick = OvalBtn3Click

                END CREATE

                CREATE Edit1 AS QEDIT

                               Text = "Calculator"

                               Left = 95

                               Top = 4

                               Width = 297

                               color=rgb(200,255,200)

                END CREATE

END CREATE



Form.ShowModal



SUB OvalBtn1Click (Sender AS QOVALBTN)

                showwindow(findwindow(null,edit1.text),0)

END SUB



SUB OvalBtn2Click (Sender AS QOVALBTN)

                showwindow(findwindow(null,edit1.text),1)

END SUB



SUB OvalBtn3Click (Sender AS QOVALBTN)

                application.terminate

END SUB



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