| |
| |
|
Julian
Schmidt | ¡Hola,
Yo versuche gerade el Ventana principal, uno de me erstellten Prozesses, de el "Standart-Prozess", el Fokus zuzuweisen.
Das funktioniert por desgracia, no así, Yo lo gerne hätte.
Momentan tue Yo simplemente por Filemap el Handel des Hauptfensters des Prozesses übertragen y luego por Setactivewindow anfokussieren. Daraufhin folgt uno Fehlermeldung (pro Prozess).
¿Por qué funktioniert no, como de me angedacht? Kann uno überhaupt en Controls de otro Prozessen zugreifen? Wenn Sí, como es correcto?
declarar prozess_id&
Windowstyle 24
Windowtitle "Hauptfenster"
Ventana 400,400,200,100
cls RGB(0,255,0)
imprimir "Enter en en el Prozess a wechseln"
StartProzess()
Usermessages 16
var hfm& = Filemap("Open", "Daten")
var daten& = Filemap("Map", hfm&)
whilenot ((%umessage=16) or iskey(27))
waitinput 30
caso iskey(13) : SetActiveWindow(long(daten&,4*0))'Enter betätigt
endwhile
Process("Kill", prozess_id&, 0)
Filemap("Close", hfm&)
end
Proc StartProzess
prozess_id&=pExec("|Prozess")
Proc Prozess
var hfm& = Filemap("Open", "Daten")
var daten& = Filemap("Map", hfm&)
Windowstyle 24
Ventana 100,100-300,200
cls RGB(255,0,255)
long daten&, 4*0 = %hwnd
whilenot (%key=2)
waitinput
Endwhile
Filemap("Close", hfm&)
ENDPROC
ENDPROC
|
|
| |
| |
| |
|
|
 | Schau: [...]  Activates a window. The window must be attached to the calling thread's mensaje queue.
Dies es hier no Fall.
Probiere SetForegroundWindow : [...] y schaue en el Remarks. |
|
| |
| |
| |
|
|
Julian
Schmidt | Funktioniert desafortunadamente immernoch no como gewollt.
declarar prozess_id&
Windowstyle 24
Windowtitle "Hauptfenster"
Ventana 400,400,200,100
cls RGB(0,255,0)
imprimir "Enter en en el Prozess a wechseln"
StartProzess()
Usermessages 16
var hfm& = Filemap("Open", "Comm")
var pcomm& = Filemap("Map", hfm&)
whilenot ((%umessage=16) or iskey(27))
waitinput 30
caso iskey(13) : Externo("User32","SetForegroundWindow",long(pcomm&,(4*0)))'SetActiveWindow(long(daten&,4*0))'Enter betätigt
endwhile
Process("Kill", prozess_id&, 0)
Filemap("Close", hfm&)
end
Proc StartProzess
prozess_id&=pExec("|Prozess")
Proc Prozess
var hfm& = Filemap("Open", "Comm")
var pcomm& = Filemap("Map", hfm&)
Windowstyle 24
Ventana 100,100-300,200
cls RGB(255,0,255)
long pcomm&, (4*0) = %hwnd
whilenot (%key=2)
waitinput
Endwhile
Filemap("Close", hfm&)
ENDPROC
ENDPROC
Soll "There is no foreground process." de [...] (siehe Remarks) heißen dass, Yo sólo porque Standart-Prozess ausblenden muss, bevor Yo, el neuen Prozess el Fokus zuteilen kann? |
|
| |
| |
| |
|
|
Julian
Schmidt | Lo funktioniert auch con SetActiveWindow! Tuve una Fehler en el Code, esta habe ihn nun lejos y ahora se ejecuta lo....
declarar prozess_id&
Windowstyle 24
Windowtitle "Hauptfenster"
Ventana 400,400,200,100
cls RGB(0,255,0)
imprimir "Enter en en el Prozess a wechseln"
StartProzess()
Usermessages 16
var hfm& = create("Filemap", "Comm", 36)
var comm& = Filemap("Map", hfm&)
whilenot ((%umessage=16) or iskey(27))
waitinput 30
caso iskey(13) : SetactiveWindow(long(comm&,0))'Enter betätigt
endwhile
Process("Kill", prozess_id&, 0)
Filemap("Close", hfm&)
end
Proc StartProzess
prozess_id&=pExec("|Prozess")
Proc Prozess
Windowstyle 24
Ventana 100,100-300,200
cls RGB(255,0,255)
var hfm& = Filemap("Open", "Comm")
var pcomm& = Filemap("Map", hfm&)
long pcomm&,0=%hwnd
whilenot (%key=2)
waitinput 30
Endwhile
Filemap("Close", hfm&)
ENDPROC
ENDPROC
|
|
| |
| |
| |
|
(562)
Deutsch
English
Français
Español
Italia