OK, jetzt habe ich 4 Stunden lang vergeblich versucht, etwas zu reissen, aber es funzt nicht. Auch deshalb, weil ich die genannten Proggs (x-Spy etc) nirgendwo finde (x-spy.net ist unavailable <juhuu) und absolut nicht weiterkomme. Ich habe das Hande von Winamp, allerdings benoetige ich das Handle des JumpToFile-Fensters, das ich bereits mit Delphi oeffne. Auf diesem Fenster moechte ich in das obere Textfeld einen String schreiben, und ich hab keine Ahnung wie, denn ich kann nicht herausfinden, wie ich direkt auf dieses Textfeld zugreife, denn dann kann ich auch erst WM_SETTEXT bzw. SendMessage(...) verwenden. Mein Code sieht bis jetzt so aus:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| procedure JumpToFile(sName:string); var hWinAmp,hDialog:THandle; begin hWinamp := FindWindow('Winamp v1.x', nil); Form1.WAexecute(11); wait(300); hDialog := GetWindow(hWinAmp,GW_HWNDPREV); SetFocus(hDialog); SendKeys(FindWindowEx(hDialog,0,'Edit',''),sName); wait(100); SendKeys(FindWindowEx(hDialog,0,'Edit',''),#13);end; |
bei dem obigen "Edit" im FindWindowEx-Befehl habe ich das Problem, ausserdem bin ich mir bei dem GetWindow-Befehl zum Finden des neuen Fensters auch nicht sicher.
Das stresst gewaltigt!
Hilfe!