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

' Trova_Finestra_1

DECLARE FUNCTION FindWindowAPI LIB "user32" ALIAS "FindWindowA" _

(ByVal lpClassName AS LONG, ByVal lpWindowName AS STRING) AS LONG

DECLARE SUB GetHandle

CREATE Form AS QFORM

Caption = "Test"

CREATE Button AS QBUTTON

Caption = "Get Handle"

OnClick = GetHandle

END CREATE

END CREATE



SUB GetHandle

DIM str AS STRING

str = STR$(Form.Handle) + "=" + STR$(FindWindowAPI(0, "Test"))

ShowMessage(str)

END SUB

Form.ShowModal



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