| |
| |
|
Julian
Schmidt | Salut,
je versuche justement dem Hauptfenster, eines de mir erstellten Prozesses, aus dem "Standart-Prozess", den Fokus zuzuweisen.
cela funktioniert malheureusement pas so, comment je es volontiers hätte.
Momentan tue je simple per Filemap cela négoce des Hauptfensters des Prozesses übertragen et ensuite per Setactivewindow anfokussieren. Daraufhin folgt eines Fehlermeldung (pro Prozess).
pourquoi funktioniert es pas, comment de mir prévu? peux on überhaupt sur Controls de anderen Prozessen zugreifen? si oui, ca va richtig?
declare prozess_id&
Windowstyle 24
Windowtitle "Hauptfenster"
Fenêtre 400,400,200,100
cls RGB(0,255,0)
imprimer "Enter um dans den Prozess trop wechseln"
StartProzess()
Usermessages 16
var hfm& = Filemap("Open", "Daten")
var daten& = Filemap("Map", hfm&)
whilenot ((%umessage=16) or iskey(27))
waitinput 30
cas 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
Fenêtre 100,100-300,200
cls RGB(255,0,255)
long daten&, 4*0 = %hwnd
whilenot (%clé=2)
waitinput
Endwhile
Filemap("Close", hfm&)
ENDPROC
ENDPROC
|
|
| |
| |
| |
|
|
 | exposition: [...]  Activates a window. The window must être attached to le calling thread's message queue.
ca ist ici pas qui le cas.
Probiere SetForegroundWindow : [...] et schaue sur qui Remarks. |
|
| |
| |
| |
|
|
Julian
Schmidt | Funktioniert malheureusement immernoch pas comment gewollt.
declare prozess_id&
Windowstyle 24
Windowtitle "Hauptfenster"
Fenêtre 400,400,200,100
cls RGB(0,255,0)
imprimer "Enter um dans den Prozess trop wechseln"
StartProzess()
Usermessages 16
var hfm& = Filemap("Open", "Comm")
var pcomm& = Filemap("Map", hfm&)
whilenot ((%umessage=16) or iskey(27))
waitinput 30
cas iskey(13) : Externe("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
Fenêtre 100,100-300,200
cls RGB(255,0,255)
long pcomm&, (4*0) = %hwnd
whilenot (%clé=2)
waitinput
Endwhile
Filemap("Close", hfm&)
ENDPROC
ENDPROC
Soll "There is no foreground process." aus [...] (siehe Remarks) appeler dass, je seulement car Standart-Prozess ausblenden muss, bevor Je l' neuen Prozess den Fokus zuteilen peux? |
|
| |
| |
| |
|
|
Julian
Schmidt | Es funktioniert aussi avec SetActiveWindow! je hatte une faute im Code, cette habe ihn eh bien entfernt et maintenant fonctionne es....
declare prozess_id&
Windowstyle 24
Windowtitle "Hauptfenster"
Fenêtre 400,400,200,100
cls RGB(0,255,0)
imprimer "Enter um dans den Prozess trop wechseln"
StartProzess()
Usermessages 16
var hfm& = create("Filemap", "Comm", 36)
var comm& = Filemap("Map", hfm&)
whilenot ((%umessage=16) or iskey(27))
waitinput 30
cas 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
Fenêtre 100,100-300,200
cls RGB(255,0,255)
var hfm& = Filemap("Open", "Comm")
var pcomm& = Filemap("Map", hfm&)
long pcomm&,0=%hwnd
whilenot (%clé=2)
waitinput 30
Endwhile
Filemap("Close", hfm&)
ENDPROC
ENDPROC
|
|
| |
| |
| |
|
(1.173)
Deutsch
English
Français
Español
Italia