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
|