Στον παρακάτω κώδικα:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Const SW_SHOWNORMAL = 1
Dim ret As Long, z As Long
ret = FindWindow("IEFrame", "HTTP 404 Not Found - Microsoft Internet Explorer")
MsgBox ret
End Sub
ψάχνω για ενα συγκεκριμένο παράθυρο.Δίνω και το classname και τον τιτλο.Οταν αυτο ειναι ανοιχτό...ολα ΟΚ μου επιστρέφει το handle αυτου του παραθύρου...τσεκαρισμένο και με το Spy++
αλλα....
οταν κλεισω το παραθυρο και ξανατρεξω τον κώδικα...μου επιστρεφει ενα αλλο handle (κανονικα θα επρεπε να επιστρεψει 0) το οποιο
αν το ακολουθήσω με πάει σε αυτο το παραθυρο...δλδ στο HTTP 404 Not Found - Microsoft Internet Explorer
Πως ειναι αυτό δυνατόν ???
Επίσης μεσα στο Spy++ μου δειχνει παραθυρα (και τα αντιστοιχα handles τους) που δεν ειναι ανοιχτα....
Κάποια βοήθεια ???
Ευχαριστώ εκ των προτέρων.