ERFORDERLICHE
OBJEKTE
1 Timer (Timer1)
FORM-CODE
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Rec As RECT
Private Sub Form_Load()
'hier am Beispiel Rechner
Shell "calc.exe"
Timer1.Interval = 250
End Sub
Private Sub Timer1_Timer()
wHandle = FindWindow(vbNullString, "Rechner")
GetWindowRect wHandle, Rec
'Position in einer Variable speichern
x= Rec.Left
y= Rec.Top
End Sub
|